[Koha-cvs] CVS: koha loadmodules.pl,1.12,1.13

[Paul POULAIN]

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

Modified Files:
        loadmodules.pl 
Log Message:
MARC search fixes and improvements. Now, ALL searches are indexed and should be 
very fast with any statement.
a few improvments, and it will be useable even with a NON-MARC installation of 
koha.

Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** loadmodules.pl      13 Feb 2003 18:02:10 -0000      1.12
--- loadmodules.pl      4 Mar 2003 16:16:18 -0000       1.13
***************
*** 36,40 ****
  }
  
- 
  sub acquisitions {
        my $aq_type = C4::Context->preference("acquisitions") || "normal";
--- 36,39 ----
***************
*** 56,65 ****
        my $marc_p = C4::Context->boolean_preference("marc");
        $marc_p = 1 unless defined $marc_p;
        my $query = new CGI;
        my $type = $query->param('type');
!       if ($marc_p) {
!               print 
$input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
        } else {
!               print $input ->redirect("/cgi-bin/koha/catalogue-home.pl");
        }
  }
--- 55,73 ----
        my $marc_p = C4::Context->boolean_preference("marc");
        $marc_p = 1 unless defined $marc_p;
+       my $keyword=$input->param('keyword');
        my $query = new CGI;
        my $type = $query->param('type');
!       if ($keyword) {
!               if ($marc_p) {
!                       print 
$input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
!               } else {
!                       print $input 
->redirect("/cgi-bin/koha/search.pl?keyword=$keyword");
!               }
        } else {
!               if ($marc_p) {
!                       print 
$input->redirect("/cgi-bin/koha/search.marc/search.pl?type=$type");
!               } else {
!                       print $input 
->redirect("/cgi-bin/koha/catalogue-home.pl");
!               }
        }
  }