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

(-)a/authorities/authorities.pl (-4 / +4 lines)
Lines 47-53 builds list, depending on authorised value... Link Here
47
47
48
=cut
48
=cut
49
49
50
sub build_authorized_values_list ($$$$$$$) {
50
sub build_authorized_values_list {
51
    my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;
51
    my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;
52
52
53
    my @authorised_values;
53
    my @authorised_values;
Lines 321-331 Create a random value to set it into the input name Link Here
321
321
322
=cut
322
=cut
323
323
324
sub CreateKey(){
324
sub CreateKey {
325
    return int(rand(1000000));
325
    return int(rand(1000000));
326
}
326
}
327
327
328
sub build_tabs ($$$$$) {
328
sub build_tabs {
329
    my ( $template, $record, $dbh, $encoding,$input ) = @_;
329
    my ( $template, $record, $dbh, $encoding,$input ) = @_;
330
330
331
    # fill arrays
331
    # fill arrays
Lines 499-505 sub build_tabs ($$$$$) { Link Here
499
}
499
}
500
500
501
501
502
sub build_hidden_data () {
502
sub build_hidden_data {
503
    # build hidden data =>
503
    # build hidden data =>
504
    # we store everything, even if we show only requested subfields.
504
    # we store everything, even if we show only requested subfields.
505
505
(-)a/authorities/detail.pl (-1 / +1 lines)
Lines 50-56 use C4::Koha; Link Here
50
50
51
our ($tagslib);
51
our ($tagslib);
52
52
53
sub build_tabs ($$$$$) {
53
sub build_tabs {
54
    my ( $template, $record, $dbh, $encoding,$input ) = @_;
54
    my ( $template, $record, $dbh, $encoding,$input ) = @_;
55
55
56
    # fill arrays
56
    # fill arrays
(-)a/t/00-testcritic.t (-2 / +1 lines)
Lines 16-22 my @all_koha_dirs = qw( acqui admin authorities basket C4 catalogue cataloguing Link Here
16
labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections
16
labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections
17
serials sms suggestion t tags test tools virtualshelves);
17
serials sms suggestion t tags test tools virtualshelves);
18
18
19
my @dirs = qw( acqui admin basket circ debian errors offline_circ reserve reviews rotating_collections
19
my @dirs = qw( acqui admin authorities basket circ debian errors offline_circ reserve reviews rotating_collections
20
serials sms virtualshelves );
20
serials sms virtualshelves );
21
21
22
if ( not $ENV{TEST_QA} ) {
22
if ( not $ENV{TEST_QA} ) {
23
- 

Return to bug 6679