[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Output.pm,1.21,1.22
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/C4 Output.pm,1.21,1.22 |
Date: |
Sat, 05 Oct 2002 09:55:11 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv11639
Modified Files:
Output.pm
Log Message:
Switched new functions to using C4::Context.
Index: Output.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Output.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** Output.pm 5 Oct 2002 16:48:08 -0000 1.21
--- Output.pm 5 Oct 2002 16:55:09 -0000 1.22
***************
*** 98,101 ****
--- 98,102 ----
#---------------------------------------------------------------------------------------------------------
+ # FIXME - POD
sub gettemplate {
my ($tmplbase, $opac) = @_;
***************
*** 120,128 ****
#---------------------------------------------------------------------------------------------------------
sub themelanguage {
my ($htdocs, $tmpl) = @_;
# language preferences....
! my $dbh=C4Connect;
my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE
variable='opaclanguages'");
$sth->execute;
--- 121,130 ----
#---------------------------------------------------------------------------------------------------------
+ # FIXME - POD
sub themelanguage {
my ($htdocs, $tmpl) = @_;
# language preferences....
! my $dbh = C4::Context->dbh;
my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE
variable='opaclanguages'");
$sth->execute;
***************
*** 137,142 ****
$sth->finish;
my @themes = split " ", $theme;
-
- $dbh->disconnect;
my ($theme, $lang);
--- 139,142 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Output.pm,1.21,1.22,
Andrew Arensburger <=