[Koha-cvs] CVS: koha loadmodules.pl,1.8,1.9

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv9740

Modified Files:
        loadmodules.pl 
Log Message:


Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** loadmodules.pl      16 Jan 2003 10:29:45 -0000      1.8
--- loadmodules.pl      23 Jan 2003 12:31:23 -0000      1.9
***************
*** 54,59 ****
  sub catalogue_search {
        my $aq_type = C4::Context->preference("marc") || "ON";
        if ($aq_type eq 'ON') {
!               print $input->redirect("/cgi-bin/koha/search.marc/search.pl");
        } else {
                print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
--- 54,61 ----
  sub catalogue_search {
        my $aq_type = C4::Context->preference("marc") || "ON";
+       my $query = new CGI;
+       my $type = $query->param('type');
        if ($aq_type eq 'ON') {
!               print 
$input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
        } else {
                print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");