circ/returns.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2000-2002 Katipo Communications
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it under the
   8 # terms of the GNU General Public License as published by the Free Software
   9 # Foundation; either version 2 of the License, or (at your option) any later
  10 # version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along with
  17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  18 # Suite 330, Boston, MA  02111-1307 USA
  19
  20 =head1 returns.pl
  21
  22 script to execute returns of books
  23
  24 written 11/3/2002 by Finlay
  25
  26 =cut
  27
  28 use strict;
  29 use CGI;
  30 use C4::Context;
  31 use C4::Auth;
  32 use C4::Output;
  33 use C4::Circulation;
  34 use C4::Date;
  35 use C4::Print;
  36 use C4::Reserves;
  37 use C4::Biblio;
  38 use C4::Members;
  39 use C4::Branch; # GetBranchName
  40 use C4::Koha;   # FIXME : is it still useful ?
  41
  42 my $query = new CGI;
  43
  44 #getting the template
  45 my ( $template, $librarian, $cookie ) = get_template_and_user(
  46     {
  47         template_name   => "circ/returns.tmpl",
  48         query           => $query,
  49         type            => "intranet",
  50         authnotrequired => 0,
  51         flagsrequired   => { circulate => 1 },
  52     }
  53 );
  54
  55 #####################
  56 #Global vars
  57 my $branches = GetBranches();
  58 my $printers = GetPrinters();
  59
  60 #my $branch  = C4::Context->userenv?C4::Context->userenv->{'branch'}:"";
  61 my $printer = C4::Context->userenv?C4::Context->userenv->{'branchprinter'}:"";
  62
  63 #
  64 # Some code to handle the error if there is no branch or printer setting.....
  65 #
  66
  67 # Set up the item stack ....
  68 my %returneditems;
  69 my %riduedate;
  70 my %riborrowernumber;
  71 my @inputloop;
  72 foreach ( $query->param ) {
  73     (next) unless (/ri-(\d*)/);
  74     my %input;
  75     my $counter = $1;
  76     (next) if ( $counter > 20 );
  77     my $barcode        = $query->param("ri-$counter");
  78     my $duedate        = $query->param("dd-$counter");
  79     my $borrowernumber = $query->param("bn-$counter");
  80     $counter++;
  81
  82     # decode cuecat
  83     $barcode = cuecatbarcodedecode($barcode);
  84
  85     ######################
  86     #Are these lines still useful ?
  87     $returneditems{$counter}    = $barcode;
  88     $riduedate{$counter}        = $duedate;
  89     $riborrowernumber{$counter} = $borrowernumber;
  90
  91     #######################
  92     $input{counter}        = $counter;
  93     $input{barcode}        = $barcode;
  94     $input{duedate}        = $duedate;
  95     $input{borrowernumber} = $borrowernumber;
  96     push( @inputloop, \%input );
  97 }
  98
  99 ############
 100 # Deal with the requests....
 101
 102 if ($query->param('WT-itemNumber')){
 103 updateWrongTransfer ($query->param('WT-itemNumber'),$query->param('WT-waitingAt'),$query->param('WT-From'));
 104 }
 105
 106
 107 if ( $query->param('resbarcode') ) {
 108     my $item           = $query->param('itemnumber');
 109     my $borrowernumber = $query->param('borrowernumber');
 110     my $resbarcode     = $query->param('resbarcode');
 111     my $diffBranchReturned = $query->param('diffBranch');
 112     # set to waiting....
 113     my $iteminfo   = GetBiblioFromItemNumber($item);
 114     my $diffBranchSend;
 115
 116 #     addin in ModReserveAffect the possibility to check if the document is expected in this library or not,
 117 # if not we send a value in reserve waiting for not implementting waiting status
 118         if ($diffBranchReturned) {
 119         $diffBranchSend = $diffBranchReturned;
 120         }
 121         else {
 122         $diffBranchSend = undef;
 123         }
 124
 125     ModReserveAffect( $item, $borrowernumber,$diffBranchSend);
 126 #   check if we have other reservs for this document, if we have a return send the message of transfer
 127     my ( $messages, $nextreservinfo ) = GetOtherReserves($item);
 128
 129     my $branchname = GetBranchName( $messages->{'transfert'} );
 130     my ($borr) = GetMemberDetails( $nextreservinfo, 0 );
 131     my $borcnum = $borr->{'cardnumber'};
 132     my $name    =
 133       $borr->{'surname'} . ", " . $borr->{'title'} . " " . $borr->{'firstname'};
 134     my $slip = $query->param('resslip');
 135
 136
 137     if ( $messages->{'transfert'} ) {
 138         $template->param(
 139             itemtitle      => $iteminfo->{'title'},
 140             iteminfo       => $iteminfo->{'author'},
 141             tobranchname   => $branchname,
 142             name           => $name,
 143             borrowernumber => $borrowernumber,
 144             borcnum        => $borcnum,
 145             borfirstname   => $borr->{'firstname'},
 146             borsurname     => $borr->{'surname'},
 147             diffbranch     => 1
 148         );
 149     }
 150 }
 151
 152 my $borrower;
 153 my $returned = 0;
 154 my $messages;
 155 my $issueinformation;
 156 my $barcode = $query->param('barcode');
 157
 158 # actually return book and prepare item table.....
 159 if ($barcode) {
 160     # decode cuecat
 161     $barcode = cuecatbarcodedecode($barcode);
 162 #
 163 # save the return
 164 #
 165     ( $returned, $messages, $issueinformation, $borrower ) =
 166       AddReturn( $barcode, C4::Context->userenv->{'branch'} );
 167     # get biblio description
 168     my $biblio = GetBiblioFromItemNumber($issueinformation->{'itemnumber'});
 169     $template->param(
 170         title            => $biblio->{'title'},
 171         homebranch       => $biblio->{'homebranch'},
 172         author           => $biblio->{'author'},
 173         itembarcode      => $biblio->{'barcode'},
 174         itemtype         => $biblio->{'itemtype'},
 175         ccode            => $biblio->{'ccode'},
 176         itembiblionumber => $biblio->{'biblionumber'},
 177     );
 178     if ($returned) {
 179         $returneditems{0}    = $barcode;
 180         $riborrowernumber{0} = $borrower->{'borrowernumber'};
 181         $riduedate{0}        = $issueinformation->{'date_due'};
 182         my %input;
 183         $input{counter}        = 0;
 184         $input{first}          = 1;
 185         $input{barcode}        = $barcode;
 186         $input{duedate}        = $riduedate{0};
 187         $input{borrowernumber} = $riborrowernumber{0};
 188         push( @inputloop, \%input );
 189
 190         # check if the branch is the same as homebranch
 191         # if not, we want to put a message
 192         if ( $biblio->{'homebranch'} ne C4::Context->userenv->{'branch'} ) {
 193             $template->param( homebranch => $biblio->{'homebranch'} );
 194         }
 195     }
 196     elsif ( !$messages->{'BadBarcode'} ) {
 197         my %input;
 198         $input{counter} = 0;
 199         $input{first}   = 1;
 200         $input{barcode} = $barcode;
 201         $input{duedate} = 0;
 202
 203         $returneditems{0} = $barcode;
 204         $riduedate{0}     = 0;
 205         if ( $messages->{'wthdrawn'} ) {
 206             $input{withdrawn}      = 1;
 207             $input{borrowernumber} = "Item Cancelled";
 208             $riborrowernumber{0}   = 'Item Cancelled';
 209         }
 210         else {
 211             $input{borrowernumber} = "&nbsp;";
 212             $riborrowernumber{0} = '&nbsp;';
 213         }
 214         push( @inputloop, \%input );
 215     }
 216 }
 217 $template->param( inputloop => \@inputloop );
 218
 219 my $found    = 0;
 220 my $waiting  = 0;
 221 my $reserved = 0;
 222
 223 # new op dev : we check if the document must be returned to his homebranch directly,
 224 #  if the document is transfered, we have warning message .
 225
 226 if ( $messages->{'WasTransfered'} ) {
 227     $template->param(
 228         found          => 1,
 229         transfer       => 1,
 230     );
 231
 232 }
 233
 234 # adding a case of wrong transfert, if the document wasn't transfered in the good library (according to branchtransfer (tobranch) BDD)
 235
 236 if ( $messages->{'WrongTransfer'} and not $messages->{'WasTransfered'}) {
 237         $template->param(
 238         WrongTransfer  => 1,
 239         TransferWaitingAt => $messages->{'WrongTransfer'},
 240         WrongTransferItem => $messages->{'WrongTransferItem'},
 241     );
 242
 243     my $reserve        = $messages->{'ResFound'};
 244     my $branchname = $branches->{ $reserve->{'branchcode'} }->{'branchname'};
 245     my ($borr) = GetMemberDetails( $reserve->{'borrowernumber'}, 0 );
 246     my $name =
 247       $borr->{'surname'} . " " . $borr->{'title'} . " " . $borr->{'firstname'};
 248         $template->param(
 249             wname           => $name,
 250             wborfirstname   => $borr->{'firstname'},
 251             wborsurname     => $borr->{'surname'},
 252             wbortitle       => $borr->{'title'},
 253             wborphone       => $borr->{'phone'},
 254             wboremail       => $borr->{'emailaddress'},
 255             wborstraddress  => $borr->{'streetaddress'},
 256             wborcity        => $borr->{'city'},
 257             wborzip         => $borr->{'zipcode'},
 258             wborrowernumber => $reserve->{'borrowernumber'},
 259             wborcnum        => $borr->{'cardnumber'},
 260             wtransfertFrom    => C4::Context->userenv->{'branch'},
 261         );
 262 }
 263
 264
 265 #
 266 # reserve found and item arrived at the expected branch
 267 #
 268 if ( $messages->{'ResFound'} and not $messages->{'WrongTransfer'}) {
 269     my $reserve        = $messages->{'ResFound'};
 270     my $branchname = $branches->{ $reserve->{'branchcode'} }->{'branchname'};
 271     my ($borr) = GetMemberDetails( $reserve->{'borrowernumber'}, 0 );
 272     if ( $reserve->{'ResFound'} eq "Waiting" ) {
 273         if ( C4::Context->userenv->{'branch'} eq $reserve->{'branchcode'} ) {
 274             $template->param( waiting => 1 );
 275         }
 276         else {
 277             $template->param( waiting => 0 );
 278         }
 279
 280         $template->param(
 281             found          => 1,
 282             name           => $borr->{'surname'} . " " . $borr->{'title'} . " " . $borr->{'firstname'},
 283             borfirstname   => $borr->{'firstname'},
 284             borsurname     => $borr->{'surname'},
 285             bortitle       => $borr->{'title'},
 286             borphone       => $borr->{'phone'},
 287             boremail       => $borr->{'emailaddress'},
 288             borstraddress  => $borr->{'streetaddress'},
 289             borcity        => $borr->{'city'},
 290             borzip         => $borr->{'zipcode'},
 291             borrowernumber => $reserve->{'borrowernumber'},
 292             borcnum        => $borr->{'cardnumber'},
 293             debarred       => $borr->{'debarred'},
 294             gonenoaddress  => $borr->{'gonenoaddress'},
 295             currentbranch  => $branches->{C4::Context->userenv->{'branch'}}->{'branchname'},
 296             itemnumber       => $reserve->{'itemnumber'},
 297         );
 298
 299     }
 300     if ( $reserve->{'ResFound'} eq "Reserved" ) {
 301         my @da         = localtime( time() );
 302         my $todaysdate =
 303             sprintf( "%0.2d", ( $da[3] + 1 ) ) . "/"
 304           . sprintf( "%0.2d", ( $da[4] + 1 ) ) . "/"
 305           . ( $da[5] + 1900 );
 306
 307         if ( C4::Context->userenv->{'branch'} eq $reserve->{'branchcode'} ) {
 308             $template->param( intransit => 0 );
 309         }
 310         else {
 311             $template->param( intransit => 1 );
 312         }
 313
 314         $template->param(
 315             found          => 1,
 316             currentbranch  => $branches->{C4::Context->userenv->{'branch'}}->{'branchname'},
 317             destbranchname =>
 318               $branches->{ $reserve->{'branchcode'} }->{'branchname'},
 319             destbranch     => $reserve->{'branchcode'},
 320             transfertodo => ( C4::Context->userenv->{'branch'} eq $reserve->{'branchcode'} ? 0 : 1 ),
 321             reserved => 1,
 322             today            => $todaysdate,
 323             itemnumber       => $reserve->{'itemnumber'},
 324             borsurname       => $borr->{'surname'},
 325             bortitle         => $borr->{'title'},
 326             borfirstname     => $borr->{'firstname'},
 327             borrowernumber   => $reserve->{'borrowernumber'},
 328             borcnum          => $borr->{'cardnumber'},
 329             borphone         => $borr->{'phone'},
 330             borstraddress    => $borr->{'streetaddress'},
 331             borsub           => $borr->{'suburb'},
 332             borcity          => $borr->{'city'},
 333             borzip           => $borr->{'zipcode'},
 334             boremail         => $borr->{'emailaddress'},
 335             debarred         => $borr->{'debarred'},
 336             gonenoaddress    => $borr->{'gonenoaddress'},
 337             barcode          => $barcode
 338         );
 339     }
 340 }
 341
 342 # Error Messages
 343 my @errmsgloop;
 344 foreach my $code ( keys %$messages ) {
 345
 346     #    warn $code;
 347     my %err;
 348     my $exit_required_p = 0;
 349     if ( $code eq 'BadBarcode' ) {
 350         $err{badbarcode} = 1;
 351         $err{msg}        = $messages->{'BadBarcode'};
 352     }
 353     elsif ( $code eq 'NotIssued' ) {
 354         $err{notissued} = 1;
 355         $err{msg} = $branches->{ $messages->{'IsPermanent'} }->{'branchname'};
 356     }
 357     elsif ( $code eq 'WasLost' ) {
 358         $err{waslost} = 1;
 359     }
 360     elsif ( $code eq 'ResFound' ) {
 361         ;    # FIXME... anything to do here?
 362     }
 363     elsif ( $code eq 'WasReturned' ) {
 364         ;    # FIXME... anything to do here?
 365     }
 366     elsif ( $code eq 'WasTransfered' ) {
 367         ;    # FIXME... anything to do here?
 368     }
 369     elsif ( $code eq 'wthdrawn' ) {
 370         $err{withdrawn} = 1;
 371         $exit_required_p = 1;
 372     }
 373     elsif ( ( $code eq 'IsPermanent' ) && ( not $messages->{'ResFound'} ) ) {
 374         if ( $messages->{'IsPermanent'} ne C4::Context->userenv->{'branch'} ) {
 375             $err{ispermanent} = 1;
 376             $err{msg}         =
 377               $branches->{ $messages->{'IsPermanent'} }->{'branchname'};
 378         }
 379     }
 380     elsif ( $code eq 'WrongTransfer' ) {
 381         ;    # FIXME... anything to do here?
 382     }
 383     elsif ( $code eq 'WrongTransferItem' ) {
 384         ;    # FIXME... anything to do here?
 385     }
 386     else {
 387         die "Unknown error code $code";    # XXX
 388     }
 389     if (%err) {
 390         push( @errmsgloop, \%err );
 391     }
 392     last if $exit_required_p;
 393 }
 394 $template->param( errmsgloop => \@errmsgloop );
 395
 396 # patrontable ....
 397 if ($borrower) {
 398     my $flags = $borrower->{'flags'};
 399     my @flagloop;
 400     my $flagset;
 401     foreach my $flag ( sort keys %$flags ) {
 402         my %flaginfo;
 403         unless ($flagset) { $flagset = 1; }
 404         $flaginfo{redfont} = ( $flags->{$flag}->{'noissues'} );
 405         $flaginfo{flag}    = $flag;
 406         if ( $flag eq 'CHARGES' ) {
 407             $flaginfo{msg}            = $flag;
 408             $flaginfo{charges}        = 1;
 409             $flaginfo{borrowernumber} = $borrower->{borrowernumber};
 410         }
 411         elsif ( $flag eq 'WAITING' ) {
 412             $flaginfo{msg}     = $flag;
 413             $flaginfo{waiting} = 1;
 414             my @waitingitemloop;
 415             my $items = $flags->{$flag}->{'itemlist'};
 416             foreach my $item (@$items) {
 417                 my $biblio =
 418                   GetBiblioFromItemNumber( $item->{'itemnumber'});
 419                 my %waitingitem;
 420                 $waitingitem{biblionum} = $biblio->{'biblionumber'};
 421                 $waitingitem{barcode}   = $biblio->{'barcode'};
 422                 $waitingitem{title}     = $biblio->{'title'};
 423                 $waitingitem{brname}    =
 424                   $branches->{ $biblio->{'holdingbranch'} }
 425                   ->{'branchname'};
 426                 push( @waitingitemloop, \%waitingitem );
 427             }
 428             $flaginfo{itemloop} = \@waitingitemloop;
 429         }
 430         elsif ( $flag eq 'ODUES' ) {
 431             my $items = $flags->{$flag}->{'itemlist'};
 432             my @itemloop;
 433             foreach my $item ( sort { $a->{'date_due'} cmp $b->{'date_due'} }
 434                 @$items )
 435             {
 436                 my $biblio =
 437                   GetBiblioFromItemNumber( $item->{'itemnumber'});
 438                 my %overdueitem;
 439                 $overdueitem{duedate}   = format_date( $item->{'date_due'} );
 440                 $overdueitem{biblionum} = $biblio->{'biblionumber'};
 441                 $overdueitem{barcode}   = $biblio->{'barcode'};
 442                 $overdueitem{title}     = $biblio->{'title'};
 443                 $overdueitem{brname}    =
 444                   $branches->{ $biblio->{'holdingbranch'} }
 445                   ->{'branchname'};
 446                 push( @itemloop, \%overdueitem );
 447             }
 448             $flaginfo{itemloop} = \@itemloop;
 449             $flaginfo{overdue}  = 1;
 450         }
 451         else {
 452             $flaginfo{other} = 1;
 453             $flaginfo{msg}   = $flags->{$flag}->{'message'};
 454         }
 455         push( @flagloop, \%flaginfo );
 456     }
 457     $template->param(
 458         flagset          => $flagset,
 459         flagloop         => \@flagloop,
 460         riborrowernumber => $borrower->{'borrowernumber'},
 461         riborcnum        => $borrower->{'cardnumber'},
 462         riborsurname     => $borrower->{'surname'},
 463         ribortitle       => $borrower->{'title'},
 464         riborfirstname   => $borrower->{'firstname'}
 465     );
 466 }
 467
 468 #set up so only the last 8 returned items display (make for faster loading pages)
 469 my $count = 0;
 470 my @riloop;
 471 foreach ( sort { $a <=> $b } keys %returneditems ) {
 472     my %ri;
 473     if ( $count < 8 ) {
 474         my $barcode = $returneditems{$_};
 475         my $duedate = $riduedate{$_};
 476         my $overduetext;
 477         my $borrowerinfo;
 478         if ($duedate) {
 479             my @tempdate = split( /-/, $duedate );
 480             $ri{year}  = $tempdate[0];
 481             $ri{month} = $tempdate[1];
 482             $ri{day}   = $tempdate[2];
 483             my $duedatenz  = "$tempdate[2]/$tempdate[1]/$tempdate[0]";
 484             my @datearr    = localtime( time() );
 485             my $todaysdate =
 486                 $datearr[5] . '-'
 487               . sprintf( "%0.2d", ( $datearr[4] + 1 ) ) . '-'
 488               . sprintf( "%0.2d", $datearr[3] );
 489             $ri{duedate} = format_date($duedate);
 490             my ($borrower) =
 491               GetMemberDetails( $riborrowernumber{$_}, 0 );
 492             $ri{borrowernumber} = $borrower->{'borrowernumber'};
 493             $ri{borcnum}        = $borrower->{'cardnumber'};
 494             $ri{borfirstname}   = $borrower->{'firstname'};
 495             $ri{borsurname}     = $borrower->{'surname'};
 496             $ri{bortitle}       = $borrower->{'title'};
 497         }
 498         else {
 499             $ri{borrowernumber} = $riborrowernumber{$_};
 500         }
 501
 502         #        my %ri;
 503         my $biblio = GetBiblioFromItemNumber(GetItemnumberFromBarcode($barcode));
 504         $ri{itembiblionumber} = $biblio->{'biblionumber'};
 505         $ri{itemtitle}        = $biblio->{'title'};
 506         $ri{itemauthor}       = $biblio->{'author'};
 507         $ri{itemtype}         = $biblio->{'itemtype'};
 508         $ri{ccode}            = $biblio->{'ccode'};
 509         $ri{barcode}          = $barcode;
 510     }
 511     else {
 512         last;
 513     }
 514     $count++;
 515     push( @riloop, \%ri );
 516 }
 517 $template->param( riloop => \@riloop );
 518
 519 $template->param(
 520     genbrname               => $branches->{C4::Context->userenv->{'branch'}}->{'branchname'},
 521     genprname               => $printers->{$printer}->{'printername'},
 522     branchname              => $branches->{C4::Context->userenv->{'branch'}}->{'branchname'},
 523     printer                 => $printer,
 524     errmsgloop              => \@errmsgloop,
 525     intranetcolorstylesheet =>
 526       C4::Context->preference("intranetcolorstylesheet"),
 527     intranetstylesheet => C4::Context->preference("intranetstylesheet"),
 528     IntranetNav        => C4::Context->preference("IntranetNav"),
 529 );
 530
 531 # actually print the page!
 532 output_html_with_http_headers $query, $cookie, $template->output;