@@ -, +, @@ --- admin/auth_subfields_structure.pl | 5 +++-- admin/marc_subfields_structure.pl | 3 ++- 2 files changed, 5 insertions(+), 3 deletions(-) --- a/admin/auth_subfields_structure.pl +++ a/admin/auth_subfields_structure.pl @@ -114,8 +114,9 @@ if ($op eq 'add_form') { opendir(DIR, "$cgidir/cataloguing/value_builder") || die "can't opendir $cgidir/value_builder: $!"; } while (my $line = readdir(DIR)) { - if ($line =~ /\.pl$/) { - push (@value_builder,$line); + if ( $line =~ /\.pl$/ && + $line !~ /EXAMPLE\.pl$/ ) { # documentation purposes + push (@value_builder,$line); } } @value_builder= sort {$a cmp $b} @value_builder; --- a/admin/marc_subfields_structure.pl +++ a/admin/marc_subfields_structure.pl @@ -161,7 +161,8 @@ if ( $op eq 'add_form' ) { || die "can't opendir $cgidir/value_builder: $!"; } while ( my $line = readdir(DIR) ) { - if ( $line =~ /\.pl$/ ) { + if ( $line =~ /\.pl$/ && + $line !~ /EXAMPLE\.pl$/ ) { # documentation purposes push( @value_builder, $line ); } } --