[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.29,1.30
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.29,1.30 |
Date: |
Fri, 03 Dec 2004 08:50:42 -0800 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29405/admin
Modified Files:
marc_subfields_structure.pl
Log Message:
fixes from A. Tarallo, for mod_perl compliance
Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -r1.29 -r1.30
*** marc_subfields_structure.pl 18 Aug 2004 16:05:14 -0000 1.29
--- marc_subfields_structure.pl 3 Dec 2004 16:50:39 -0000 1.30
***************
*** 133,137 ****
# build value_builder list
my @value_builder=('');
! opendir(DIR, "../value_builder") || die "can't opendir
../value_builder: $!";
while (my $line = readdir(DIR)) {
if ($line =~ /\.pl$/) {
--- 133,139 ----
# build value_builder list
my @value_builder=('');
!
! my $cgidir = C4::Context->intranetdir . "/cgi-bin";
! opendir(DIR, "$cgidir/value_builder") || die "can't opendir
$cgidir/value_builder: $!";
while (my $line = readdir(DIR)) {
if ($line =~ /\.pl$/) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.29,1.30,
Paul POULAIN <=