[Koha-cvs] CVS: koha/circ returns.pl,1.9,1.10
Finlay Thompson
finlayt at users.sourceforge.net
Fri Jul 26 03:09:57 CEST 2002
Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv28054/circ
Modified Files:
returns.pl
Log Message:
added the book title and author to the reserve messages.
Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** returns.pl 24 Jul 2002 03:14:04 -0000 1.9
--- returns.pl 26 Jul 2002 01:09:55 -0000 1.10
***************
*** 74,77 ****
--- 74,78 ----
my $resbarcode = $query->param('resbarcode');
my $tobranchcd = ReserveWaiting($item, $borrnum);
+ warn "tobranchcd = $tobranchcd";
my $branchname = $branches->{$tobranchcd}->{'branchname'};
my ($borr) = getpatroninformation(\%env, $borrnum, 0);
***************
*** 84,88 ****
$reservetext .= <<"EOF";
<font color='red' size='+2'>Item marked Waiting:</font><br>
! Item needs to be transfered to <b>$branchname</b> <br>
to be picked up by $name ($number).
<center><form method=post action='returns.pl'>
--- 85,90 ----
$reservetext .= <<"EOF";
<font color='red' size='+2'>Item marked Waiting:</font><br>
! Item: $iteminfo->{'title'} ($iteminfo->{'author'})<br>
! needs to be transfered to <b>$branchname</b> <br>
to be picked up by $name ($number).
<center><form method=post action='returns.pl'>
***************
*** 182,186 ****
$reservetext = <<"EOF";
<font color='red' size='+2'>Item marked Waiting:</font><br>
! Item is marked waiting at <b>$branchname</b> for $name ($number).
<center><form method=post action='returns.pl'>
$ritext
--- 184,189 ----
$reservetext = <<"EOF";
<font color='red' size='+2'>Item marked Waiting:</font><br>
! Item $iteminfo->{'title'} ($iteminfo->{'author'}) <br>
! is marked waiting at <b>$branchname</b> for $name ($number).
<center><form method=post action='returns.pl'>
$ritext
***************
*** 216,220 ****
$reservetext = <<"EOF";
! <font color='red' size='+2'>Reserved found:</font> for $name ($number).
<table cellpadding=5 cellspacing=0>
<tr><td valign="top">Change status to waiting and print
--- 219,224 ----
$reservetext = <<"EOF";
! <font color='red' size='+2'>Reserved found:</font> Item: $iteminfo->{'title'} ($iteminfo->{'author'}) <br>
! for $name ($number).
<table cellpadding=5 cellspacing=0>
<tr><td valign="top">Change status to waiting and print
More information about the Koha-cvs
mailing list