gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed hard coded directories (as reported by Ville Huhtala).

This commit is contained in:
tonnesen 2002-08-26 17:08:56 +00:00
parent b3ccb7948d
commit 5d308abbe4
6 changed files with 31 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
admin-home.pl
View File

@ -4,6 +4,10 @@ use strict;
use CGI;
use C4::Auth;
use C4::Output;
use C4::Database;
my $configfile=configfile();
my $intranetdir=$configfile->{'intranetdir'};
my $query = new CGI;
my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
@ -16,7 +20,7 @@ print startmenu('catalogue');
print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
open H, "/usr/local/koha/intranet/htdocs/admin/index.html";
open H, "$intranetdir/htdocs/admin/index.html";
while (<H>) {
print $_;
}

6
admin/templates.pl
View File

@ -14,6 +14,10 @@ use C4::Auth;
my $input = new CGI;
my $configfile=configfile();
my $includes=$configfile->{'includes'};
my $dbh=C4Connect();
if ($input->param('settemplate')) {
@ -33,7 +37,7 @@ $sth->execute;
my ($template)=$sth->fetchrow;
my $templateoptions='';
opendir D, "/usr/local/koha/intranet/htdocs/includes/templates";
opendir D, "$includes/templates";
my @dirlist=readdir D;
foreach (@dirlist) {
(next) if (/^\./);

8
catalogue-home.pl
View File

@ -4,6 +4,10 @@ use strict;
use CGI;
use C4::Auth;
use C4::Output;
use C4::Database;
my $configfile=configfile();
my $intranetdir=$configfile->{'intranetdir'};
my $query = new CGI;
my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
@ -16,11 +20,11 @@ print startmenu('catalogue');
print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
my $classlist='';
open C, "/usr/local/koha/intranet/htdocs/includes/cat-class-list.inc";
open C, "$intranetdir/htdocs/includes/cat-class-list.inc";
while (<C>) {
$classlist.=$_;
}
open H, "/usr/local/koha/intranet/htdocs/catalogue/index.html";
open H, "$intranetdir/htdocs/catalogue/index.html";
while (<H>) {
s/<!-- CLASSLIST -->/$classlist/;
print $_;

7
groups.pl
View File

@ -9,6 +9,11 @@ use C4::Groups;
use C4::Circulation::Circ2;
use C4::Print;
use DBI;
use C4::Database;
my $configfile=configfile();
my $intranetdir=$configfile->{'intranetdir'};
my $input=new CGI;
my $time=$input->param('time');
@ -213,7 +218,7 @@ sub printgroup {
my $type=shift;
$output= "<head><title>Overdue list for $groups->{$group}</title></head><body><center>\n";
my $members=groupmembers($env, $group);
($type eq 'overdues') && ($output.="<img src=/usr/local/koha/librarian/htdocs/images/overdues.jpg><br>\n");
($type eq 'overdues') && ($output.="<img src=/images/overdues.jpg><br>\n");
$output.= "<table border=1 cellspacing=5 cellpadding=10>\n";
my $typetext='';
($type eq 'overdues') ? ($typetext="Overdues") : ($typetext="Issues");

5
members-home.pl
View File

@ -4,7 +4,10 @@ use strict;
use CGI;
use C4::Auth;
use C4::Output;
use C4::Database;
my $configfile=configfile();
my $intranetdir=$configfile->{'intranetdir'};
my $query = new CGI;
my $flagsrequired;
$flagsrequired->{borrowers}=1;
@ -17,7 +20,7 @@ print startmenu('member');
print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
open H, "/usr/local/koha/intranet/htdocs/members/index.html";
open H, "$intranetdir/htdocs/members/index.html";
while (<H>) {
print $_;
}

6
reports-home.pl
View File

@ -4,6 +4,10 @@ use strict;
use CGI;
use C4::Auth;
use C4::Output;
use C4::Database;
my $configfile=configfile();
my $intranetdir=$configfile->{'intranetdir'};
my $query = new CGI;
my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
@ -15,7 +19,7 @@ print startmenu('report');
print "<p align=left>Logged in as: $loggedinuser [<a href=/cgi-bin/koha/logout.pl>Log Out</a>]</p>\n";
open H, "/usr/local/koha/intranet/htdocs/reports/index.html";
open H, "$intranetdir/htdocs/reports/index.html";
while (<H>) {
print $_;
}