Lines 108-116
if ($op eq 'add_form') {
Link Here
|
108 |
# 2 cases here : on CVS install, $cgidir does not need a /cgi-bin |
108 |
# 2 cases here : on CVS install, $cgidir does not need a /cgi-bin |
109 |
# on a standard install, /cgi-bin need to be added. |
109 |
# on a standard install, /cgi-bin need to be added. |
110 |
# test one, then the other |
110 |
# test one, then the other |
111 |
my $cgidir = C4::Context->intranetdir ."/cgi-bin"; |
111 |
my $cgidir = C4::Context->config('intranetdir') ."/cgi-bin"; |
112 |
unless (opendir(DIR, "$cgidir/cataloguing/value_builder")) { |
112 |
unless (opendir(DIR, "$cgidir/cataloguing/value_builder")) { |
113 |
$cgidir = C4::Context->intranetdir; |
113 |
$cgidir = C4::Context->config('intranetdir'); |
114 |
opendir(DIR, "$cgidir/cataloguing/value_builder") || die "can't opendir $cgidir/value_builder: $!"; |
114 |
opendir(DIR, "$cgidir/cataloguing/value_builder") || die "can't opendir $cgidir/value_builder: $!"; |
115 |
} |
115 |
} |
116 |
while (my $line = readdir(DIR)) { |
116 |
while (my $line = readdir(DIR)) { |