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 <tomascohen@gmail.com>

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;

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