Lines 114-121
if ($op eq 'add_form') {
Link Here
|
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)) { |
117 |
if ($line =~ /\.pl$/) { |
117 |
if ( $line =~ /\.pl$/ && |
118 |
push (@value_builder,$line); |
118 |
$line !~ /EXAMPLE\.pl$/ ) { # documentation purposes |
|
|
119 |
push (@value_builder,$line); |
119 |
} |
120 |
} |
120 |
} |
121 |
} |
121 |
@value_builder= sort {$a cmp $b} @value_builder; |
122 |
@value_builder= sort {$a cmp $b} @value_builder; |