[Koha-cvs] koha/acqui newordersuggestion.pl

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	06/08/10 12:58:17

Modified files:
	acqui          : newordersuggestion.pl 

Log message:
	C4::SearchMarc is deprecated now.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/newordersuggestion.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: newordersuggestion.pl
===================================================================
RCS file: /sources/koha/koha/acqui/newordersuggestion.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- newordersuggestion.pl	2 Aug 2006 08:22:53 -0000	1.2
+++ newordersuggestion.pl	10 Aug 2006 12:58:17 -0000	1.3
@@ -15,7 +15,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: newordersuggestion.pl,v 1.2 2006/08/02 08:22:53 toins Exp $
+# $Id: newordersuggestion.pl,v 1.3 2006/08/10 12:58:17 toins Exp $
 
 =head1 NAME
 newordersuggestion.pl
@@ -82,7 +82,7 @@
 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 $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 @@
 			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};
 		}
 	}