Update of /cvsroot/koha/koha In directory usw-pr-cvs1:/tmp/cvs-serv13116 Modified Files: memberentry.pl insertdata.pl Log Message: Added the functionality to allow librarians to manipulate the flag status on borrowers ie lost, debarred, and gone no address Index: memberentry.pl =================================================================== RCS file: /cvsroot/koha/koha/memberentry.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** memberentry.pl 2000/12/19 23:45:52 1.1.1.1 --- memberentry.pl 2001/03/07 01:48:48 1.2 *************** *** 16,24 **** } my $type=$input->param('type'); ! print $input->header; print startpage(); print startmenu('member'); ! if ($type ne 'Add'){ print mkheadr(1,'Update Member Details'); --- 16,24 ---- } my $type=$input->param('type'); ! my $modify=$input->param('modify.x'); print $input->header; print startpage(); print startmenu('member'); ! #print $modify; if ($type ne 'Add'){ print mkheadr(1,'Update Member Details'); *************** *** 372,380 **** <td COLSPAN=4><textarea name=borrowernotes wrap=physical cols=70 rows=3>$data->{'borrowernotes'}</textarea></td></tr> <tr><td>  </TD></TR> ! <tr valign=top bgcolor=white><td COLSPAN=5 align=right > printend ; ! if ($type ne 'modify'){ print <<printend <input type=image src="/images/save-changes.gif" WIDTH=188 HEIGHT=44 ALT="Add New Member" border=0 ></td> printend --- 372,415 ---- <td COLSPAN=4><textarea name=borrowernotes wrap=physical cols=70 rows=3>$data->{'borrowernotes'}</textarea></td></tr> <tr><td>  </TD></TR> ! ! printend ! ; ! if ($modify){ ! print <<printend ! <tr><td><Font size=2>FLAGS</font></td></tr> ! <tr><td>Gone No Address</td> ! <td><input type=radio name=gna value=1 printend ; ! if ($data->{'gonenoaddress'} eq '1'){ ! print " checked"; ! } ! print ">Yes <input type=radio name=gna value=0"; ! if ($data->{'gonenoaddress'} eq '0'){ ! print " checked"; ! } ! print ">No</td></tr>\n"; ! print "<tr><td>Lost</td><td><input type=radio name=lost value=1"; ! if ($data->{'lost'} eq '1'){ ! print " checked"; ! } ! print ">Yes<input type=radio name=lost value=0"; ! if ($data->{'lost'} eq '0'){ ! print " checked"; ! } ! print ">No</td></tr>\n"; ! print "<tr><td>Debarred</td><td><input type=radio name=debarred value=1"; ! if ($data->{'debarred'} eq '1'){ ! print " checked"; ! } ! print ">Yes<input type=radio name=debarred value=0"; ! if ($data->{'debarred'} eq '0'){ ! print " checked"; ! } ! print ">No</td></tr>\n"; ! } ! if ($type eq 'Add'){ print <<printend + <tr valign=top bgcolor=white><td COLSPAN=5 align=right > <input type=image src="/images/save-changes.gif" WIDTH=188 HEIGHT=44 ALT="Add New Member" border=0 ></td> printend *************** *** 382,385 **** --- 417,421 ---- } else { print <<printend + <tr valign=top bgcolor=white><td COLSPAN=5 align=right > <input type=image src="/images/save-changes.gif" WIDTH=188 HEIGHT=44 ALT="Add New Member" border=0 ></td> printend Index: insertdata.pl =================================================================== RCS file: /cvsroot/koha/koha/insertdata.pl,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -r1.1.1.1 -r1.2 *** insertdata.pl 2000/12/19 23:45:51 1.1.1.1 --- insertdata.pl 2001/03/07 01:48:48 1.2 *************** *** 38,42 **** categorycode='$data{'categorycode'}',city='$data{'city'}',area='$data{'area'}',phone='$data{'phone'}', borrowernotes='$data{'borrowernotes'}',altphone='$data{'altphone'}',surname='$data{'surname'}', ! initials='$data{'initials'}',streetaddress='$data{'address'}',ethnicity='$data{'ethnicity'}' where borrowernumber=$data{'borrowernumber'}"; # print $query; --- 38,43 ---- categorycode='$data{'categorycode'}',city='$data{'city'}',area='$data{'area'}',phone='$data{'phone'}', borrowernotes='$data{'borrowernotes'}',altphone='$data{'altphone'}',surname='$data{'surname'}', ! initials='$data{'initials'}',streetaddress='$data{'address'}',ethnicity='$data{'ethnicity'}', ! gonenoaddress='$data{'gna'}',lost='$data{'lost'}',debarred='$data{'debarred'}' where borrowernumber=$data{'borrowernumber'}"; # print $query;