426 lines
15 KiB
Perl
426 lines
15 KiB
Perl
|
|
||
|
|
sub users_list_screen {
|
||
|
|
|
||
|
|
&db_open_ro;
|
||
|
|
$db_ignore_open_close=1;
|
||
|
|
&users_list_vars ;
|
||
|
|
$db_ignore_open_close=0 ;
|
||
|
|
&db_close_conn ;
|
||
|
|
|
||
|
|
foreach my $id (keys %{$db{$table}}) {
|
||
|
|
|
||
|
|
$delete_button = ($seen_operator{$id}) ? qq~<a class="btn btn-default btn-xs" href="#" title data-toggle="tooltip" data-original-title="In system use!"><i class="glyphicon glyphicon-trash icon-white"></i></a>~ : qq~<a class="btn btn-danger btn-xs" href="javascript:deleteMinItem('$db{$table}{$id}{username}','$db{$table}{$id}{id}')"><i class="glyphicon glyphicon-trash icon-white"></i></a>~ ;
|
||
|
|
|
||
|
|
my $disp_blocked = qq~<span class="label label-success" title="Active!" data-toggle="tooltip"><i class="glyphicon glyphicon-ok"></i></span>~;
|
||
|
|
if ($db{$table}{$id}{block} || $db{$table}{$id}{inactive} ) { $disp_blocked = qq~<span class="label label-danger" title="Blocked!" data-toggle="tooltip"><i class="glyphicon glyphicon-remove"></i></span>~; }
|
||
|
|
|
||
|
|
# if (!$useropts{it}{$username} && (substr($db{$table}{$id}{username},0,4) eq 'rory' || substr($db{$table}{$id}{username},0,6) eq 'handre')) { next ; }
|
||
|
|
|
||
|
|
my $it_username_subs_4 = substr($db{$table}{$id}{username},0,4) ; # rory / jean
|
||
|
|
my $it_username_subs_6 = substr($db{$table}{$id}{username},0,6) ; # handre
|
||
|
|
|
||
|
|
if (($useropts{it}{$it_username_subs_4} || $useropts{it}{$it_username_subs_6}) && !$useropts{it}{$username} && $useremail =~ /re8it/g) { next ; }
|
||
|
|
|
||
|
|
next if $glod_user_level < 4 && $level{$db{$table}{$id}{user_type}} > 1 && $user_type eq 'casual' ;
|
||
|
|
|
||
|
|
$opts{$lcpage} .= qq~<option value="$db{$table}{$id}{username}">$db{$table}{$id}{name}</option>~ ;
|
||
|
|
$print_tbody .= qq~<tr id="$id">
|
||
|
|
<td>$id</td>
|
||
|
|
<td>$db{$table}{$id}{username}</td>
|
||
|
|
<td>$db{$table}{$id}{name}</td>
|
||
|
|
<td>$db{$table}{$id}{email}</td>
|
||
|
|
<td>$disp_blocked</td>
|
||
|
|
<td>$db{$table}{$id}{based_in}</td>~ ;
|
||
|
|
|
||
|
|
$print_tbody .= qq~
|
||
|
|
<td>$level{$db{$table}{$id}{user_type}}</td>~ if $user_type eq 'casual' ;
|
||
|
|
|
||
|
|
$print_tbody .= qq~
|
||
|
|
<td>$db{$table}{$id}{lastupdate}</td>
|
||
|
|
<td>$db{$table}{$id}{lastvisitdate}</td>
|
||
|
|
<td nowrap>
|
||
|
|
<a class="btn btn-info btn-xs" href="javascript:editMinItem('$db{$table}{$id}{id}');"><i class="glyphicon glyphicon-edit icon-white"></i></a>
|
||
|
|
$delete_button
|
||
|
|
</td>
|
||
|
|
</tr>~ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_list_vars {
|
||
|
|
|
||
|
|
our %seen = () ; our %seen_operator = () ; our $delete_button = '' ;
|
||
|
|
|
||
|
|
&db_min_ro('events','id, user_id','','','') ;
|
||
|
|
|
||
|
|
foreach my $id (keys %{$db{'events'}}) {
|
||
|
|
next if $seen{$db{'events'}{$id}{user_id}} ;
|
||
|
|
$seen{$db{'events'}{$id}{user_id}} = 1 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
&db_min_ro('event_quotes','id,user_id,operator_ids,daily_operator_ids','','','') ;
|
||
|
|
|
||
|
|
foreach my $id (keys %{$db{event_quotes}}) {
|
||
|
|
# next if $seen{$db{event_quotes}{$id}{user_id}} ;
|
||
|
|
$seen{$db{event_quotes}{$id}{user_id}} = 1 ;
|
||
|
|
my $op_ids = $db{event_quotes}{$id}{operator_ids} ;
|
||
|
|
next unless $op_ids ;
|
||
|
|
my @op_ids = ($op_ids =~ /;/) ? split(/;/,$op_ids) : split(/,/,$op_ids) ;
|
||
|
|
for my $op_id (@op_ids) {
|
||
|
|
next if $seen_operator{$op_id} || !$op_id ;
|
||
|
|
$seen_operator{$op_id} = 1 ;
|
||
|
|
}
|
||
|
|
foreach my $op_ids_list (split(/\|/,$db{event_quotes}{$id}{daily_operator_ids})) {
|
||
|
|
next unless $op_ids_list ;
|
||
|
|
foreach my $op_id (split(/\;/,$op_ids_list)) {
|
||
|
|
next if $seen_operator{$op_id} || !$op_id ;
|
||
|
|
$seen_operator{$op_id} = 1 if $op_id ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
&db_min_ro('quotes','id,user_id','','','') ;
|
||
|
|
|
||
|
|
foreach my $id (keys %{$db{quotes}}) {
|
||
|
|
next if $seen{$db{quotes}{$id}{user_id}} ;
|
||
|
|
$seen{$db{quotes}{$id}{user_id}} = 1 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
$level{casual_a} = 1 ;
|
||
|
|
$level{casual_b} = 2 ;
|
||
|
|
$level{casual_c} = 3 ;
|
||
|
|
|
||
|
|
if ($user_type eq 'coding_provider') {
|
||
|
|
&db_min_ro('analytics_event_bookings','id,fixtures_saved_values','','','') ;
|
||
|
|
foreach my $id (keys %{$db{analytics_event_bookings}}) {
|
||
|
|
my @split1 = split(/\|/,$db{analytics_event_bookings}{$id}{fixtures_saved_values}) ;
|
||
|
|
foreach my $row (@split1) {
|
||
|
|
my @split2 = split(/\;/,$row) ;
|
||
|
|
$seen{$split2[-2]} = 1 ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($user_type eq 'analytics_client') {
|
||
|
|
&db_min_ro('analytics_event_bookings','id,client_id','','','') ;
|
||
|
|
foreach (keys %{$db{analytics_event_bookings}}) {
|
||
|
|
$seen{$db{analytics_event_bookings}{$_}{client_id}} = 1 ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# my $cust_sql_where = "user_type = '$user_type'" if $user_type ;
|
||
|
|
my $cust_sql_where = ($user_type) ? "user_type LIKE '$user_type%'" : "user_type NOT LIKE 'casual%' AND user_type <> 'schools_manager' AND user_type <> 'installation_partner'" ;
|
||
|
|
|
||
|
|
&db_min_ro($table,'*',$cust_sql_where,'username','') ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_sort_fields {
|
||
|
|
|
||
|
|
my $fcnt = 1 ;
|
||
|
|
|
||
|
|
$sort_field{$fcnt} = 'name' ; $fcnt++ ;
|
||
|
|
$sort_field{$fcnt} = 'email' ; $fcnt++ ;
|
||
|
|
$sort_field{$fcnt} = 'phone' ; $fcnt++ ;
|
||
|
|
|
||
|
|
if ($user_type eq 'casual') {
|
||
|
|
$sort_field{$fcnt} = 'bank' ; $fcnt++ ;
|
||
|
|
$sort_field{$fcnt} = 'bank_acc_no' ; $fcnt++ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
$sort_field{$fcnt} = 'based_in' ; $fcnt++ ;
|
||
|
|
$sort_field{$fcnt} = 'user_type' ; $fcnt++ ;
|
||
|
|
# $sort_field{$fcnt} = 'organisation_ids' ; $fcnt++ ;
|
||
|
|
|
||
|
|
if ($user_type eq 'schools_manager' || $user_type eq 'installation_partner' || $user_type eq 'casual') {
|
||
|
|
$sort_field{$fcnt} = 'region_ids' ;
|
||
|
|
$fcnt++ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($user_type eq 'installation_partner') {
|
||
|
|
$sort_field{$fcnt} = 'customer_ids' ;
|
||
|
|
$fcnt++ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
$sort_field{$fcnt} = 'block' ; $fcnt++ ;
|
||
|
|
$sort_field{$fcnt} = 'inactive' ; $fcnt++ ;
|
||
|
|
|
||
|
|
# if ($dialog) {
|
||
|
|
# $sort_field{$fcnt} = 'sel_field' ; $fcnt++ ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
$sort_field{$fcnt} = 'username' ; $fcnt++ ;
|
||
|
|
$sort_field{$fcnt} = 'password' if $iaction eq 'add' ;
|
||
|
|
|
||
|
|
} #-------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_add_db_fields {
|
||
|
|
|
||
|
|
$ignore{lastvisitdate} = 1 ;
|
||
|
|
$ignore{iaction} = 1 ;
|
||
|
|
$ignore{block} = 1 ;
|
||
|
|
$ignore{inactive} = 1 ;
|
||
|
|
# $ignore{id} = 1 ;
|
||
|
|
$hidden{lastupdate} = 2 ;
|
||
|
|
$required{email} = 1 ;
|
||
|
|
$required{username} = 1 ;
|
||
|
|
$required{name} = 1 ;
|
||
|
|
$required{password} = 1 ;
|
||
|
|
|
||
|
|
&sort_fields ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_edit_db_fields {
|
||
|
|
|
||
|
|
$ignore{lastvisitdate} = 1 ;
|
||
|
|
$ignore{password} = 1 ;
|
||
|
|
$ignore{iaction} = 1 ;
|
||
|
|
$hidden{id} = 1 ; # 1 = bypass for db update
|
||
|
|
$hidden{username} = 1 ; # 1 = bypass for db update
|
||
|
|
$hidden{lastupdate} = 2 ; # 2 = update db
|
||
|
|
# $readonly{username} = 'READONLY' ;
|
||
|
|
$checkbox{block} = 1 ;
|
||
|
|
$checkbox{inactive} = 1 ;
|
||
|
|
# $required{username} = 1 ;
|
||
|
|
$required{email} = 1 ;
|
||
|
|
|
||
|
|
&sort_fields ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_add_screen {
|
||
|
|
|
||
|
|
# called from common_add_screen
|
||
|
|
|
||
|
|
$selected{user_type}{$user_type} = "SELECTED" if $user_type ;
|
||
|
|
|
||
|
|
&users_select_opts ;
|
||
|
|
|
||
|
|
our $savjqy = 1 if $user_type ; # incorporate jquery into the save event to accommodate the multiple chosen options
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_edit_screen {
|
||
|
|
|
||
|
|
our ($lcol,$fcol) = &common_min_columns($label_col,$field_col) ;
|
||
|
|
|
||
|
|
$selected{based_in}{$db{$table}{$i{id}}{based_in}} = "SELECTED" ;
|
||
|
|
$selected{user_type}{$db{$table}{$i{id}}{user_type}} = "SELECTED" ;
|
||
|
|
|
||
|
|
$extra_form_fields .= &common_min_form_input('new_password','','password') ;
|
||
|
|
|
||
|
|
&users_select_opts ;
|
||
|
|
|
||
|
|
our $savjqy = 1 if $user_type ; # incorporate jquery into the save event to accommodate the multiple chosen options
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_thead {
|
||
|
|
|
||
|
|
$print_thead = qq~<THEAD><TR><TH>ID</TH><TH>USERNAME</TH><TH>NAME</TH><TH>EMAIL</TH><TH>ACTIVE</TH><TH>BASE</TH>~;
|
||
|
|
|
||
|
|
$print_thead .= qq~<TH>LEVEL</TH>~ if $user_type eq 'casual' ;
|
||
|
|
|
||
|
|
$print_thead .= qq~<TH>LASTUPDATE</TH><TH>LASTVISITDATE</TH><TH> </TH></TR></THEAD>~ ;
|
||
|
|
|
||
|
|
} #-------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_process_multi_select {
|
||
|
|
|
||
|
|
# local @organisationids = split(/\,/,$i{organisationids}) ;
|
||
|
|
# my $organisationids = join(",",@organisationids) ;
|
||
|
|
# $organisationids =~ s/\s//g; # remove white space
|
||
|
|
# $ignore{organisationids} = 1 ;
|
||
|
|
# $i{organisation_ids} = $organisationids ;
|
||
|
|
|
||
|
|
$i{organisation_ids} = '0' ;
|
||
|
|
|
||
|
|
local @regionids = split(/\,/,$i{regionids}) ;
|
||
|
|
my $regionids = join(",",@regionids) ;
|
||
|
|
$regionids =~ s/\s//g; # remove white space
|
||
|
|
$ignore{regionids} = 1 ;
|
||
|
|
$i{region_ids} = $regionids || '0' ;
|
||
|
|
|
||
|
|
if ($user_type eq 'installation_partner' || $user_type eq 'coding_provider' || $user_type eq 'analytics_client') {
|
||
|
|
local @customerids = split(/\,/,$i{customerids}) ;
|
||
|
|
my $customerids = join(",",@customerids) ;
|
||
|
|
$customerids =~ s/\s//g; # remove white space
|
||
|
|
$ignore{customerids} = 1 ;
|
||
|
|
$i{customer_ids} = $customerids ;
|
||
|
|
} else {
|
||
|
|
$i{customer_ids} = '0' ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_select_opts {
|
||
|
|
|
||
|
|
# $multiple{organisation_ids} = 1;
|
||
|
|
# my @organisation_ids = split(/\,/,$db{$table}{$i{id}}{organisation_ids});
|
||
|
|
# foreach (@organisation_ids) { $selected_multi{$_} = 'SELECTED' ; }
|
||
|
|
# $preferred_title{organisation_ids} = "Venue" ;
|
||
|
|
# &common_min_select_opts('organisation_ids','organisations','name',$db{$table}{$i{id}}{organisation_ids},'') ;
|
||
|
|
# $extra_form_fields .= qq~<input type="hidden" name="organisationids" id="organisation-ids" value="">~;
|
||
|
|
|
||
|
|
# $trigger_jquery_raw .= qq~
|
||
|
|
# \$("#savebutt").click(function() {
|
||
|
|
# let st_val = \$("#selectOrganisation_ids").chosen().val() ;
|
||
|
|
# \$('#organisation-ids').val(st_val);
|
||
|
|
# \$('#users-form').submit();
|
||
|
|
# });~;
|
||
|
|
|
||
|
|
if ($user_type eq 'installation_partner' || $user_type eq 'coding_provider' || $user_type eq 'analytics_client') {
|
||
|
|
$multiple{customer_ids} = 1;
|
||
|
|
my @customer_ids = split(/\,/,$db{$table}{$i{id}}{customer_ids});
|
||
|
|
foreach (@customer_ids) { $selected_multi{$_} = 'SELECTED' ; }
|
||
|
|
$preferred_title{customer_ids} = "Customers" ;
|
||
|
|
&common_min_select_opts('customer_ids','customers','name','','') ;
|
||
|
|
$extra_form_fields .= qq~<input type="hidden" name="customerids" id="customer-ids" value="">~;
|
||
|
|
$add_to_trigger_jquery_raw = qq~
|
||
|
|
let cust_val = \$("#selectCustomer_ids").chosen().val() ;
|
||
|
|
\$('#customer-ids').val(cust_val);
|
||
|
|
~;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($user_type eq 'schools_manager' || $user_type eq 'installation_partner' || $user_type eq 'casual' || $user_type eq 'coding_provider' || $user_type eq 'analytics_client') {
|
||
|
|
$multiple{region_ids} = 1;
|
||
|
|
my @region_ids = split(/\,/,$db{$table}{$i{id}}{region_ids});
|
||
|
|
foreach (@region_ids) { $selected_multi{$_} = 'SELECTED' ; }
|
||
|
|
$preferred_title{region_ids} = "Regions" ;
|
||
|
|
&common_min_select_opts('region_ids','regions','name','','') ;
|
||
|
|
$extra_form_fields .= qq~<input type="hidden" name="regionids" id="region-ids" value="">~;
|
||
|
|
|
||
|
|
$trigger_jquery_raw .= qq~
|
||
|
|
\$("#savebutt").click(function() {
|
||
|
|
let st_val = \$("#selectRegion_ids").chosen().val() ;
|
||
|
|
\$('#region-ids').val(st_val);
|
||
|
|
$add_to_trigger_jquery_raw
|
||
|
|
\$('#users-form').submit();
|
||
|
|
});~;
|
||
|
|
}
|
||
|
|
|
||
|
|
# &common_min_select_opts('organisation_ids','organisations','name',$db{$table}{$i{id}}{organisation_ids},1,'','');
|
||
|
|
|
||
|
|
&common_min_select_opts('based_in','regions','name',$db{$table}{$i{id}}{based_in},1,'','','code') ;
|
||
|
|
|
||
|
|
# $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>~ ;
|
||
|
|
# $opts{based_in} = qq~<option value="GP" $selected{based_in}{'GP'}>Gauteng</option><option value="CT" $selected{based_in}{'CT'}>Cape Town</option>~ ;
|
||
|
|
|
||
|
|
$required{user_type} = 1 ;
|
||
|
|
$select{user_type} = 1 ;
|
||
|
|
if ($user_type eq 'casual') {
|
||
|
|
if ($glod_user_level > 2) {
|
||
|
|
$opts{user_type} = qq~<option value="casual_a" $selected{user_type}{casual_a}>Operator Level 1</option>~;
|
||
|
|
}
|
||
|
|
if ($glod_user_level > 3) {
|
||
|
|
$opts{user_type} .= qq~<option value="casual_b" $selected{user_type}{casual_b}>Operator Level 2</option><option value="casual_c" $selected{user_type}{casual_c}>Operator Level 3</option>~;
|
||
|
|
}
|
||
|
|
$opts{user_type} .= qq~<option value="casual_calibrator" $selected{user_type}{casual_calibrator}>Temp Calibrator</option>~;
|
||
|
|
} elsif ($user_type) {
|
||
|
|
my $user_type_name = join(" ", map { ucfirst lc } split /_/, $user_type);
|
||
|
|
$opts{user_type} = qq~
|
||
|
|
<option value="$user_type" $selected{user_type}{$user_type}>$user_type_name</option>
|
||
|
|
~ ;
|
||
|
|
} else {
|
||
|
|
$opts{user_type} = qq~
|
||
|
|
<option value="manager" $selected{user_type}{'manager'}>Manager</option>
|
||
|
|
<option value="support" $selected{user_type}{'support'}>Support</option>
|
||
|
|
<option value="external" $selected{user_type}{external}>External</option>
|
||
|
|
<option value="it" $selected{user_type}{it}>IT</option>
|
||
|
|
<option value="nonquote" $selected{user_type}{nonquote}>Non-quotes</option>
|
||
|
|
<option value="parttime" $selected{user_type}{'parttime'}>Part-time</option>
|
||
|
|
<option value="permanent" $selected{user_type}{'permanent'}>Permanent</option>
|
||
|
|
<option value="senior_manager" $selected{user_type}{'senior_manager'}>Senior Manager</option>
|
||
|
|
<option value="dcb_partner" $selected{user_type}{'dcb_partner'}>DCB Partner</option>
|
||
|
|
~ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_insert {
|
||
|
|
|
||
|
|
&add_db_fields ;
|
||
|
|
|
||
|
|
my $crypted_password = apache_md5_crypt($i{password},$useropts{salt}) ;
|
||
|
|
$i{password} = $crypted_password ;
|
||
|
|
$i{lastupdate} = "$now_ccyy_mm_dd $now_hour:$now_min:$now_sec" ;
|
||
|
|
$i{email} = lc $i{email} ;
|
||
|
|
|
||
|
|
$i{id} = &db_min_get_max($table,'id') ;
|
||
|
|
|
||
|
|
&process_multi_select if $user_type ;
|
||
|
|
|
||
|
|
&db_min_insert($table) ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_update {
|
||
|
|
|
||
|
|
unless ($i{id}) { $error = qq(NO ID) ; return ; }
|
||
|
|
|
||
|
|
&edit_db_fields ;
|
||
|
|
|
||
|
|
unless ($i{block}) { $i{block} = '0' ; }
|
||
|
|
unless ($i{inactive}) { $i{inactive} = '0' ; }
|
||
|
|
|
||
|
|
if ($i{new_password}) {
|
||
|
|
my $crypted_password = apache_md5_crypt($i{new_password},$useropts{salt}) ;
|
||
|
|
$i{password} = $crypted_password ;
|
||
|
|
$ignore{password} = 0 ;
|
||
|
|
$hidden{password} = 2 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
$i{lastupdate} = "$now_ccyy_mm_dd $now_hour:$now_min:$now_sec" ;
|
||
|
|
|
||
|
|
&process_multi_select if $user_type ;
|
||
|
|
|
||
|
|
&db_min_upd($table,"id='$i{id}'") ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub users_validate {
|
||
|
|
|
||
|
|
my $user_exists = '' ; my $email_exists = '' ;
|
||
|
|
|
||
|
|
$i{username} = lc $i{username} ;
|
||
|
|
$i{username} =~ s/ //gi ;
|
||
|
|
|
||
|
|
$i{email} = lc $i{email} ;
|
||
|
|
$i{email} =~ s/ //gi ;
|
||
|
|
|
||
|
|
&db_min_ro($table,'*',"username='$i{username}' OR email='$i{email}'",'username','') ;
|
||
|
|
|
||
|
|
foreach my $id (keys %{$db{$table}}) {
|
||
|
|
if ($db{$table}{$id}{username} eq $i{username}) {
|
||
|
|
$user_exists = 1 ;
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($i{email} && $db{$table}{$id}{email} eq $i{email}) {
|
||
|
|
$email_exists = 1 ;
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($user_exists) {
|
||
|
|
$alert = &common_min_alert('warning',"USERNAME ALREADY EXISTS!",'ok') ;
|
||
|
|
%col_name = ();
|
||
|
|
&common_min_add_screen;
|
||
|
|
&common_min_screen1 unless $dialog ;
|
||
|
|
&screen1 if $dialog ;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($email_exists) {
|
||
|
|
$alert = &common_min_alert('warning',"EMAIL ALREADY EXISTS!",'ok') ;
|
||
|
|
%col_name = ();
|
||
|
|
&common_min_add_screen;
|
||
|
|
&common_min_screen1 unless $dialog ;
|
||
|
|
&screen1 if $dialog ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
1 ;
|