Bugzilla – Attachment 20877 Details for
Bug 10331
Little errors in unimarc_field_4XX.pl (punctuation)
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
[PASSED QA] Bug 10331 - Little errors in unimarc_field_4XX.pl (punctuation)
PASSED-QA-Bug-10331---Little-errors-in-unimarcfiel.patch (text/plain), 4.65 KB, created by
Katrin Fischer
on 2013-09-08 08:40:11 UTC
(
hide
)
Description:
[PASSED QA] Bug 10331 - Little errors in unimarc_field_4XX.pl (punctuation)
Filename:
MIME Type:
Creator:
Katrin Fischer
Created:
2013-09-08 08:40:11 UTC
Size:
4.65 KB
patch
obsolete
>From e8caf7e6f52feff0aef44c86dda6e1c55b897643 Mon Sep 17 00:00:00 2001 >From: Janusz Kaczmarek <januszop@gmail.com> >Date: Fri, 24 May 2013 14:38:10 +0300 >Subject: [PATCH] [PASSED QA] Bug 10331 - Little errors in > unimarc_field_4XX.pl (punctuation) > >Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com> >Comment: Work as described, no koha-qa errors > >Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> >Copying the test plan from the bug report: > >A. >1) have $a active in one of the linking fields (like 461, 463, etc.). >2) have a biblio record with the field 700 $a, $b, $f filled up >3) go to cataloguing -> field 4XX of your choice, use the plugin to > fetch data from biblio rec. mentioned in 2) >4) see the punctuation in $a -- it will be wrong (no closing bracket) > >B. >1) have $a active in one of the linking fields (like 461, 463, etc.). >2) have a biblio record with the field 700 $a, $b, $c, $f filled up >3) go to cataloguing -> field 4XX of your choice, use the plugin to > fetch data from biblio rec. mentioned in 2) >4) see the punctuation in $a -- it will be wrong (dash instead of > semicolon between original $c and $f, no closing bracket) > >C. >1) have $a active in one of the linking fields (like 461, 463, etc.). >2) have a biblio record with the field 702 $a, $b, $c filled up >3) go to cataloguing -> field 4XX of your choice, use the plugin to > fetch data from biblio rec. mentioned in 2) >4) see the punctuation in $a -- it will be wrong (unnecessary semicolon > after original $c, n.b. lacking space). > >D. >1) have $a active in one of the linking fields (like 461, 463, etc.). >2) have a biblio record with the field 712 $a, $b filled up >3) go to cataloguing -> field 4XX of your choice, use the plugin to > fetch data from biblio rec. mentioned in b) >4) see the punctuation in $a -- it will be wrong (unnecessary opening > bracket at the end). > >Test plan, all tests and QA script pass. >Thx Bernardo for his testing and explanations! >--- > cataloguing/value_builder/unimarc_field_4XX.pl | 16 +++++++++++----- > 1 file changed, 11 insertions(+), 5 deletions(-) > >diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl >index e390010..75862cb 100755 >--- a/cataloguing/value_builder/unimarc_field_4XX.pl >+++ b/cataloguing/value_builder/unimarc_field_4XX.pl >@@ -116,16 +116,19 @@ sub plugin { > $subfield_value_a .= " " . $marcrecord->subfield( '700', "d" ) > if $marcrecord->subfield( '700', 'd' ); > $subfield_value_a .= >- " (" . $marcrecord->subfield( '700', 'c' ) . " - " >+ " (" . $marcrecord->subfield( '700', 'c' ) > if $marcrecord->subfield( '700', 'c' ); >+ $subfield_value_a .= " ; " >+ if $marcrecord->subfield( '700', 'c' ) >+ and $marcrecord->subfield( '700', 'f' ); > $subfield_value_a .= " (" > if ( $marcrecord->subfield( '700', 'f' ) > and not( $marcrecord->subfield( '700', 'c' ) ) ); > $subfield_value_a .= $marcrecord->subfield( '700', 'f' ) > if ( $marcrecord->subfield( '700', 'f' ) ); > $subfield_value_a .= ")" >- if ( $marcrecord->subfield( '701', 'f' ) >- or $marcrecord->subfield( '701', 'c' ) ); >+ if ( $marcrecord->subfield( '700', 'f' ) >+ or $marcrecord->subfield( '700', 'c' ) ); > } > elsif ( $marcrecord->field('702') ) { > $subfield_value_a = $marcrecord->subfield( '702', 'a' ); >@@ -134,8 +137,11 @@ sub plugin { > $subfield_value_a .= " " . $marcrecord->subfield( '702', 'd' ) > if $marcrecord->subfield( '702', 'd' ); > $subfield_value_a .= >- " (" . $marcrecord->subfield( '702', 'c' ) . "; " >+ " (" . $marcrecord->subfield( '702', 'c' ) > if $marcrecord->subfield( '702', 'c' ); >+ $subfield_value_a .= " ; " >+ if $marcrecord->subfield( '702', 'c' ) >+ and $marcrecord->subfield( '702', 'f' ); > $subfield_value_a .= " (" > if $marcrecord->subfield( '702', 'f' ) > and not $marcrecord->subfield( '702', 'c' ); >@@ -193,7 +199,7 @@ sub plugin { > " (" . $marcrecord->subfield( '712', 'f' ) . " - " > if $marcrecord->subfield( '712', 'f' ); > $subfield_value_a .= " (" >- if $marcrecord->field( '712', "e" ) >+ if $marcrecord->subfield( '712', "e" ) > and not $marcrecord->subfield( '712', 'f' ); > $subfield_value_a .= $marcrecord->subfield( '712', 'e' ) > if $marcrecord->subfield( '712', 'e' ); >-- >1.7.9.5
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 10331
:
18381
|
18481
|
20675
|
20676
| 20877