Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 10480: (QA followup) hide the EXAMPLE.pl plugin

Browse source 
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>
This commit is contained in:
Tomás Cohen Arazi 2015-04-16 15:19:40 -03:00
parent 7db33499b1
commit 2292bff781
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
admin/auth_subfields_structure.pl
View file

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

3
admin/marc_subfields_structure.pl
View file

@ -161,7 +161,8 @@ if ( $op eq 'add_form' ) {
|| die "can't opendir $cgidir/value_builder: $!"; || die "can't opendir $cgidir/value_builder: $!";
} }
while ( my $line = readdir(DIR) ) { while ( my $line = readdir(DIR) ) {
if ( $line =~ /\.pl$/ ) { if ( $line =~ /\.pl$/ &&
$line !~ /EXAMPLE\.pl$/ ) { # documentation purposes
push( @value_builder, $line ); push( @value_builder, $line );
} }
} }