[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,address@hidden,address@hidden,address@hidden,address@hidden,address@hidden,0,10);
+               my ($finalresult,$nbresult) = 
catalogsearch($dbh,address@hidden,address@hidden,address@hidden,address@hidden,address@hidden,0,10);
+
                # there is at least 1 result => return the 1st one
                if ($nbresult) {
-       #               warn "$nbresult => 
"address@hidden>{biblionumber},@$finalresult[0]->{bibid},@$finalresult[0]->{title};
-#                      warn "DUPLICATE 
==>"address@hidden>{biblionumber},@$finalresult[0]->{bibid},@$finalresult[0]->{title};
+                       #warn "$nbresult => 
"address@hidden>{biblionumber},@$finalresult[0]->{bibid},@$finalresult[0]->{title};
+                       #warn "DUPLICATE 
==>"address@hidden>{biblionumber},@$finalresult[0]->{bibid},@$finalresult[0]->{title};
                        $_->{duplicateBiblionumber} = 
@$finalresult[0]->{biblionumber};
                }
        }