From 033f8cf1d5821959afd3e62403b9adba0ed6929a Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Wed, 22 Dec 1999 03:31:06 +0000
Subject: [PATCH] fixed

---
 C4/Search.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 3191821..3cbdb6e 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -7,7 +7,7 @@ use strict;
 require Exporter;
 use DBI;
 use C4::Database;
-use C4::InterfaceCDK;
+#use C4::InterfaceCDK;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
   
 # set the version for version checking
@@ -253,18 +253,18 @@ sub ItemInfo {
 
 sub GetItems {
    my ($env,$biblionumber)=@_;
-   debug_msg($env,"GetItems");
+   #debug_msg($env,"GetItems");
    my $dbh = &C4Connect;
    my $query = "Select * from biblioitems where (biblionumber = $biblionumber)";
-   debug_msg($env,$query);
+   #debug_msg($env,$query);
    my $sth=$dbh->prepare($query);
    $sth->execute;
-   debug_msg($env,"executed query");
+   #debug_msg($env,"executed query");
       
    my $i=0;
    my @results;
    while (my $data=$sth->fetchrow_hashref) {
-      debug_msg($env,$data->{'biblioitemnumber'});
+      #debug_msg($env,$data->{'biblioitemnumber'});
       my $dewey = $data->{'dewey'};
       $dewey =~ s/0+$//; 
       my $line = $data->{'biblioitemnumber'}."\t".$data->{'itemtype'};