[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha loadmodules.pl,1.11,1.12
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha loadmodules.pl,1.11,1.12 |
Date: |
Thu, 13 Feb 2003 10:02:13 -0800 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv31912
Modified Files:
loadmodules.pl
Log Message:
Road to 1.9.1 :
* loadmodule.pl manages cataloguing link too
Index: loadmodules.pl
===================================================================
RCS file: /cvsroot/koha/koha/loadmodules.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** loadmodules.pl 6 Feb 2003 07:11:09 -0000 1.11
--- loadmodules.pl 13 Feb 2003 18:02:10 -0000 1.12
***************
*** 32,35 ****
--- 32,36 ----
if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
if ($module eq 'search') { catalogue_search(); last SWITCH; }
+ if ($module eq 'cataloguing') {cataloguing(); last SWITCH; }
if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
}
***************
*** 46,52 ****
print
$input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
} elsif ($aq_type eq 'normal') {
! print $input ->redirect("/acquisitions");
} else {
! print $input ->redirect("/acquisitions");
}
}
--- 47,53 ----
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");
}
}
***************
*** 59,62 ****
--- 60,75 ----
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");
+ }
+ }
+
+ sub cataloguing {
+ 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/catalogue-home.pl");
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha loadmodules.pl,1.11,1.12,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/includes acquisitions-bottom.inc,1.5,1.6 acquisitions-top.inc,1.3,1.4 cat-bottom.inc,1.5,1.6 cat-top.inc,1.5,1.6 circulation-bottom.inc,1.5,1.6 circulation-top.inc,1.4,1.5 issues-bottom.inc,1.5,1.6 members-bottom.inc,1.5,1.6 members-top.inc,1.3,1.4 opac-bottom.inc,1.3,1.4 opac-top.inc,1.3,1.4 parameters-bottom.inc,1.2,1.3 parameters-top.inc,1.3,1.4 reports-bottom.inc,1.5,1.6 reports-top.inc,1.3,1.4
- Next by Date:
[Koha-cvs] CVS: koha MARCdetail.pl,1.10,1.11
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/includes acquisitions-bottom.inc,1.5,1.6 acquisitions-top.inc,1.3,1.4 cat-bottom.inc,1.5,1.6 cat-top.inc,1.5,1.6 circulation-bottom.inc,1.5,1.6 circulation-top.inc,1.4,1.5 issues-bottom.inc,1.5,1.6 members-bottom.inc,1.5,1.6 members-top.inc,1.3,1.4 opac-bottom.inc,1.3,1.4 opac-top.inc,1.3,1.4 parameters-bottom.inc,1.2,1.3 parameters-top.inc,1.3,1.4 reports-bottom.inc,1.5,1.6 reports-top.inc,1.3,1.4
- Next by thread:
[Koha-cvs] CVS: koha MARCdetail.pl,1.10,1.11
- Index(es):