|
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 |
- |
|
|