[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha loadmodules.pl,1.15,1.16
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha loadmodules.pl,1.15,1.16 |
Date: |
Thu, 05 Jun 2003 05:27:12 -0700 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv24901
Modified Files:
loadmodules.pl
Log Message:
gui reordering.
In loadmodule, now you can force a specific systempref.
removed MARC topic and added addbiblio topic.
Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** loadmodules.pl 21 Apr 2003 04:30:33 -0000 1.15
--- loadmodules.pl 5 Jun 2003 12:27:08 -0000 1.16
***************
*** 32,58 ****
if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
if ($module eq 'search') { catalogue_search(); last SWITCH; }
! if ($module eq 'MARC') {marc(); last SWITCH; }
if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
}
sub acquisitions {
! my $aq_type = C4::Context->preference("acquisitions") || "normal";
! # Get the acquisition preference. This should be:
! # "simple" - minimal information required
! # "normal" - full information required
! # other - Same as "normal"
!
! if ($aq_type eq 'simple') {
! print $input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
! } elsif ($aq_type eq 'normal') {
! print $input ->redirect("/cgi-bin/koha/acqui/acqui-home.pl");
! } else {
! print $input ->redirect("/cgi-bin/koha/acqui/acqui-home.pl");
! }
}
sub catalogue_search {
! my $marc_p = C4::Context->boolean_preference("marc");
! $marc_p = 1 unless defined $marc_p;
my $keyword=$input->param('keyword');
my $query = new CGI;
--- 32,74 ----
if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
if ($module eq 'search') { catalogue_search(); last SWITCH; }
! if ($module eq 'addbiblio') {addbiblio(); last SWITCH;}
if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
}
sub acquisitions {
! my $aq_type = $input->param('acquisitions');
! $aq_type = C4::Context->preference("acquisitions") || "normal" unless
$aq_type;
! my $marc_bool =$input->param('MARC');
! $marc_bool = C4::Context->preference("MARC") ||"OFF" unless $marc_bool;
!
! # Get the acquisition preference. This should be:
! # "simple" - minimal information required
! # "normal" - full information required
! # other - Same as "normal"
!
! if ($aq_type eq 'simple') {
! if ($marc_bool eq "ON") {
! print
$input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
! } else {
! print
$input->redirect("/cgi-bin/koha/acqui.simple/addbiblio-nomarc.pl");
! }
! } else {
! print $input ->redirect("/cgi-bin/koha/acqui/acqui-home.pl");
! }
! }
!
! sub addbiblio {
! my $marc_bool = C4::Context->preference("MARC") ||"OFF";
! if ($marc_bool eq "ON") {
! print
$input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
! } else {
! print
$input->redirect("/cgi-bin/koha/acqui.simple/addbiblio-nomarc.pl");
! }
}
sub catalogue_search {
! my $marc_p = $input->param('marc');
! $marc_p = C4::Context->boolean_preference('marc') unless defined
$marc_p;
! $marc_p = 'ON' unless defined $marc_p;
my $keyword=$input->param('keyword');
my $query = new CGI;
***************
*** 71,86 ****
}
}
- }
-
- sub marc {
- # 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/cataloguing.marc/cataloguing-home.pl");
- # } else {
- print $input
->redirect("/cgi-bin/koha/acqui.simple/isbnsearch.pl");
- # }
}
--- 87,90 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha loadmodules.pl,1.15,1.16,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.33,NONE
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/includes about-top.inc,1.4,1.5 acquisitions-top.inc,1.13,1.14 cat-top.inc,1.13,1.14 circulation-top.inc,1.15,1.16 common-style.css,1.4,1.5 marc-top.inc,1.4,1.5 members-top.inc,1.12,1.13 parameters-top.inc,1.13,1.14 reports-top.inc,1.12,1.13
- Previous by thread:
[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.33,NONE
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/includes about-top.inc,1.4,1.5 acquisitions-top.inc,1.13,1.14 cat-top.inc,1.13,1.14 circulation-top.inc,1.15,1.16 common-style.css,1.4,1.5 marc-top.inc,1.4,1.5 members-top.inc,1.12,1.13 parameters-top.inc,1.13,1.14 reports-top.inc,1.12,1.13
- Index(es):