From 7be893440608cb2a6ce925025c3de95524650158 Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Thu, 10 Aug 2006 12:58:17 +0000
Subject: [PATCH] C4::SearchMarc is deprecated now.

---
 acqui/newordersuggestion.pl   | 11 ++++++-----
 authorities/auth_finder.pl    |  1 -
 barcodes/label-item-search.pl |  2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl
index 2e6b398d1d..d58c1d9180 100755
--- a/acqui/newordersuggestion.pl
+++ b/acqui/newordersuggestion.pl
@@ -82,7 +82,7 @@ use C4::Auth;       # get_template_and_user
 use C4::Interface::CGI::Output;
 use C4::Suggestions;
 use C4::Biblio;
-use C4::SearchMarc;
+use C4::Search;
 
 my $input = new CGI;
 
@@ -100,7 +100,7 @@ my $isbn = $input->param('isbn');
 my $duplicateNumber = $input->param('duplicateNumber');
 my $suggestionid = $input->param('suggestionid');
 
-my $status = 'ACCEPTED';
+my $status = 'ACCEPTED'; # the suggestion had to be accepeted before to order it.
 my $suggestedbyme = -1; # search ALL suggestors
 my $op = $input->param('op');
 $op = 'else' unless $op;
@@ -157,11 +157,12 @@ foreach (@$suggestions_loop) {
 			push @value, $_->{publishercode};
 		}
 	
-		my ($finalresult,$nbresult) = C4::SearchMarc::catalogsearch($dbh,\@tags,\@and_or,\@excluding,\@operator,\@value,0,10);
+		my ($finalresult,$nbresult) = catalogsearch($dbh,\@tags,\@and_or,\@excluding,\@operator,\@value,0,10);
+
 		# there is at least 1 result => return the 1st one
 		if ($nbresult) {
-	# 		warn "$nbresult => ".@$finalresult[0]->{biblionumber},@$finalresult[0]->{bibid},@$finalresult[0]->{title};
-# 			warn "DUPLICATE ==>".@$finalresult[0]->{biblionumber},@$finalresult[0]->{bibid},@$finalresult[0]->{title};
+	 		#warn "$nbresult => ".@$finalresult[0]->{biblionumber},@$finalresult[0]->{bibid},@$finalresult[0]->{title};
+ 			#warn "DUPLICATE ==>".@$finalresult[0]->{biblionumber},@$finalresult[0]->{bibid},@$finalresult[0]->{title};
 			$_->{duplicateBiblionumber} = @$finalresult[0]->{biblionumber};
 		}
 	}
diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl
index fdf03c0020..afe64004ab 100755
--- a/authorities/auth_finder.pl
+++ b/authorities/auth_finder.pl
@@ -29,7 +29,6 @@ use C4::Auth;
 use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::AuthoritiesMarc;
-use C4::SearchMarc;
 use C4::Acquisition;
 use C4::Koha; # XXX subfield_is_koha_internal_p
 
diff --git a/barcodes/label-item-search.pl b/barcodes/label-item-search.pl
index da7674a790..2f2e217231 100755
--- a/barcodes/label-item-search.pl
+++ b/barcodes/label-item-search.pl
@@ -31,7 +31,7 @@ use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::Biblio;
 use C4::Acquisition;
-use C4::SearchMarc;
+#use C4::SearchMarc;
 use C4::Koha;    # XXX subfield_is_koha_internal_p
 
 # Creates a scrolling list with the associated default value.
-- 
2.39.5