From 7be893440608cb2a6ce925025c3de95524650158 Mon Sep 17 00:00:00 2001 From: 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