[Koha-cvs] koha/acqui.simple isbnsearch.pl [dev_week]

[Ryan Higgins]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Ryan Higgins <rych>     06/12/16 00:10:37

Modified files:
        acqui.simple   : isbnsearch.pl 

Log message:
        fixing isbn resevior search. ! this may only be for npl-based templates

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui.simple/isbnsearch.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.14.2.5.2.1&r2=1.14.2.5.2.2

Patches:
Index: isbnsearch.pl
===================================================================
RCS file: /sources/koha/koha/acqui.simple/Attic/isbnsearch.pl,v
retrieving revision 1.14.2.5.2.1
retrieving revision 1.14.2.5.2.2
diff -u -b -r1.14.2.5.2.1 -r1.14.2.5.2.2
--- isbnsearch.pl       21 Jul 2006 17:46:48 -0000      1.14.2.5.2.1
+++ isbnsearch.pl       16 Dec 2006 00:10:37 -0000      1.14.2.5.2.2
@@ -22,6 +22,7 @@
 use C4::Auth;
 use C4::Biblio;
 use C4::Search;
+#use C4::SearchMarc;
 use C4::Breeding;
 use C4::Output;
 use C4::Interface::CGI::Output;
@@ -58,8 +59,8 @@
        my @excluding = $input->param('excluding');
        my @operator = $input->param('operator');
        my @value = $input->param('value');
-       my $title= @value[0];
-       my $isbn = @value[1];
+       my $title= $value[1];
+       my $isbn = $value[0];
        my $resultsperpage= $input->param('resultsperpage');
        $resultsperpage = 10 if(!defined $resultsperpage);
        my $startfrom=$input->param('startfrom');
@@ -84,9 +85,7 @@
        }
        findseealso($dbh,address@hidden);
        my $from = $startfrom*$resultsperpage+1;
-       
-       my ($results,$total) = catalogsearch($dbh, 
address@hidden,address@hidden,
-                                                                               
address@hidden, address@hidden, address@hidden,
+       my ($results,$total) = &catalogsearch($dbh, 
address@hidden,address@hidden, address@hidden, address@hidden, address@hidden,
                                                                                
$startfrom*$resultsperpage, $resultsperpage,'biblio.title','ASC');
 #      @results = @$resultsref;
 
@@ -150,7 +149,7 @@
 
     # fill with books in breeding farm
        my $toggle=0;
-    my ( $countbr, @resultsbr ) = BreedingSearch( @value[0], @value[1] );
+    my ( $countbr, @resultsbr ) = BreedingSearch( $title, $isbn );
     my @breeding_loop = ();
     for ( my $i = 0 ; $i <= $#resultsbr ; $i++ ) {
         my %row_data;