[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.30,1.31

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14463/admin

Modified Files:
        marc_subfields_structure.pl 
Log Message:
bugfix for CVS installations of Koha & modperl

Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -r1.30 -r1.31
*** marc_subfields_structure.pl 3 Dec 2004 16:50:39 -0000       1.30
--- marc_subfields_structure.pl 8 Dec 2004 10:41:38 -0000       1.31
***************
*** 134,139 ****
        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$/) {
--- 134,146 ----
        my @value_builder=('');
  
!       # read value_builder directory.
!       # 2 cases here : on CVS install, $cgidir does not need a /cgi-bin
!       # on a standard install, /cgi-bin need to be added. 
!       # test one, then the other
!       my $cgidir = C4::Context->intranetdir ."/cgi-bin";
!       unless (opendir(DIR, "$cgidir/value_builder")) {
!               $cgidir = C4::Context->intranetdir;
!               opendir(DIR, "$cgidir/value_builder") || die "can't opendir 
$cgidir/value_builder: $!";
!       } 
        while (my $line = readdir(DIR)) {
                if ($line =~ /\.pl$/) {