X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=circ%2Fwaitingreserves.pl;h=692c38a44412771b10917c6a40b0955ecd9444b7;hb=82b8c496fdb642d678aed4499b2fceb739e65e64;hp=fea193529c41a1608873284e7885c10bf0c4c80a;hpb=5c4a2c3e4b754fd2d0587e0f31cb4d13d75356b7;p=koha_gimpoz diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl index fea193529c..692c38a444 100755 --- a/circ/waitingreserves.pl +++ b/circ/waitingreserves.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -# $Id$ # Copyright 2000-2002 Katipo Communications # @@ -25,7 +24,7 @@ use C4::Context; use C4::Output; use C4::Branch; # GetBranchName use C4::Auth; -use C4::Date; +use C4::Dates; use C4::Circulation; use C4::Members; use C4::Biblio; @@ -37,7 +36,6 @@ use Date::Calc qw( ); use C4::Reserves; use C4::Koha; -# use C4::Interface::CGI::Output; my $input = new CGI; @@ -110,8 +108,16 @@ if ($item) { my @reservloop; -my @getreserves = GetReservesForBranch($default); - +my @getreserves; +if (C4::Context->preference('IndependantBranches')){ + # get reserves for the branch we are logged into + @getreserves = GetReservesForBranch($default); +} +else { + # get all reserves waiting + @getreserves = GetReservesForBranch(); +} + foreach my $num (@getreserves) { my %getreserv; my $gettitle = GetBiblioFromItemNumber( $num->{'itemnumber'} ); @@ -119,7 +125,7 @@ foreach my $num (@getreserves) { my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} ); $getreserv{'waitingdate'} = format_date( $num->{'waitingdate'} ); - next unless $num->{'waitingdate'} ne '0000-00-00'; + next unless ($num->{'waitingdate'} && $num->{'waitingdate'} ne '0000-00-00'); my ( $waiting_year, $waiting_month, $waiting_day ) = split /-/, $num->{'waitingdate'}; ( $waiting_year, $waiting_month, $waiting_day ) =