reserve/request.pl

   1 #!/usr/bin/perl
   2
   3
   4 #writen 2/1/00 by chris@katipo.oc.nz
   5 # Copyright 2000-2002 Katipo Communications
   6 #
   7 # This file is part of Koha.
   8 #
   9 # Koha is free software; you can redistribute it and/or modify it under the
  10 # terms of the GNU General Public License as published by the Free Software
  11 # Foundation; either version 2 of the License, or (at your option) any later
  12 # version.
  13 #
  14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  16 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License along with
  19 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  20 # Suite 330, Boston, MA  02111-1307 USA
  21
  22 =head1 request.pl
  23
  24 script to place reserves/requests
  25
  26 =cut
  27
  28 use strict;
  29 use C4::Branch; # GetBranches get_branchinfos_of
  30 use CGI;
  31 use List::MoreUtils qw/uniq/;
  32 use Date::Calc qw/Today Date_to_Days/;
  33 use C4::Output;
  34 use C4::Auth;
  35 use C4::Reserves;
  36 use C4::Biblio;
  37 use C4::Koha;
  38 use C4::Circulation;
  39 use C4::Date;
  40 use C4::Members;
  41
  42 my $dbh = C4::Context->dbh;
  43 my $sth;
  44 my $input = new CGI;
  45 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
  46     {
  47         template_name   => "reserve/request.tmpl",
  48         query           => $input,
  49         type            => "intranet",
  50         authnotrequired => 0,
  51         flagsrequired   => { reserveforothers => 1 },
  52     }
  53 );
  54
  55 # get biblio information....
  56 my $biblionumber = $input->param('biblionumber');
  57 my $dat          = GetBiblioData($biblionumber);
  58
  59 # Select borrowers infos
  60 my $findborrower = $input->param('findborrower');
  61 $findborrower =~ s|,| |g;
  62 my $cardnumber = $input->param('cardnumber');
  63 my $borrowerslist;
  64 my $messageborrower;
  65
  66 my $date = sprintf( '%04d-%02d-%02d', Today() );
  67
  68 if ($findborrower) {
  69     my ( $count, $borrowers ) =
  70       SearchMember($findborrower, 'cardnumber', 'web' );
  71
  72     my @borrowers = @$borrowers;
  73
  74     if ( $#borrowers == -1 ) {
  75         $input->param( 'findborrower', '' );
  76         $messageborrower = "'$findborrower'";
  77     }
  78     elsif ( $#borrowers == 0 ) {
  79         $input->param( 'cardnumber', $borrowers[0]->{'cardnumber'} );
  80         $cardnumber = $borrowers[0]->{'cardnumber'};
  81     }
  82     else {
  83         $borrowerslist = \@borrowers;
  84     }
  85 }
  86
  87 if ($cardnumber) {
  88     my $borrowerinfo = GetMemberDetails( 0, $cardnumber );
  89     my $expiry;
  90     my $diffbranch;
  91     my @getreservloop;
  92     my $count_reserv = 0;
  93     my $maxreserves;
  94
  95 #       we check the reserves of the borrower, and if he can reserv a document
  96 # FIXME At this time we have a simple count of reservs, but, later, we could improve the infos "title" ...
  97
  98     my $number_reserves =
  99       GetReserveCount( $borrowerinfo->{'borrowernumber'} );
 100
 101     if ( $number_reserves > C4::Context->preference('maxreserves') ) {
 102         $maxreserves = 1;
 103     }
 104
 105     # we check the date expiricy of the borrower (only if there is an expiry date, otherwise, set to 1 (warn)
 106     if ($borrowerinfo->{'dateexpiry'} ne '0000-00-00') {
 107         my $warning = (Date_to_Days(split /-/,$date) > Date_to_Days( split /-/,$borrowerinfo->{'dateexpiry'}));
 108         if ( $warning > 0 ) {
 109             $expiry = 1;
 110         }
 111     } else {
 112         $expiry = 1;
 113     }
 114
 115
 116     # check if the borrower make the reserv in a different branch
 117     if ( $borrowerinfo->{'branchcode'} ne C4::Context->userenv->{'branch'} ) {
 118         $diffbranch = 1;
 119     }
 120
 121     $template->param(
 122                 borrowernumber => $borrowerinfo->{'borrowernumber'},
 123                 borrowersurname   => $borrowerinfo->{'surname'},
 124                 borrowerfirstname => $borrowerinfo->{'firstname'},
 125                 borrowerstreetaddress => $borrowerinfo->{'address'},
 126                 borrowercity => $borrowerinfo->{'city'},
 127                 borrowerphone => $borrowerinfo->{'phone'},
 128                                 borrowermobile => $borrowerinfo->{'mobile'},
 129                                 borrowerfax => $borrowerinfo->{'fax'},
 130                                 borrowerphonepro => $borrowerinfo->{'phonepro'},
 131                 borroweremail => $borrowerinfo->{'email'},
 132                 borroweremailpro => $borrowerinfo->{'emailpro'},
 133                 borrowercategory => $borrowerinfo->{'category'},
 134                 borrowerreservs   => $count_reserv,
 135                 maxreserves       => $maxreserves,
 136                 expiry            => $expiry,
 137                 diffbranch        => $diffbranch
 138     );
 139 }
 140
 141 $template->param( messageborrower => $messageborrower );
 142
 143 my $CGIselectborrower;
 144 if ($borrowerslist) {
 145     my @values;
 146     my %labels;
 147
 148     foreach my $borrower (
 149         sort {
 150                 $a->{surname}
 151               . $a->{firstname} cmp $b->{surname}
 152               . $b->{firstname}
 153         } @{$borrowerslist}
 154       )
 155     {
 156         push @values, $borrower->{cardnumber};
 157
 158         $labels{ $borrower->{cardnumber} } = sprintf(
 159             '%s, %s ... (%s - %s) ... %s',
 160             $borrower->{surname},    $borrower->{firstname},
 161             $borrower->{cardnumber}, $borrower->{categorycode},
 162             $borrower->{streetaddress},
 163         );
 164     }
 165
 166     $CGIselectborrower = CGI::scrolling_list(
 167         -name     => 'cardnumber',
 168         -values   => \@values,
 169         -labels   => \%labels,
 170         -size     => 7,
 171         -multiple => 0,
 172     );
 173 }
 174
 175 # get existing reserves .....
 176 my ( $count, $reserves ) = GetReservesFromBiblionumber($biblionumber);
 177 my $totalcount = $count;
 178 my $alreadyreserved;
 179
 180 # FIXME launch another time GetMemberDetails perhaps until
 181 my $borrowerinfo = GetMemberDetails( 0, $cardnumber );
 182
 183 foreach my $res (@$reserves) {
 184     if ( ( $res->{found} eq 'W' ) or ( $res->{priority} == 0 ) ) {
 185         $count--;
 186     }
 187
 188     if ( $borrowerinfo->{borrowernumber} eq $res->{borrowernumber} ) {
 189         $alreadyreserved = 1;
 190     }
 191 }
 192
 193 $template->param( alreadyreserved => $alreadyreserved );
 194
 195 # FIXME think @optionloop, is maybe obsolete, or  must be switchable by a systeme preference fixed rank or not
 196 # make priorities options
 197
 198 my @optionloop;
 199 for ( 1 .. $count + 1 ) {
 200     push(
 201         @optionloop,
 202         {
 203             num      => $_,
 204             selected => ( $_ == $count + 1 ),
 205         }
 206     );
 207 }
 208 # adding a fixed value for priority options
 209 my $fixedRank = $count+1;
 210
 211 my @branchcodes;
 212 my %itemnumbers_of_biblioitem;
 213 my @itemnumbers  = @{ get_itemnumbers_of($biblionumber)->{$biblionumber} };
 214 my $iteminfos_of = GetItemInfosOf(@itemnumbers);
 215
 216 foreach my $itemnumber (@itemnumbers) {
 217     push( @branchcodes,
 218         $iteminfos_of->{$itemnumber}->{homebranch},
 219         $iteminfos_of->{$itemnumber}->{holdingbranch} );
 220
 221     my $biblioitemnumber = $iteminfos_of->{$itemnumber}->{biblioitemnumber};
 222     push( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} }, $itemnumber );
 223 }
 224
 225 # @branchcodes = uniq @branchcodes;
 226
 227 my @biblioitemnumbers = keys %itemnumbers_of_biblioitem;
 228
 229 my $branchinfos_of      = get_branchinfos_of(@branchcodes);
 230 my $notforloan_label_of = get_notforloan_label_of();
 231 my $biblioiteminfos_of  = GetBiblioItemInfosOf(@biblioitemnumbers);
 232
 233 my @itemtypes;
 234 foreach my $biblioitemnumber (@biblioitemnumbers) {
 235     push @itemtypes, $biblioiteminfos_of->{$biblioitemnumber}{itemtype};
 236 }
 237
 238 my $itemtypeinfos_of = get_itemtypeinfos_of(@itemtypes);
 239
 240 my @bibitemloop;
 241
 242 foreach my $biblioitemnumber (@biblioitemnumbers) {
 243     my $biblioitem = $biblioiteminfos_of->{$biblioitemnumber};
 244
 245     $biblioitem->{description} =
 246       $itemtypeinfos_of->{ $biblioitem->{itemtype} }{description};
 247
 248     foreach
 249       my $itemnumber ( @{ $itemnumbers_of_biblioitem{$biblioitemnumber} } )
 250     {
 251         my $item = $iteminfos_of->{$itemnumber};
 252
 253         $item->{homebranchname} =
 254           $branchinfos_of->{ $item->{homebranch} }{branchname};
 255
 256         # if the holdingbranch is different than the homebranch, we show the
 257         # holdingbranch of the document too
 258         if ( $item->{homebranch} ne $item->{holdingbranch} ) {
 259             $item->{holdingbranchname} =
 260               $branchinfos_of->{ $item->{holdingbranch} }{branchname};
 261         }
 262
 263 #       add information
 264         $item->{itemcallnumber} = $item->{itemcallnumber};
 265
 266         # if the item is currently on loan, we display its return date and
 267         # change the background color
 268         my $issues= GetItemIssue($itemnumber);
 269         if ( $issues->{'date_due'} ) {
 270             $item->{date_due} = format_date($issues->{'date_due'});
 271             $item->{backgroundcolor} = 'onloan';
 272         }
 273
 274         # checking reserve
 275         my ($reservedate,$reservedfor,$expectedAt) = GetReservesFromItemnumber($itemnumber);
 276         my $ItemBorrowerReserveInfo = GetMemberDetails( $reservedfor, 0);
 277
 278         if ( defined $reservedate ) {
 279             $item->{backgroundcolor} = 'reserved';
 280             $item->{reservedate}     = format_date($reservedate);
 281             $item->{ReservedForBorrowernumber}     = $reservedfor;
 282             $item->{ReservedForSurname}     = $ItemBorrowerReserveInfo->{'surname'};
 283             $item->{ReservedForFirstname}     = $ItemBorrowerReserveInfo->{'firstname'};
 284             $item->{ExpectedAtLibrary}     = $expectedAt;
 285
 286         }
 287
 288         # Management of the notforloan document
 289         if ( $item->{notforloan} ) {
 290             $item->{backgroundcolor} = 'other';
 291             $item->{notforloanvalue} =
 292               $notforloan_label_of->{ $item->{notforloan} };
 293         }
 294
 295         # Management of lost or long overdue items
 296         if ( $item->{itemlost} ) {
 297
 298             # FIXME localized strings should never be in Perl code
 299             $item->{message} =
 300                 $item->{itemlost} == 1 ? "(lost)"
 301               : $item->{itemlost} == 2 ? "(long overdue)"
 302               : "";
 303             $item->{backgroundcolor} = 'other';
 304         }
 305
 306         # Check of the transfered documents
 307         my ( $transfertwhen, $transfertfrom, $transfertto ) =
 308           GetTransfers($itemnumber);
 309
 310         if ( $transfertwhen ne '' ) {
 311             $item->{transfertwhen} = format_date($transfertwhen);
 312             $item->{transfertfrom} =
 313               $branchinfos_of->{$transfertfrom}{branchname};
 314             $item->{transfertto} = $branchinfos_of->{$transfertto}{branchname};
 315                 $item->{nocancel} = 1;
 316         }
 317
 318         # If there is no loan, return and transfer, we show a checkbox.
 319         $item->{notforloan} = $item->{notforloan} || 0;
 320
 321         # An item is available only if:
 322         if (
 323             not defined $reservedate    # not reserved yet
 324             and $issues->{'date_due'} eq ''         # not currently on loan
 325             and not $item->{itemlost}   # not lost
 326             and not $item->{notforloan} # not forbidden to loan
 327             and $transfertwhen eq ''    # not currently on transfert
 328           )
 329         {
 330             $item->{available} = 1;
 331         }
 332
 333         push @{ $biblioitem->{itemloop} }, $item;
 334     }
 335
 336     push @bibitemloop, $biblioitem;
 337 }
 338
 339 # existingreserves building
 340 my @reserveloop;
 341 my $branches = GetBranches();
 342 my ( $count, $reserves ) = GetReservesFromBiblionumber($biblionumber);
 343 foreach my $res ( sort { $a->{found} cmp $b->{found} } @$reserves ) {
 344     my %reserve;
 345     my @optionloop;
 346     for ( my $i = 1 ; $i <= $totalcount ; $i++ ) {
 347         push(
 348             @optionloop,
 349             {
 350                 num      => $i,
 351                 selected => ( $i == $res->{priority} ),
 352             }
 353         );
 354     }
 355     my @branchloop;
 356     foreach my $br ( keys %$branches ) {
 357         my %abranch;
 358         $abranch{'selected'}   = ( $br eq $res->{'branchcode'} );
 359         $abranch{'branch'}     = $br;
 360         $abranch{'branchname'} = $branches->{$br}->{'branchname'};
 361         push( @branchloop, \%abranch );
 362     }
 363
 364     if ( ( $res->{'found'} eq 'W' ) or ( $res->{'priority'} eq '0' ) ) {
 365         my $item = $res->{'itemnumber'};
 366         $item = GetBiblioFromItemNumber($item,undef);
 367         $reserve{'wait'}= 1;
 368         $reserve{'holdingbranch'}=$item->{'holdingbranch'};
 369         $reserve{'biblionumber'}=$item->{'biblionumber'};
 370         $reserve{'barcodenumber'}       = $item->{'barcode'};
 371         $reserve{'wbrcode'} = $res->{'branchcode'};
 372         $reserve{'itemnumber'}  = $res->{'itemnumber'};
 373         $reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};
 374         if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){
 375             $reserve{'atdestination'} = 1;
 376         }
 377         # set found to 1 if reserve is waiting for patron pickup
 378         $reserve{'found'} = 1 if $res->{'found'} eq 'W';
 379     }
 380
 381 #     get borrowers reserve info
 382 my $reserveborrowerinfo = GetMemberDetails( $res->{'borrowernumber'}, 0);
 383
 384     $reserve{'date'}           = format_date( $res->{'reservedate'} );
 385     $reserve{'borrowernumber'} = $res->{'borrowernumber'};
 386     $reserve{'biblionumber'}   = $res->{'biblionumber'};
 387     $reserve{'borrowernumber'} = $res->{'borrowernumber'};
 388     $reserve{'firstname'}      = $reserveborrowerinfo->{'firstname'};
 389     $reserve{'surname'}        = $reserveborrowerinfo->{'surname'};
 390     $reserve{'notes'}          = $res->{'reservenotes'};
 391     $reserve{'wait'}           =
 392       ( ( $res->{'found'} eq 'W' ) or ( $res->{'priority'} eq '0' ) );
 393     $reserve{'constrainttypea'} = ( $res->{'constrainttype'} eq 'a' );
 394     $reserve{'constrainttypeo'} = ( $res->{'constrainttype'} eq 'o' );
 395     $reserve{'voldesc'}         = $res->{'volumeddesc'};
 396     $reserve{'ccode'}           = $res->{'ccode'};
 397     $reserve{'barcode'}         = $res->{'barcode'};
 398     $reserve{'priority'}        = $res->{'priority'};
 399     $reserve{'branchloop'} = \@branchloop;
 400     $reserve{'optionloop'} = \@optionloop;
 401
 402     push( @reserveloop, \%reserve );
 403 }
 404
 405 my $default = C4::Context->userenv->{branch};
 406 my @values;
 407 my %label_of;
 408
 409 foreach my $branchcode ( keys %{$branches} ) {
 410     push @values, $branchcode;
 411     $label_of{$branchcode} = $branches->{$branchcode}->{branchname};
 412 }
 413 my $CGIbranch = CGI::scrolling_list(
 414     -name     => 'pickup',
 415         -id          => 'pickup',
 416     -values   => \@values,
 417     -default  => $default,
 418     -labels   => \%label_of,
 419     -size     => 1,
 420     -multiple => 0,
 421 );
 422
 423 # get the time for the form name...
 424 my $time = time();
 425
 426 $template->param(
 427     CGIbranch   => $CGIbranch,
 428     reserveloop => \@reserveloop,
 429     time        => $time,
 430     fixedRank   => $fixedRank,
 431 );
 432
 433 # display infos
 434 $template->param(
 435     optionloop        => \@optionloop,
 436     bibitemloop       => \@bibitemloop,
 437     date              => $date,
 438     biblionumber      => $biblionumber,
 439     findborrower      => $findborrower,
 440     cardnumber        => $cardnumber,
 441     CGIselectborrower => $CGIselectborrower,
 442     title             => $dat->{title},
 443     author            => $dat->{author}
 444 );
 445
 446 # printout the page
 447 output_html_with_http_headers $input, $cookie, $template->output;