#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
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;
);
use C4::Reserves;
use C4::Koha;
-# use C4::Interface::CGI::Output;
my $input = new CGI;
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'} );
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 ) =