[Koha-devel] CVS: koha memberentry.pl,1.1.1.1,1.2 insertdata.pl,1.1.1.1,1.2

[Chris Cornack]

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>&nbsp; </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>&nbsp; </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;