aisa/scripts/logistics_suppliers.pl

#!/usr/bin/perl

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
    
require cfg ;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

use CGI::Carp qw(fatalsToBrowser);
use CGI;

&today;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

@ARGV   = split(/\\*\&/, $ENV{'QUERY_STRING'});
$action = $ARGV[0] ;

our ($q)                 = CGI -> new() ;
our $iaction             = $q -> param('iaction')                || $action ;
our $isaved              = $q -> param('isaved')                 || '' ;

our $debug = 1 ;

#-------- page opts --------------------------------------------------------------------------------------------------------------------------------------------------

&page_opts ;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

print "Content-type: text/html\n\n";

&common_min_action;

exit;

#------------------------------------------------------------------------------------------

sub validate {

	my $exists   = '' ;

	$i{supplier} = &common_fix_str($i{supplier}) ;

	&db_min_ro($table,'*',"supplier='$i{supplier}'",'supplier','') ;

	foreach my $id (keys %{$db{$table}}) { if ($db{$table}{$id}{supplier} eq $i{supplier}) { $exists = 1 ; } }

	if ($exists) {
		$alert = &common_min_alert('warning',"SUPPLIER ALREADY EXISTS!",'ok') ;
		%col_name = ();
		&common_min_add_screen;
		&common_min_screen1;
    }

} #------------------------------------------------------------------------------------------

sub insert {

	&add_db_fields ;

	&db_min_insert($table) ;

} #------------------------------------------------------------------------------------------

sub update {

	unless ($i{id}) { $error = qq(NO ID) ; return ; }

	&edit_db_fields ;
	
	$i{active} = '0' unless $i{active} ;	

	&db_min_upd($table,"id='$i{id}'") ;

} #------------------------------------------------------------------------------------------

sub list_screen {
	
	&db_min_ro('event_quotes','id,logistics_suppliers',"logistics_suppliers IS NOT NULL",'','') ;
		
	my %type_id_used = () ;	
	foreach my $id (keys %{$db{event_quotes}}) {
		my @sups = split(/;/,$db{event_quotes}{$id}{logistics_suppliers}) ; #$db{event_quotes}{$id}{logistics_suppliers} = "4-;;;1-2;;;;-"
		foreach my $sups (@sups) {
			foreach my $sup_id (split(/-/,$sups)) {
				 $type_id_used{$sup_id} = 1 ;
			}
		}
	}

	&db_min_ro($table,'*','','supplier','') ;

	foreach my $id (keys %{$db{$table}}) {
		
		my $edit_butt = '' ; my $del_butt = '' ;
		
		if ($glod_user_level > 3) { 
			$edit_butt = qq~&nbsp;<a class="btn btn-info btn-xs" href="javascript:editMinItem('$db{$table}{$id}{id}');"><i class="glyphicon glyphicon-edit icon-white"></i></a>~ ; 
		}	
		
		if ($glod_user_level > 4) { 
			$del_butt  = qq~&nbsp;<a class="btn btn-danger btn-xs" href="javascript:deleteMinItem('$db{$table}{$id}{name}','$db{$table}{$id}{id}')"><i class="glyphicon glyphicon-trash icon-white"></i></a>~ ; 
		}
			
		if ($type_id_used{$id}) { 
			$edit_butt = qq~&nbsp;<a class="btn btn-default btn-xs" href="#" title="In system use!" data-toggle="tooltip"><i class="glyphicon glyphicon-edit icon-white"></i></a>~ ;   
			$del_butt  = qq~&nbsp;<a class="btn btn-default btn-xs" href="#" title="In system use!" data-toggle="tooltip"><i class="glyphicon glyphicon-trash icon-white"></i></a>~ ;  
		}
		
		my $active = ($db{$table}{$id}{active}) ? qq~<span class="label label-success"><i class="glyphicon glyphicon-ok"></i></span>~ : qq~<span class="label label-danger"><i $tooltip class="glyphicon glyphicon-remove"></i></span>~ ;
		
		$print_tbody .= qq~<tr id="$id">
			<td>$id</td>
			<td>$db{$table}{$id}{supplier}</td>
			<td>$active</td>
			<td nowrap>
				$edit_butt
				$del_butt
			</td>
		</tr>~ ;
	}

} #------------------------------------------------------------------------------------------

sub add_db_fields {
	
	&sort_fields;
		
	&hidden_db_fields;

	$ignore{id} = 1 ;
	
	$db{$table}{''}{active} = 1 ; 

} #------------------------------------------------------------------------------------------

sub edit_db_fields {
	
	&sort_fields;
		
	&hidden_db_fields;

	$hidden{id} = 1 ; # 1 = bypass for db update

} #------------------------------------------------------------------------------------------

sub hidden_db_fields {
	
	$ignore{iaction}        = 1 ;
	$required{supplier}     = 1 ;
	$checkbox{active}       = 1 ;

} #------------------------------------------------------------------------------------------

sub sort_fields {
		
	%sort_field = () ;

	$sort_field{1}  = 'supplier' ;
	$sort_field{2}  = 'active' ;

} #-------------------------------------------------------------------------------

sub add_screen {

	# called from common_add_screen

	&select_opts ;

} #------------------------------------------------------------------------------------------

sub edit_screen {

	&select_opts ;

} #------------------------------------------------------------------------------------------

sub select_opts {

	# $required{based_in} = 1 ;
	# $select{based_in} = 1 ;
	# $opts{based_in} = qq~<option value="JNB" $selected{based_in}{'JNB'}>Johannesburg</option><option value="CPT" $selected{based_in}{'CPT'}>Cape Town</option>~ ;

} #------------------------------------------------------------------------------------------

sub thead {

	$print_thead = qq~<THEAD><TR><TH>ID</TH><TH>SUPPLIER</TH><TH>ACTIVE</TH><TH>&nbsp;</TH></TR></THEAD>~ ;
		
} #-------------------------------------------------------------------------------

sub page_opts {

	our $glyphicon   = 'list' ;
	our $lcpage      = 'logistics-supplier' ; $ucpage = uc $lcpage ; $ucfirstpage = ucfirst $lcpage ;
	our $page_title  = 'Logistics Suppliers' ;
	our $table       = 'logistics_suppliers' ;

	&common_min_add_extras ;

} #-------------------------------------------------------------------------------

use common ;
use today ;

1;