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

(-)a/cataloguing/value_builder/unimarc_leader_authorities.pl (-7 / +5 lines)
Lines 68-85 sub plugin { Link Here
68
    );
68
    );
69
    $result = "     nz  a22     3  4500" unless $result;
69
    $result = "     nz  a22     3  4500" unless $result;
70
70
71
71
    my $f5  = substr( $result, 5, 1 ); $f5   = wrapper( $f5 ) if $f5;
72
    my $f5  = substr( $result, 5, 1 ); $f5  = wrapper( $f5 ) if $f5;
72
    my $f6  = substr( $result, 6, 1 ); $f6   = wrapper( $f6 ) if $f6;
73
    my $f6  = substr( $result, 6, 1 ); $f6  = wrapper( $f6 ) if $f6;
73
    my $f9  = substr( $result, 9, 1 ); $f9   = wrapper( $f9 ) if $f9;
74
    my $f9  = substr( $result, 9, 1 ); $f9  = wrapper( $f9 ) if $f9;
74
    my $f17 = substr( $result, 17, 1 ); $f17 = wrapper( $f17 ) if $f17;
75
    my $f17  = substr( $result, 17, 1 ); $f17  = wrapper( $f17 ) if $f17;
76
75
77
    $template->param(
76
    $template->param(
78
        index     => $index,
77
        index     => $index,
79
        "f5$f5"   => 1,
78
        "f5$f5"   => 1,
80
        "f6$f6"   => 1,
79
        "f6$f6"   => 1,
81
        "f9$f9"   => 1,
80
        "f9$f9"   => 1,
82
        "f17$f17"   => 1,
81
        "f17$f17" => 1,
83
);
82
);
84
    output_html_with_http_headers $input, $cookie, $template->output;
83
    output_html_with_http_headers $input, $cookie, $template->output;
85
}
84
}
86
- 

Return to bug 24698