Attachment 60565 Details for Bug 12966 – Add option 'all' to ISBD template

[patch] Add option 'all' to ISBD template

0001-bug-3116-add-all-option-in-isbd-template-to-show-all.patch (text/plain), 1.84 KB, created by Pongtawat on 2017-02-22 16:45:09 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Pongtawat

Created: 2017-02-22 16:45:09 UTC

Size: 1.84 KB

patch

obsolete

>From b591d6b641dd0c86a59ec80480baa54fe1404736 Mon Sep 17 00:00:00 2001
>From: Pongtawat C <pongtawat@punsarn.asia>
>Date: Wed, 22 Feb 2017 23:26:46 +0700
>Subject: [PATCH] Bug 3116 - Add 'all' option in ISBD template to show all
> subfields in order Sponsored-by: Thammasat University
>
>---
> C4/Biblio.pm | 24 ++++++++++++++++++++++++
> 1 file changed, 24 insertions(+)
>
>diff --git a/C4/Biblio.pm b/C4/Biblio.pm
>index 6d64e80..525e9f0 100644
>--- a/C4/Biblio.pm
>+++ b/C4/Biblio.pm
>@@ -996,6 +996,30 @@ sub GetISBDView {
>                     }
>                 }
>                 $blocres .= $textafter if $hasputtextbefore;
>+            } elsif ( $analysestring =~ /^all(.*)/ )  {
>+                my $sep = $1 || " ";
>+
>+                foreach my $field (@fieldslist) {
>+                   my $calculated = "\n";
>+                   my $tag        = $field->tag();
>+                   my @subf = $field->subfields;
>+                   for my $i ( 0 .. $#subf ) {
>+                       my $valuecode     = $subf[$i][1];
>+                       my $subfieldcode  = $subf[$i][0];
>+                       my $subfieldvalue = GetAuthorisedValueDesc( $tag, $subf[$i][0], $subf[$i][1], '', $tagslib );
>+                       $calculated .= $subfieldvalue . $sep unless $subfieldcode == "9"
>+                   }
>+                   $calculated =~ s/$sep$//g;
>+
>+                   # field builded, store the result
>+                   if ( $calculated && !$hasputtextbefore ) {    # put textbefore if not done
>+                       $blocres .= $textbefore;
>+                       $hasputtextbefore = 1;
>+                   }
>+
>+                   $blocres .= $calculated;
>+                }
>+                $blocres .= $textafter if $hasputtextbefore;
>             } else {
>                 foreach my $field (@fieldslist) {
>                     my $calculated = $analysestring;
>-- 
>2.1.4
>

Actions: View | Diff | Splinter Review

Attachments on bug 12966: 60565 | 116021 | 116035 | 116036 | 116037 | 116867