koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/html-template detail.pl,1.4,1.4.2.1


From: Andrew Arensburger
Subject: [Koha-cvs] CVS: koha/html-template detail.pl,1.4,1.4.2.1
Date: Thu, 03 Oct 2002 19:53:07 -0700

Update of /cvsroot/koha/koha/html-template
In directory usw-pr-cvs1:/tmp/cvs-serv26268

Modified Files:
      Tag: arensb-context
        detail.pl 
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.
Removed old code for reading /etc/koha.conf.


Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/html-template/detail.pl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** detail.pl   14 Aug 2002 18:12:53 -0000      1.4
--- detail.pl   4 Oct 2002 02:53:05 -0000       1.4.2.1
***************
*** 20,25 ****
  use HTML::Template;
  use strict;
! require Exporter;
! use C4::Database;
  use C4::Output;  # contains picktemplate
  use CGI;
--- 20,25 ----
  use HTML::Template;
  use strict;
! require Exporter;             # FIXME - Is this really necessary?
! use C4::Context;
  use C4::Output;  # contains picktemplate
  use CGI;
***************
*** 28,52 ****
  my $query=new CGI;
  
- 
- my $language='french';
- 
- 
- my %configfile;
- open (KC, "/etc/koha.conf");
- while (<KC>) {
-  chomp;
-  (next) if (/^\s*#/);
-  if (/(.*)\s*=\s*(.*)/) {
-    my $variable=$1;
-    my $value=$2;
-    # Clean up white space at beginning and end
-    $variable=~s/^\s*//g;
-    $variable=~s/\s*$//g;
-    $value=~s/^\s*//g;
-    $value=~s/\s*$//g;
-    $configfile{$variable}=$value;
-  }
- }
- 
  my $biblionumber=$query->param('bib');
  my $type=$query->param('type');
--- 28,31 ----
***************
*** 78,83 ****
  my address@hidden;
  
! my $includes=$configfile{'includes'};
! ($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
  my $templatebase="catalogue/detail.tmpl";
  my $startfrom=$query->param('startfrom');
--- 57,62 ----
  my address@hidden;
  
! my $includes = C4::Context->config('includes') ||
!       "/usr/local/www/hdl/htdocs/includes";
  my $templatebase="catalogue/detail.tmpl";
  my $startfrom=$query->param('startfrom');




reply via email to

[Prev in Thread] Current Thread [Next in Thread]