[Koha-cvs] CVS: koha/members memberentry.pl,1.8,1.9
Paul POULAIN
tipaul at users.sourceforge.net
Wed May 4 11:02:00 CEST 2005
Update of /cvsroot/koha/koha/members
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21182/members
Modified Files:
memberentry.pl
Log Message:
synch'ing 2.2 and head
Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/memberentry.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** memberentry.pl 7 Mar 2005 08:55:31 -0000 1.8
--- memberentry.pl 4 May 2005 09:01:58 -0000 1.9
***************
*** 53,57 ****
});
! my $member=$input->param('bornum');
my $actionType=$input->param('actionType') || '';
my $modify=$input->param('modify');
--- 53,57 ----
});
! my $borrowernumber=$input->param('borrowernumber');
my $actionType=$input->param('actionType') || '';
my $modify=$input->param('modify');
***************
*** 101,105 ****
$nok=1;
}
! if ($data{'address'} eq ''){
push @errors, "ERROR_address";
$nok=1;
--- 101,105 ----
$nok=1;
}
! if ($data{'streetaddress'} eq ''){
push @errors, "ERROR_address";
$nok=1;
***************
*** 121,125 ****
&modmember(%data);
}else{
! $data{borrowernumber} = &newmember(%data);
}
--- 121,131 ----
&modmember(%data);
}else{
! $borrowernumber = &newmember(%data);
! }
!
! if($destination eq "circ"){
! print $input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$data{'cardnumber'}");
! } else {
! print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$borrowernumber");
}
***************
*** 132,136 ****
}
if ($delete){
! print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$member");
} else { # this else goes down the whole script
if ($actionType eq 'Add'){
--- 138,142 ----
}
if ($delete){
! print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$borrowernumber");
} else { # this else goes down the whole script
if ($actionType eq 'Add'){
***************
*** 147,151 ****
}
} else {
! $data=borrdata('',$member);
}
if ($actionType eq 'Add'){
--- 153,157 ----
}
} else {
! $data=borrdata('',$borrowernumber);
}
if ($actionType eq 'Add'){
***************
*** 244,248 ****
ethcatpopup => $ethcatpopup,
catcodepopup => $catcodepopup,
! streetaddress => $data->{'physstreet'},
zipcode => $data->{'zipcode'},
streetcity => $data->{'streetcity'},
--- 250,255 ----
ethcatpopup => $ethcatpopup,
catcodepopup => $catcodepopup,
! streetaddress => $data->{'streetaddress'},
! physstreet => $data->{'physstreet'},
zipcode => $data->{'zipcode'},
streetcity => $data->{'streetcity'},
More information about the Koha-cvs
mailing list