--- 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);