View | Details | Raw Unified | Return to bug 10480
Collapse All | Expand All

(-)a/admin/auth_subfields_structure.pl (-2 / +3 lines)
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;
(-)a/admin/marc_subfields_structure.pl (-2 / +2 lines)
Lines 161-167 if ( $op eq 'add_form' ) { Link Here
161
          || die "can't opendir $cgidir/value_builder: $!";
161
          || die "can't opendir $cgidir/value_builder: $!";
162
    }
162
    }
163
    while ( my $line = readdir(DIR) ) {
163
    while ( my $line = readdir(DIR) ) {
164
        if ( $line =~ /\.pl$/ ) {
164
        if ( $line =~ /\.pl$/ &&
165
             $line !~ /EXAMPLE\.pl$/ ) { # documentation purposes
165
            push( @value_builder, $line );
166
            push( @value_builder, $line );
166
        }
167
        }
167
    }
168
    }
168
- 

Return to bug 10480