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

(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-67 / +15 lines)
Lines 101-173 sub plugin { Link Here
101
			     debug => 1,
101
			     debug => 1,
102
			     });
102
			     });
103
	$result = "$dateentered$defaultval" unless $result;
103
	$result = "$dateentered$defaultval" unless $result;
104
	my $f1 = substr($result,0,6);
104
    my @f;
105
	my $f6 = substr($result,6,1);
105
    for(0,6..17,28,29,31..33,38,39) {
106
	my $f7 = substr($result,7,1);
106
        $f[$_]=substr($result,$_,$_==0?6:1);
107
	my $f8 = substr($result,8,1);
107
    }
108
	my $f9 = substr($result,9,1);
108
    $template->param(index => $index);
109
	my $f10 = substr($result,10,1);
110
	my $f11 = substr($result,11,1);
111
	my $f12 = substr($result,12,1);
112
	my $f13 = substr($result,13,1);
113
	my $f14 = substr($result,14,1);
114
	my $f15 = substr($result,15,1);
115
	my $f16 = substr($result,16,1);
116
	my $f17 = substr($result,17,1);
117
	my $f28 = substr($result,28,1);
118
	my $f29 = substr($result,29,1);
119
	my $f31 = substr($result,31,1);
120
	my $f32 = substr($result,32,1);
121
	my $f33 = substr($result,33,1);
122
	my $f38 = substr($result,38,1);
123
	my $f39 = substr($result,39,1);
124
125
if ((!$f1) ||($f1 =~ m/ /)){
126
	$f1=$dateentered;
127
}
128
109
129
	$template->param(				index => $index,
110
    $f[0]= $dateentered if !$f[0] || $f[0]=~/\s/;
130
							f1 => $f1,
111
    $template->param(f1 => $f[0]);
131
							f6 => $f6,
112
132
							"f6$f6" => $f6,
113
    for(6..17,28,29,31..33,38,39) {
133
                            f7 => $f7,
114
        $template->param(
134
                            "f7$f7" => $f7,
115
            "f$_" => $f[$_],
135
                            f8 => $f8,
116
            "f$_".($f[$_] eq '|'? 'pipe': $f[$_]) => $f[$_],
136
                            "f8$f8" => $f8,
117
        );
137
                            f9 => $f9,
118
    }
138
                            "f9$f9" => $f9,
119
    output_html_with_http_headers $input, $cookie, $template->output;
139
                            f10 => $f10,
140
                            "f10$f10" => $f10,
141
                            f11 => $f11,
142
                            "f11$f11" => $f11,
143
                            f12 => $f12,
144
                            "f12$f12" => $f12,
145
                            f13 => $f13,
146
                            "f13$f13" => $f13,
147
                            f14 => $f14,
148
                            "f14$f14" => $f14,
149
                            f15 => $f15,
150
                            "f15$f15" => $f15,
151
                            f16 => $f16,
152
                            "f16$f16" => $f16,
153
                            f17 => $f17,
154
                            "f17$f17" => $f17,
155
                            f28 => $f28,
156
                            "f28$f28" => $f28,
157
                            f29 => $f29,
158
                            "f29$f29" => $f29,
159
                            f31 => $f31,
160
                            "f31$f31" => $f31,
161
                            f32 => $f32,
162
                            "f32$f32" => $f32,
163
                            f33 => $f33,
164
                            "f33$f33" => $f33,
165
                            f38 => $f38,
166
                            "f38$f38" => $f38,
167
                            f39 => $f39,
168
                            "f39$f39" => $f39,
169
					);
170
        output_html_with_http_headers $input, $cookie, $template->output;
171
}
120
}
172
121
173
sub Field008 {
122
sub Field008 {
174
- 

Return to bug 8627