From e934749b202492dce4cf1bf333d6c47b4e6f5a39 Mon Sep 17 00:00:00 2001
From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Fri, 12 Sep 2008 11:25:01 -0500
Subject: [PATCH] DHTMLcalendar should not be imported.

Changing these scripts as precursor to removing it from C4::Dates @EXPORT_OK

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 labels/label-item-search.pl | 6 +-----
 reports/dictionary.pl       | 2 +-
 reports/guided_reports.pl   | 2 +-
 3 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl
index 386c97dba1..68716167a2 100755
--- a/labels/label-item-search.pl
+++ b/labels/label-item-search.pl
@@ -30,7 +30,7 @@ use C4::Biblio;
 use C4::Items;
 use C4::Acquisition;
 use C4::Search;
-use C4::Dates qw( DHTMLcalendar );
+use C4::Dates;
 use C4::Koha;    # XXX subfield_is_koha_internal_p
 use C4::Debug;
 use List::Util qw( max min );
@@ -209,12 +209,8 @@ else {
             debug           => 1,
         }
     );
-
-   #using old rel2.2 getitemtypes for testing!!!!, not devweek's GetItemTypes()
-
     my $itemtypes = GetItemTypes;
     my @itemtypeloop;
-    my ($thisitemtype );
     foreach my $thisitemtype (keys %$itemtypes) {
             my %row =(value => $thisitemtype,
                            description => $itemtypes->{$thisitemtype}->{'description'},
diff --git a/reports/dictionary.pl b/reports/dictionary.pl
index 7edd1d4295..60bdc1a585 100755
--- a/reports/dictionary.pl
+++ b/reports/dictionary.pl
@@ -22,7 +22,7 @@ use C4::Auth;
 use CGI;
 use C4::Output;
 use C4::Reports;
-use C4::Dates qw( DHTMLcalendar );
+use C4::Dates;
 
 =head1 NAME
 
diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl
index 0c5d94b7b9..deeabe78c0 100755
--- a/reports/guided_reports.pl
+++ b/reports/guided_reports.pl
@@ -22,7 +22,7 @@ use CGI;
 use C4::Reports;
 use C4::Auth;
 use C4::Output;
-use C4::Dates qw( DHTMLcalendar );
+use C4::Dates;
 use C4::Debug;
 
 =head1 NAME
-- 
2.39.5