From e135cba5a56d9dbadd5a609aa8858d87fe03395b Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 21 Aug 2013 15:18:31 +1000 Subject: [PATCH] Bug 10773 - Add item-level descriptions for Label Printing This patch adds new fields ccode_description, homebranch_description, holdingbranch_description, location_description and permanent_location_description which can be used in the Label Creator to display names/descriptions instead of codes Test Plan: 1) Edit a layout in the Label Creator so that it includes any of these fields. I suggest including "homebranch_description" and perhaps "ccode_description" if you have them in your item data. 2) Add items to a batch in the Label Creator. 3) Export the batch using the layout, and view as PDF 4) Verify that you see descriptions for fields which you added Signed-off-by: Nick Signed-off-by: Kyle M Hall Signed-off-by: Tomas Cohen Arazi (cherry picked from commit 5c4854a2119d9aba52d87a7ec66f306ebf0ea881) Signed-off-by: Chris Cormack --- C4/Labels/Label.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm index bd3ee4fe7b..83093a4dbd 100644 --- a/C4/Labels/Label.pm +++ b/C4/Labels/Label.pm @@ -97,6 +97,16 @@ sub _get_label_item { my $data1 = $sth1->fetchrow_hashref; $data->{'itemtype'} = $data1->{'description'}; $data->{'itype'} = $data1->{'description'}; + # add *_description fields + if ($data->{'homebranch'} || $data->{'holdingbranch'}){ + require C4::Branch; + $data->{'homebranch_description'} = C4::Branch::GetBranchName($data->{'homebranch'}) if $data->{'homebranch'}; + $data->{'holdingbranch_description'} = C4::Branch::GetBranchName($data->{'holdingbranch'}) if $data->{'holdingbranch'}; + } + $data->{'ccode_description'} = C4::Biblio::GetAuthorisedValueDesc('','', $data->{'ccode'} ,'','','CCODE', 1) if $data->{'ccode'}; + $data->{'location_description'} = C4::Biblio::GetAuthorisedValueDesc('','', $data->{'location'} ,'','','LOC', 1) if $data->{'location'}; + $data->{'permanent_location_description'} = C4::Biblio::GetAuthorisedValueDesc('','', $data->{'permanent_location'} ,'','','LOC', 1) if $data->{'permanent_location'}; + $barcode_only ? return $data->{'barcode'} : return $data; } -- 2.39.5