Bugzilla – Attachment 11637 Details for
Bug 8627
Fixing pipe values in MARC21 controlfield 008 of authorities
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
[SIGNED-OFF] 8627 Fixing pipe values in controlfield 008 authorities
SIGNED-OFF-8627-Fixing-pipe-values-in-controlfield.patch (text/plain), 3.79 KB, created by
Julian Maurice
on 2012-08-16 12:16:58 UTC
(
hide
)
Description:
[SIGNED-OFF] 8627 Fixing pipe values in controlfield 008 authorities
Filename:
MIME Type:
Creator:
Julian Maurice
Created:
2012-08-16 12:16:58 UTC
Size:
3.79 KB
patch
obsolete
>From b426734148e6caaad3fd1f3ec9de6f6b46f4b5c4 Mon Sep 17 00:00:00 2001 >From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> >Date: Mon, 13 Aug 2012 10:28:45 +0200 >Subject: [PATCH] [SIGNED-OFF] 8627 Fixing pipe values in controlfield 008 > authorities > >Signed-off-by: Julian Maurice <julian.maurice@biblibre.com> >--- > .../value_builder/marc21_field_008_authorities.pl | 81 ++++---------------- > 1 file changed, 15 insertions(+), 66 deletions(-) > >diff --git a/cataloguing/value_builder/marc21_field_008_authorities.pl b/cataloguing/value_builder/marc21_field_008_authorities.pl >index a7a671e..94366e6 100755 >--- a/cataloguing/value_builder/marc21_field_008_authorities.pl >+++ b/cataloguing/value_builder/marc21_field_008_authorities.pl >@@ -101,73 +101,22 @@ sub plugin { > debug => 1, > }); > $result = "$dateentered$defaultval" unless $result; >- my $f1 = substr($result,0,6); >- my $f6 = substr($result,6,1); >- my $f7 = substr($result,7,1); >- my $f8 = substr($result,8,1); >- my $f9 = substr($result,9,1); >- my $f10 = substr($result,10,1); >- my $f11 = substr($result,11,1); >- my $f12 = substr($result,12,1); >- my $f13 = substr($result,13,1); >- my $f14 = substr($result,14,1); >- my $f15 = substr($result,15,1); >- my $f16 = substr($result,16,1); >- my $f17 = substr($result,17,1); >- my $f28 = substr($result,28,1); >- my $f29 = substr($result,29,1); >- my $f31 = substr($result,31,1); >- my $f32 = substr($result,32,1); >- my $f33 = substr($result,33,1); >- my $f38 = substr($result,38,1); >- my $f39 = substr($result,39,1); >- >-if ((!$f1) ||($f1 =~ m/ /)){ >- $f1=$dateentered; >-} >+ my @f; >+ for(0,6..17,28,29,31..33,38,39) { >+ $f[$_]=substr($result,$_,$_==0?6:1); >+ } >+ $template->param(index => $index); > >- $template->param( index => $index, >- f1 => $f1, >- f6 => $f6, >- "f6$f6" => $f6, >- f7 => $f7, >- "f7$f7" => $f7, >- f8 => $f8, >- "f8$f8" => $f8, >- f9 => $f9, >- "f9$f9" => $f9, >- f10 => $f10, >- "f10$f10" => $f10, >- f11 => $f11, >- "f11$f11" => $f11, >- f12 => $f12, >- "f12$f12" => $f12, >- f13 => $f13, >- "f13$f13" => $f13, >- f14 => $f14, >- "f14$f14" => $f14, >- f15 => $f15, >- "f15$f15" => $f15, >- f16 => $f16, >- "f16$f16" => $f16, >- f17 => $f17, >- "f17$f17" => $f17, >- f28 => $f28, >- "f28$f28" => $f28, >- f29 => $f29, >- "f29$f29" => $f29, >- f31 => $f31, >- "f31$f31" => $f31, >- f32 => $f32, >- "f32$f32" => $f32, >- f33 => $f33, >- "f33$f33" => $f33, >- f38 => $f38, >- "f38$f38" => $f38, >- f39 => $f39, >- "f39$f39" => $f39, >- ); >- output_html_with_http_headers $input, $cookie, $template->output; >+ $f[0]= $dateentered if !$f[0] || $f[0]=~/\s/; >+ $template->param(f1 => $f[0]); >+ >+ for(6..17,28,29,31..33,38,39) { >+ $template->param( >+ "f$_" => $f[$_], >+ "f$_".($f[$_] eq '|'? 'pipe': $f[$_]) => $f[$_], >+ ); >+ } >+ output_html_with_http_headers $input, $cookie, $template->output; > } > > sub Field008 { >-- >1.7.10.4
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 8627
:
11572
|
11573
| 11637 |
11638