We discovered yesterday that we've forgot to apply this patch. This
bug was fixed and submited by ernesto silva a while ago, we're
resubtting it again since it wasn't commited.
------------------------------------------------------------------------
--- marc_subfields_structure.pl.original 2004-11-22 09:18:00.000000000
-0300
+++ marc_subfields_structure.pl 2004-11-23 08:47:31.519836872 -0300
@@ -132,7 +132,14 @@
}
# build value_builder list
my @value_builder=('');
- opendir(DIR, "../value_builder") || die "can't opendir ../value_builder:
$!";
+
+#--------------------------------------------------------------------------------------
+# Ernesto Silva, 04/11/2004 ---- Path fix for mod_perl.
+#
+#--------------------------------------------------------------------------------------
+ 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$/) {
push (@value_builder,$line);