From 21a875ce36c109fd78e954642c85355cdecac528 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Tue, 4 Dec 2007 17:40:57 -0600
Subject: [PATCH] reserve and virtualshelves (leftovers) - Dates.pm integration
 and warnings fixes.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 reserve/request.pl        | 4 ++--
 virtualshelves/shelves.pl | 3 +--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/reserve/request.pl b/reserve/request.pl
index e7cbad573d..4fb83ead8e 100755
--- a/reserve/request.pl
+++ b/reserve/request.pl
@@ -36,7 +36,7 @@ use C4::Reserves;
 use C4::Biblio;
 use C4::Koha;
 use C4::Circulation;
-use C4::Date;
+use C4::Dates;
 use C4::Members;
 
 my $dbh = C4::Context->dbh;
@@ -351,7 +351,7 @@ foreach my $biblioitemnumber (@biblioitemnumbers) {
 # existingreserves building
 my @reserveloop;
 my $branches = GetBranches();
-my ( $count, $reserves ) = GetReservesFromBiblionumber($biblionumber);
+( $count, $reserves ) = GetReservesFromBiblionumber($biblionumber);
 foreach my $res ( sort { $a->{found} cmp $b->{found} } @$reserves ) {
     my %reserve;
     my @optionloop;
diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl
index f6615451c0..99d739b921 100755
--- a/virtualshelves/shelves.pl
+++ b/virtualshelves/shelves.pl
@@ -198,7 +198,7 @@ SWITCH: {
     }
 }
 
-my $shelflist = GetShelves( $loggedinuser, 2 );
+$shelflist = GetShelves( $loggedinuser, 2 );
 my $color = '';
 my @shelvesloop;
 my $numberCanManage = 0;
@@ -224,7 +224,6 @@ foreach my $element ( sort keys %$shelflist ) {
 
 $template->param(
     shelvesloop     => \@shelvesloop,
-
     numberCanManage => $numberCanManage,
 );
 
-- 
2.39.5