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

(-)a/C4/NewsChannels.pm (-1 / +2 lines)
Lines 58-63 sub add_opac_new { Link Here
58
    my $retval = 0;
58
    my $retval = 0;
59
59
60
    if ($href_entry) {
60
    if ($href_entry) {
61
        $href_entry->{number} = 0 if $href_entry->{number} !~ /^\d+$/;
61
        my @fields = keys %{$href_entry};
62
        my @fields = keys %{$href_entry};
62
        my @values = values %{$href_entry};
63
        my @values = values %{$href_entry};
63
        my $field_string = join ',', @fields;
64
        my $field_string = join ',', @fields;
Lines 85-90 sub upd_opac_new { Link Here
85
    my $retval = 0;
86
    my $retval = 0;
86
87
87
    if ($href_entry) {
88
    if ($href_entry) {
89
        $href_entry->{number} = 0 if $href_entry->{number} !~ /^\d+$/;
88
        # take the keys of hash entry and make a list, but...
90
        # take the keys of hash entry and make a list, but...
89
        my @fields = keys %{$href_entry};
91
        my @fields = keys %{$href_entry};
90
        my @values;
92
        my @values;
91
- 

Return to bug 21066