use C4::Log;
use C4::Branch; # GetBranches
+#use Smart::Comments;
+
use vars qw($debug);
BEGIN {
my $name_city=$input->param('name_city');
my $nodouble=$input->param('nodouble');
my $select_city=$input->param('select_city');
+my $zipcode=$input->param('zipcode');
+my $city=$input->param('city');
my $nok=$input->param('nok');
my $guarantorinfo=$input->param('guarantorinfo');
my $step=$input->param('step') || 0;
###############test to take the right zipcode and city name ##############
if ( $guarantorid eq ''){
- if ($select_city){
- my ($borrower_city,$borrower_zipcode)=&getzipnamecity($select_city);
- $newdata{'city'}= $borrower_city;
- $newdata{'zipcode'}=$borrower_zipcode;
- }
+ $newdata{'city'}= $city;
+ $newdata{'zipcode'}=$zipcode;
}
+
#builds default userid
if ( (defined $newdata{'userid'}) && ($newdata{'userid'} eq '')){
my $onefirstnameletter = substr($data{'firstname'},0,1);