summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d832c88)
Signed-off-by: Chris Cormack <crc@liblime.com>
# CHECKS step by step
# STEP 1
# CHECKS step by step
# STEP 1
-# if ($step eq 3) {
- if ($op eq 'add' && checkcardnumber($cardnumber)){
+ if ($op eq 'insert' && checkcardnumber($cardnumber)){
push @errors, 'ERROR_cardnumber';
$nok = 1;
}
push @errors, 'ERROR_cardnumber';
$nok = 1;
}
if ( ($newdata{'userid'} eq '')){
my $onefirstnameletter=substr($data{'firstname'},0,1);
my $fivesurnameletter=substr($data{'surname'},0,5);
if ( ($newdata{'userid'} eq '')){
my $onefirstnameletter=substr($data{'firstname'},0,1);
my $fivesurnameletter=substr($data{'surname'},0,5);
if ($op eq 'insert'){
# this value show if the login and password are been used
my $loginexist=checkuserpassword($borrowernumber,$data{'userid'},$data{'password'});
if ($op eq 'insert'){
# this value show if the login and password are been used
my $loginexist=checkuserpassword($borrowernumber,$data{'userid'},$data{'password'});
push @errors, "ERROR_login_exist";
$nok=1;
} else {
push @errors, "ERROR_login_exist";
$nok=1;
} else {
-# warn Data::Dumper::Dumper(%newdata);
$borrowernumber = &AddMember(%newdata);
if ($data{'organisations'}){
# need to add the members organisations
$borrowernumber = &AddMember(%newdata);
if ($data{'organisations'}){
# need to add the members organisations
if ($delete){
print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$borrowernumber");
}
if ($delete){
print $input->redirect("/cgi-bin/koha/deletemem.pl?member=$borrowernumber");
}
+if ($nok){
+ $template->param( "op$op" => 1);
+ %data=%newdata;
+ $template->param( updtype => ($op eq "insert"?'I':'M'),step_1=>1,step_2=>1,step_3=>1,allsteps=>1);
+}
# else { # this else goes down the whole script
# retrieve previous values : either in DB or in CGI, in case of errors in values
# my $data;
# else { # this else goes down the whole script
# retrieve previous values : either in DB or in CGI, in case of errors in values
# my $data;