[Koha-cvs] koha/opac opac-search.pl

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  06/02/09 03:12:23

Modified files:
        opac           : opac-search.pl 

Log message:
        Fixing broken code to show list of branches

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/opac/opac-search.pl.diff?tr1=1.34&tr2=1.35&r1=text&r2=text

Patches:
Index: koha/opac/opac-search.pl
diff -u koha/opac/opac-search.pl:1.34 koha/opac/opac-search.pl:1.35
--- koha/opac/opac-search.pl:1.34       Thu Feb  9 01:26:16 2006
+++ koha/opac/opac-search.pl    Thu Feb  9 03:12:23 2006
@@ -11,6 +11,8 @@
 use C4::SearchMarc;
 use C4::Acquisition;
 use C4::Biblio;
+use C4::Koha;
+
 my @spsuggest; # the array for holding suggestions
 my $suggest;   # a flag to be set (if there are suggestions it's 1)
 my $firstbiblionumber; # needed for directly sending user to first item
@@ -390,15 +392,14 @@
                                -multiple => 0 );
        $sth->finish;
        
-       my @branches;
        my @select_branch;
        my %select_branches;
-       my ($count2,@branches)=branches();
+       my $branches=getbranches();
        push @select_branch, "";
        $select_branches{''} = "";
-       for (my $i=0;$i<$count2;$i++){
-               push @select_branch, $branches[$i]->{'branchcode'};#
-               $select_branches{$branches[$i]->{'branchcode'}} = 
$branches[$i]->{'branchname'};
+        foreach my $branch ( keys %$branches ){
+               push @select_branch, $branches->{$branch}->{'branchcode'};
+               $select_branches{$branches->{$branch}->{'branchcode'}} = 
$branches->{$branch}->{'branchname'};
        }
        my $CGIbranch=CGI::scrolling_list( -name     => 'value',
                                -values   => address@hidden,