koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/opac opac-search.pl,1.16,1.17


From: Chris Cormack
Subject: [Koha-cvs] CVS: koha/opac opac-search.pl,1.16,1.17
Date: Sat, 14 Aug 2004 18:50:26 -0700

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24555/opac

Modified Files:
        opac-search.pl 
Log Message:
Commiting a sample change to the default template to allow users to pick
their language.
Just a sample template builders can look at this and make changes to their
templates


Index: opac-search.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-search.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** opac-search.pl      15 Jul 2004 09:43:23 -0000      1.16
--- opac-search.pl      15 Aug 2004 01:50:24 -0000      1.17
***************
*** 12,15 ****
--- 12,16 ----
  use C4::Acquisition;
  use C4::Biblio;
+ use C4::Search;
  
  my $classlist='';
***************
*** 175,182 ****
                                -multiple => 0 );
        $sth->finish;
!       
        $template->param(classlist => $classlist,
                                        CGIitemtype => $CGIitemtype,
                                        CGIbranch => $CGIbranch,
        );
  }
--- 176,193 ----
                                -multiple => 0 );
        $sth->finish;
!         my @options;
!     my $counter=0;
!         foreach my $language (getalllanguages()) {
!                             next if $language eq 'images';
!                             my $selected='0';
! #                            next if 
$currently_selected_languages->{$language};
!                             push @options, { language => $language, counter 
=> $counter };
!                             $counter++;
!                     }
!     
        $template->param(classlist => $classlist,
                                        CGIitemtype => $CGIitemtype,
                                        CGIbranch => $CGIbranch,
+                                       languages => address@hidden,
        );
  }




reply via email to

[Prev in Thread] Current Thread [Next in Thread]