C4::SearchMarc is deprecated now.

diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl
index 2e6b398..d58c1d9 100755 (executable)
--- 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 fdf03c0..afe6400 100755 (executable)
--- 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 da7674a..2f2e217 100755 (executable)
--- 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.