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