Lines 69-75
my $op = $input->param('op');
Link Here
|
69 |
my $destination = $input->param('destination'); |
69 |
my $destination = $input->param('destination'); |
70 |
my $cardnumber = $input->param('cardnumber'); |
70 |
my $cardnumber = $input->param('cardnumber'); |
71 |
my $check_member = $input->param('check_member'); |
71 |
my $check_member = $input->param('check_member'); |
72 |
my $name_city = $input->param('name_city'); |
|
|
73 |
my $nodouble = $input->param('nodouble'); |
72 |
my $nodouble = $input->param('nodouble'); |
74 |
$nodouble = 1 if $op eq 'modify'; # FIXME hack to represent fact that if we're |
73 |
$nodouble = 1 if $op eq 'modify'; # FIXME hack to represent fact that if we're |
75 |
# modifying an existing patron, it ipso facto |
74 |
# modifying an existing patron, it ipso facto |
Lines 435-449
$select_city=getidcity($data{'city'}) if defined $guarantorid and ($guarantorid
Link Here
|
435 |
if (!defined($select_city) or $select_city eq '' ){ |
434 |
if (!defined($select_city) or $select_city eq '' ){ |
436 |
$default_city = &getidcity($data{'city'}); |
435 |
$default_city = &getidcity($data{'city'}); |
437 |
} |
436 |
} |
438 |
my($cityid); |
437 |
|
439 |
($cityid,$name_city)=GetCities(); |
438 |
my $city_arrayref = GetCities(); |
440 |
$template->param( city_cgipopup => 1) if ($cityid ); |
439 |
if (@{$city_arrayref} ) { |
441 |
my $citypopup = CGI::popup_menu(-name=>'select_city', |
440 |
$template->param( city_cgipopup => 1); |
442 |
-id => 'select_city', |
441 |
|
443 |
'-values' =>$cityid, |
442 |
if ($default_city) { # flag the current or default val |
444 |
-labels=>$name_city, |
443 |
for my $city ( @{$city_arrayref} ) { |
445 |
-default=>$default_city, |
444 |
if ($default_city == $city->{cityid}) { |
446 |
); |
445 |
$city->{selected} = 1; |
|
|
446 |
last; |
447 |
} |
448 |
} |
449 |
} |
450 |
} |
447 |
|
451 |
|
448 |
my $default_roadtype; |
452 |
my $default_roadtype; |
449 |
$default_roadtype=$data{'streettype'} ; |
453 |
$default_roadtype=$data{'streettype'} ; |
Lines 629-635
$template->param(
Link Here
|
629 |
guarantorid => (defined($borrower_data->{'guarantorid'})) ? $borrower_data->{'guarantorid'} : $guarantorid, |
633 |
guarantorid => (defined($borrower_data->{'guarantorid'})) ? $borrower_data->{'guarantorid'} : $guarantorid, |
630 |
ethcatpopup => $ethcatpopup, |
634 |
ethcatpopup => $ethcatpopup, |
631 |
relshiploop => \@relshipdata, |
635 |
relshiploop => \@relshipdata, |
632 |
citypopup => $citypopup, |
636 |
city_loop => $city_arrayref, |
633 |
roadpopup => $roadpopup, |
637 |
roadpopup => $roadpopup, |
634 |
borrotitlepopup => $borrotitlepopup, |
638 |
borrotitlepopup => $borrotitlepopup, |
635 |
guarantorinfo => $guarantorinfo, |
639 |
guarantorinfo => $guarantorinfo, |
636 |
- |
|
|