[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha memberentry.pl,1.1.1.1,1.2 insertdata.pl,1.1.1.1,
From: |
Chris Cornack |
Subject: |
[Koha-devel] CVS: koha memberentry.pl,1.1.1.1,1.2 insertdata.pl,1.1.1.1,1.2 |
Date: |
Tue, 06 Mar 2001 17:48:50 -0800 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha memberentry.pl,1.1.1.1,1.2 insertdata.pl,1.1.1.1,1.2,
Chris Cornack <=