fix for bug 858 (no warning when issuing a reserved book)
authortipaul <tipaul>
Thu, 18 Nov 2004 10:32:39 +0000 (10:32 +0000)
committertipaul <tipaul>
Thu, 18 Nov 2004 10:32:39 +0000 (10:32 +0000)
C4/Circulation/Circ2.pm
circ/circulation.pl
koha-tmpl/intranet-tmpl/default/en/circ/circulation.tmpl

index c023076..c7e314c 100755 (executable)
@@ -766,6 +766,7 @@ sub canbookbeissued {
                        my $branches = getbranches();
                        my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
                        $needsconfirmation{RESERVE_WAITING} = "$resborrower->{'firstname'} $resborrower->{'surname'} ($resborrower->{'cardnumber'}, $branchname)";
+                       CancelReserve(0, $res->{'itemnumber'}, $res->{'borrowernumber'});
                } elsif ($restype eq "Reserved") {
                        # The item is on reserve for someone else.
                        my ($resborrower, $flags)=getpatroninformation($env, $resbor,0);
index fa45531..2b3a80b 100755 (executable)
@@ -319,7 +319,6 @@ sub patrontable {
     my $flag;
     my $color='';
     foreach $flag (sort keys %$flags) {
-       warn $flag;
 #      my @itemswaiting='';
        $flags->{$flag}->{'message'}=~s/\n/<br>/g;
        if ($flags->{$flag}->{'noissues'}) {
index d8a8d62..65ce942 100644 (file)
                                <p>Not an issue but a renewal</p>
                        <!-- /TMPL_IF -->       
                        <!-- TMPL_IF NAME="RESERVE_WAITING" -->
-                               <p>Reserve waiting</p>
-                       <!-- /TMPL_IF -->       
+                               <p>Reserve waiting for <!-- TMPL_VAR NAME="RESERVE_WAITING" --></p>
+                       <!-- /TMPL_IF -->
+                       <!-- TMPL_IF NAME="RESERVED" -->
+                               <p>Reserved by <!-- TMPL_VAR NAME="RESERVED" --></p>
+                       <!-- /TMPL_IF -->
                        <!-- TMPL_IF NAME="ISSUED_TO_ANOTHER" -->
                                <p>Item issued to <!-- TMPL_VAR NAME="ISSUED_TO_ANOTHER" -->. Return &amp; issue?</p>
                        <!-- /TMPL_IF -->