From 2292bff781305dc8a16328c43394fb2c3aaa34f6 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 16 Apr 2015 15:19:40 -0300 Subject: [PATCH] Bug 10480: (QA followup) hide the EXAMPLE.pl plugin The EXAMPLE.pl plugin remains on the source tree for documentation purposes only, and shouldn't be listed when editing both biblio and authority cataloguing frameworks. Signed-off-by: Tomas Cohen Arazi --- admin/auth_subfields_structure.pl | 5 +++-- admin/marc_subfields_structure.pl | 3 ++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl index 1a2ec15..e845136 100755 --- a/admin/auth_subfields_structure.pl +++ b/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; diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl index 5261dd4..b12062a 100755 --- a/admin/marc_subfields_structure.pl +++ b/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 ); } } -- 2.3.5