#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
use C4::Biblio;
use C4::Circulation;
use C4::Members;
-#use C4::Interface::CGI::Output;
use Date::Calc qw(
Today
Add_Delta_Days
foreach my $br ( keys %$branches ) {
my @transferloop;
my %branchloop;
- $branchloop{'branchname'} = $branches->{$br}->{'branchname'};
- $branchloop{'branchcode'} = $branches->{$br}->{'branchcode'};
my @gettransfers =
GetTransfersFromTo( $branches->{$br}->{'branchcode'}, $default );
if (@gettransfers) {
+ $branchloop{'branchname'} = $branches->{$br}->{'branchname'};
+ $branchloop{'branchcode'} = $branches->{$br}->{'branchcode'};
foreach my $num (@gettransfers) {
my %getransf;
# If we have a return of reservloop we put it in the branchloop sequence
$branchloop{'reserv'} = \@transferloop;
}
- else {
-
-# if we don't have a retrun from reservestobranch we unset branchname and branchcode
- $branchloop{'branchname'} = 0;
- $branchloop{'branchcode'} = 0;
- }
- push( @branchesloop, \%branchloop );
+ push( @branchesloop, \%branchloop ) if %branchloop;
}
$template->param(