circ/returns.pl

   1 #!/usr/bin/perl
   2
   3 #written 11/3/2002 by Finlay
   4 #script to execute returns of books
   5
   6 use strict;
   7 use CGI;
   8 use C4::Circulation::Circ2;
   9 use C4::Search;
  10 use C4::Output;
  11 use C4::Reserves2;
  12
  13 my %env;
  14 my $headerbackgroundcolor='#99cc33';
  15 my $circbackgroundcolor='#ffffcc';
  16 my $circbackgroundcolor='white';
  17 my $linecolor1='#ffffcc';
  18 my $linecolor2='white';
  19 my $backgroundimage="/images/background-mem.gif";
  20
  21 my $query=new CGI;
  22 my $branches = getbranches();
  23 my $printers = getprinters(\%env);
  24
  25 my $branch = $query->param("branch");
  26 my $printer = $query->param("printer");
  27
  28 ($branch) || ($branch=$query->cookie('branch')) ;
  29 ($printer) || ($printer=$query->cookie('printer')) ;
  30
  31 my $request=$query->param('request');
  32
  33
  34 #
  35 # Some code to handle the error if there is no branch or printer setting.....
  36 #
  37
  38
  39 $env{'branchcode'}=$branch;
  40 $env{'printer'}=$printer;
  41 $env{'queue'}=$printer;
  42
  43 # Set up the item stack ....
  44 my $ritext = '';
  45 my %returneditems;
  46 my %riduedate;
  47 my %riborrowernumber;
  48 foreach ($query->param) {
  49     (next) unless (/ri-(\d*)/);
  50     my $counter=$1;
  51     (next) if ($counter>20);
  52     my $barcode=$query->param("ri-$counter");
  53     my $duedate=$query->param("dd-$counter");
  54     my $borrowernumber=$query->param("bn-$counter");
  55     $counter++;
  56     # decode cuecat
  57     $barcode = cuecatbarcodedecode($barcode);
  58     $returneditems{$counter}=$barcode;
  59     $riduedate{$counter}=$duedate;
  60     $riborrowernumber{$counter}=$borrowernumber;
  61     $ritext.="<input type=hidden name=ri-$counter value=$barcode>\n";
  62     $ritext.="<input type=hidden name=dd-$counter value=$duedate>\n";
  63     $ritext.="<input type=hidden name=bn-$counter value=$borrowernumber>\n";
  64 }
  65
  66 # Collect a few messages here...
  67 my $messagetext='';
  68
  69 ############
  70 # Deal with the requests....
  71 if ($request eq "KillWaiting") {
  72     my $item = $query->param('itemnumber');
  73     my $borrnum = $query->param('borrowernumber');
  74     CancelReserve(0, $item, $borrnum);
  75     $messagetext .= "Reserve Cancelled<br>";
  76 }
  77 if ($request eq "SetWaiting") {
  78     my $item = $query->param('itemnumber');
  79     my $borrnum = $query->param('borrowernumber');
  80     my $barcode2 = $query->param('barcode2');
  81     my $tobranchcd = ReserveWaiting($item, $borrnum);
  82     my ($transfered, $messages, $iteminfo) = transferbook($tobranchcd, $barcode2, 1);
  83     $messagetext .= "Item should now be waiting at branch: <b>$branches->{$tobranchcd}->{'branchname'}</b><br>";
  84 }
  85 if ($request eq 'KillReserved'){
  86     my $biblio = $query->param('biblionumber');
  87     my $borrnum = $query->param('borrowernumber');
  88     CancelReserve($biblio, 0, $borrnum);
  89     $messagetext .= "Reserve Cancelled<br>";
  90 }
  91
  92
  93
  94 my $iteminformation;
  95 my $borrower;
  96 my $returned = 0;
  97 my $messages;
  98 my $barcode = $query->param('barcode');
  99 # actually return book (SQL CALL) and prepare item table.....
 100 if ($barcode) {
 101     # decode cuecat
 102     $barcode = cuecatbarcodedecode($barcode);
 103     ($returned, $messages, $iteminformation, $borrower) = returnbook($barcode, $branch);
 104     if ($returned) {
 105         $returneditems{0} = $barcode;
 106         $riborrowernumber{0} = $borrower->{'borrowernumber'};
 107         $riduedate{0} = $iteminformation->{'date_due'};
 108         $ritext.= "<input type=hidden name=ri-0 value=$barcode>\n";
 109         $ritext.= "<input type=hidden name=dd-0 value=$iteminformation->{'date_due'}>\n";
 110         $ritext.= "<input type=hidden name=bn-0 value=$borrower->{'borrowernumber'}>\n";
 111     }
 112 }
 113
 114 ##################################################################################
 115 # HTML code....
 116 # title....
 117 my $title = <<"EOF";
 118 <p>
 119 <table border=0 cellpadding=5 width=90%><tr>
 120 <td align="left"><FONT SIZE=6><em>Circulation: Returns</em></FONT><br>
 121 <b>Branch:</b> $branches->{$branch}->{'branchname'} &nbsp
 122 <b>Printer:</b> $printers->{$printer}->{'printername'}<br>
 123 <a href=selectbranchprinter.pl>Change Settings</a>
 124 </td>
 125 <td align="right" valign="top">
 126 <FONT SIZE=2  face="arial, helvetica">
 127 <a href=circulation.pl>Next Borrower</a> ||
 128 <a href=returns.pl>Returns</a> ||
 129 <a href=branchtransfers.pl>Transfers</a></font><p>
 130 </td></tr></table>
 131 <input type=hidden name=branch value=$branch>
 132 <input type=hidden name=printer value=$printer>
 133 </p>
 134 EOF
 135
 136 my $itemtable;
 137 if ($iteminformation) {
 138     $itemtable = <<"EOF";
 139 <table border=1 cellpadding=5 cellspacing=0>
 140 <tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage>
 141 <font color=black>Returned Item Information</font></th></tr>
 142 <tr><td>
 143 Title: $iteminformation->{'title'}<br>
 144 <!--Hlt decided they dont want these showing, uncoment the html to make it work
 145
 146 Author: $iteminformation->{'author'}<br>
 147 Barcode: <a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}
 148 &type=intra onClick="openWindow(this, 'Item', 480, 640)">$iteminformation->{'barcode'}</a><br>
 149 Date Due: $iteminformation->{'date_due'}-->
 150 </td></tr>
 151 </table>
 152 <p>
 153 EOF
 154 }
 155
 156 # Barcode entry box, with hidden inputs attached....
 157 my $barcodeentrytext = << "EOF";
 158 <form method=post action=/cgi-bin/koha/circ/returns.pl>
 159 <table border=1 cellpadding=5 cellspacing=0 align=left>
 160 <tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage>
 161 <font color=black><b>Enter Book Barcode</b></font></td></tr>
 162 <tr><td>Item Barcode:</td><td><input name=barcode size=10></td></tr>
 163 </table>
 164 $ritext
 165 </form>
 166 <img src="/images/holder.gif" width=24 height=50 align=left>
 167 EOF
 168
 169
 170 my $reservefoundtext;
 171 if ($messages->{'ResFound'}) {
 172     my $res = $messages->{'ResFound'};
 173     my $reservetext;
 174     my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
 175     my ($borr) = getpatroninformation(\%env, $res->{'borrowernumber'}, 0);
 176     my $name = $borr->{'surname'}." ".$borr->{'title'}." ".$borr->{'firstname'};
 177     my $number = "<a href=/cgi-bin/koha/moremember.pl?bornum=$borr->{'borrowernumber'} onClick='openWindow(this,'Member', 480, 640)'>$borr->{'cardnumber'}</a>";
 178     if ($res->{'ResFound'} eq "Waiting") {
 179         $reservetext = <<"EOF";
 180 <font color='red' size='+2'>Item marked Waiting:</font><br>
 181     Item is marked waiting at <b>$branchname</b> for $name ($number).<br>
 182 <table border=1 cellpadding=5 cellspacing=0>
 183 <tr><td>Cancel reservation: </td>
 184 <td>
 185 <form method=post action='returns.pl'>
 186 $ritext
 187 <input type=hidden name=itemnumber value=$res->{'itemnumber'}>
 188 <input type=hidden name=borrowernumber value=$res->{'borrowernumber'}>
 189 <input type=hidden name=request value='KillWaiting'>
 190 <input type=hidden name=barcode value=0>
 191 <input type=submit value="Cancel">
 192 </form>
 193 </td></tr>
 194 <tr><td>Back to returns: </td>
 195 <td>
 196 <form method=post action='returns.pl'>
 197 $ritext
 198 <input type=hidden name=barcode value=0>
 199 <input type=submit value="OK">
 200 </form>
 201 </td></tr></table>
 202 EOF
 203     }
 204     if ($res->{'ResFound'} eq "Reserved") {
 205         $reservetext = <<"EOF";
 206 <font color='red' size='+2'>Reserved:</font> reserve found for $name ($number).
 207 <table border=1 cellpadding=5 cellspacing=0>
 208 <tr><td>Set reserve to waiting and transfer book to <b>$branchname </b>: </td>
 209 <td>
 210 <form method=post action='returns.pl'>
 211 $ritext
 212 <input type=hidden name=itemnumber value=$res->{'itemnumber'}>
 213 <input type=hidden name=borrowernumber value=$res->{'borrowernumber'}>
 214 <input type=hidden name=barcode2 value=$barcode>
 215 <input type=hidden name=request value='SetWaiting'>
 216 <input type=submit value="Waiting">
 217 </form>
 218 </td></tr>
 219 <tr><td>Cancel reservation: </td>
 220 <td>
 221 <form method=post action='returns.pl'>
 222 $ritext
 223 <input type=hidden name=biblionumber value=$res->{'biblionumber'}>
 224 <input type=hidden name=borrowernumber value=$res->{'borrowernumber'}>
 225 <input type=hidden name=barcode value=0>
 226 <input type=hidden name=request value='KillReserved'>
 227 <input type=submit value="Cancel">
 228 </form>
 229 </td></tr><tr><td>Back to returns: </td>
 230 <td>
 231 <form method=post action='returns.pl'>
 232 <input type=hidden name=barcode value=0>
 233 $ritext
 234 <input type=submit value="OK">
 235 </form>
 236 </td></tr></table>
 237 EOF
 238     }
 239     $reservefoundtext = <<"EOF";
 240 <table border=1 cellpadding=5 cellspacing=0 bgcolor='#dddddd'>
 241 <tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage><font>Reserve Found</font></th></tr>
 242 <tr><td> $reservetext </td></tr></table>
 243 <img src="/images/holder.gif" width=24 height=24>
 244 EOF
 245 }
 246
 247 # collect the messages and put into message table....
 248 foreach my $code (keys %$messages) {
 249     if ($code eq 'BadBarcode'){
 250         $messagetext .= "<font color='red' size='+2'> No Item with barcode: $messages->{'BadBarcode'} </font> <br>";
 251     }
 252     if ($code eq 'NotIssued'){
 253         my $braname = $branches->{$messages->{'IsPermanent'}}->{'branchname'};
 254         $messagetext .= "<font color='red' size='+2'> Item is not Issued, cannot be returned. </font> <br>";
 255     }
 256     if ($code eq 'WasLost'){
 257         $messagetext .= "<font color='red' size='+2'> Item was lost, now found. </font> <br>";
 258     }
 259     if (($code eq 'IsPermanent') && (not $messages->{'ResFound'})) {
 260         if ($messages->{'IsPermanent'} ne $branch) {
 261             $messagetext .= "<font color='red' size='+2'> Item is part of permanent collection, please return to $branches->{$messages->{'IsPermanent'}}->{'branchname'} </font> <br>";
 262         }
 263     }
 264 }
 265 $messagetext = substr($messagetext, 0, -4);
 266
 267 my $messagetable;
 268 if ($messagetext) {
 269     $messagetable = << "EOF";
 270 <table border=1 cellpadding=5 cellspacing=0 bgcolor='#dddddd'>
 271 <tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage><font>Messages</font></th></tr>
 272 <tr><td> $messagetext </td></tr></table>
 273 EOF
 274 }
 275
 276
 277 # patrontable ....
 278 my $borrowertable;
 279 if ($borrower) {
 280     my $patrontable = << "EOF";
 281 <table border=1 cellpadding=5 cellspacing=0 align=right>
 282 <tr><td colspan=2 bgcolor=$headerbackgroundcolor background=$backgroundimage>
 283 <font color=black><b>Patron Information</b></font></td></tr>
 284 <tr><td colspan=2>
 285 <a href=/cgi-bin/koha/moremember.pl?bornum=$borrower->{'borrowernumber'}
 286 onClick="openWindow(this,'Member', 480, 640)">$borrower->{'cardnumber'}</a>
 287 $borrower->{'surname'}, $borrower->{'title'} $borrower->{'firstname'}<br>
 288 </td></tr></table>
 289 EOF
 290     my $flags = $borrower->{'flags'};
 291     my $flaginfotext='';
 292     my $flag;
 293     my $color = '';
 294     foreach $flag (sort keys %$flags) {
 295         ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
 296         $flags->{$flag}->{'message'}=~s/\n/<br>/g;
 297         if ($flags->{$flag}->{'noissues'}) {
 298             if ($flag eq 'CHARGES') {
 299                 $flaginfotext.= <<"EOF";
 300 <tr><td valign=top><font color=red>$flag</font></td>
 301 <td bgcolor=$color><b>$flags->{$flag}->{'message'}</b>
 302 <a href=/cgi-bin/koha/pay.pl?bornum=$borrower->{'borrowernumber'}
 303 onClick=\"openWindow(this, 'Payment', 480,640)\">Payment</a></td></tr>
 304 EOF
 305             } else {
 306                 $flaginfotext.= <<"EOF";
 307 <tr><td valign=top><font color=red>$flag</font></td>
 308 <td bgcolor=$color>$flags->{$flag}->{'message'}</td></tr>
 309 EOF
 310             }
 311         } else {
 312             if ($flag eq 'CHARGES') {
 313                 $flaginfotext .= << "EOF";
 314 <tr><td valign=top>$flag</td>
 315 <td> $flags->{$flag}->{'message'} <a href=/cgi-bin/koha/pay.pl?bornum=$borrower->{'borrowernumber'}
 316 onClick=\"openWindow(this, 'Payment', 480,640)\">Payment</a></td></tr>
 317 EOF
 318             } elsif ($flag eq 'WAITING') {
 319                 my $itemswaiting='';
 320                 my $items = $flags->{$flag}->{'itemlist'};
 321                 foreach my $item (@$items) {
 322                     my ($iteminformation) = getiteminformation(\%env, $item->{'itemnumber'}, 0);
 323                     $itemswaiting .= <<"EOF";
 324 <a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra
 325 onClick=\"openWindow(this, 'Item', 480, 640)\">$iteminformation->{'barcode'}</a>
 326 $iteminformation->{'title'} ($branches->{$iteminformation->{'holdingbranch'}}->{'branchname'})<br>
 327 EOF
 328                 }
 329                 $flaginfotext.="<tr><td valign=top>$flag</td><td>$itemswaiting</td></tr>\n";
 330             } elsif ($flag eq 'ODUES') {
 331                 my $items = $flags->{$flag}->{'itemlist'};
 332                 $flaginfotext .=  <<"EOF";
 333 <tr><td bgcolor=$color><font color=red>$flag</font></td>
 334 <td bgcolor=$color>Patron has Overdue books</td></tr>
 335 EOF
 336             } else {
 337                 $flaginfotext .= "<tr><td valign=top>$flag</td><td>$flags->{$flag}->{'message'}</td></tr>\n";
 338             }
 339         }
 340     }
 341     if ($flaginfotext) {
 342         $flaginfotext = << "EOF";
 343 <table border=1 cellpadding=5 cellspacing=0> <tr><td bgcolor=$headerbackgroundcolor background=$backgroundimage colspan=2><b>Flags</b></td></tr>
 344 $flaginfotext
 345 </table>
 346 EOF
 347     }
 348     $borrowertable = << "EOF";
 349 <table border=0 cellpadding=5>
 350 <tr>
 351 <td valign=top>$patrontable</td>
 352 <td valign=top>$flaginfotext</td>
 353 </tr>
 354 </table>
 355 EOF
 356 }
 357
 358 # the returned items.....
 359 my $returneditemstable = << "EOF";
 360 <br><p>
 361 <table border=1 cellpadding=5 cellspacing=0 align=left>
 362 <tr><th colspan=6 bgcolor=$headerbackgroundcolor background=$backgroundimage>
 363 <font color=black>Returned Items</font></th></tr>
 364 <tr><th>Due Date</th><th>Bar Code</th><th>Title</th><th>Author</th><th>Type</th><th>Borrower</th></tr>
 365 EOF
 366
 367 my $color='';
 368 #set up so only the lat 8 returned items display (make for faster loading pages)
 369 my $count=0;
 370 foreach (sort {$a <=> $b} keys %returneditems) {
 371     if ($count < 8) {
 372         ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
 373         my $barcode = $returneditems{$_};
 374         my $duedate = $riduedate{$_};
 375         my @datearr = localtime(time());
 376         ###
 377         # convert to nz date format
 378         my @tempdate = split(/-/,$duedate);
 379         $duedate = "$tempdate[2]/$tempdate[1]/$tempdate[0]";
 380         ####
 381         my $todaysdate
 382             = (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]);
 383         my $overduetext = "$duedate";
 384         ($overduetext="<font color=red>$duedate</font>") if ($duedate lt $todaysdate);
 385         ($duedate) || ($overduetext = "<img src=/images/blackdot.gif>");
 386         my $borrowernumber = $riborrowernumber{$_};
 387         my ($borrower) = getpatroninformation(\%env,$borrowernumber,0);
 388         my ($iteminformation) = getiteminformation(\%env, 0, $barcode);;
 389         $returneditemstable .= << "EOF";
 390 <tr><td bgcolor=$color>$overduetext</td>
 391 <td bgcolor=$color align=center>
 392 <a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}&type=intra onClick=\"openWindow(this, 'Item', 480, 640)\">$barcode</a></td>
 393 <td bgcolor=$color>$iteminformation->{'title'}</td>
 394 <td bgcolor=$color>$iteminformation->{'author'}</td>
 395 <td bgcolor=$color align=center>$iteminformation->{'itemtype'}</td>
 396 <td bgcolor=$color>
 397 <a href=/cgi-bin/koha/moremember.pl?bornum=$borrower->{'borrowernumber'} onClick=\"openWindow(this,'Member', 480, 640)\">$borrower->{'cardnumber'}</a> $borrower->{'firstname'} $borrower->{'surname'}</td></tr>
 398 EOF
 399     } else {
 400         last;
 401     }
 402     $count++;
 403 }
 404 $returneditemstable .= "</table>\n";
 405
 406
 407 # actually print the page!
 408 print $query->header();
 409 print startpage();
 410 print startmenu('circulation');
 411
 412 print $title;
 413
 414 if ($reservefoundtext) {
 415     print $reservefoundtext;
 416 } else {
 417     print $barcodeentrytext;
 418 }
 419
 420 print $messagetable;
 421
 422 if ($returned) {
 423     print $itemtable;
 424     print $borrowertable;
 425 }
 426 (print $returneditemstable) if (%returneditems);
 427
 428 print endmenu('circulation');
 429 print endpage();
 430
 431 sub cuecatbarcodedecode {
 432     my ($barcode) = @_;
 433     chomp($barcode);
 434     my @fields = split(/\./,$barcode);
 435     my @results = map(decode($_), @fields[1..$#fields]);
 436     if ($#results == 2){
 437         return $results[2];
 438     } else {
 439         return $barcode;
 440     }
 441 }
 442