From 50a71214d05246d355f0dd0303dc57748141baf3 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Wed, 7 Oct 2009 09:46:35 +0200
Subject: [PATCH] Adding systempreference itemcallnumber support

In PrepareItemrecordInput preference system for itemcallnumber was not correctly set.
This is a quick fix for that
---
 C4/Biblio.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 8f8629d159..c7645e27fe 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -2275,6 +2275,9 @@ sub PrepareItemrecordDisplay {
       &GetMarcFromKohaField( "items.itemnumber", $frameworkcode );
     my $tagslib = &GetMarcStructure( 1, $frameworkcode );
     my $itemrecord = C4::Items::GetMarcItem( $bibnum, $itemnum) if ($itemnum);
+	# FIXME : I'd rather have GetMarcBiblio called out of this.
+	# Since it gets the whole Biblio record for each item
+    my $marcrecord = GetMarcBiblio( $bibnum) if ($bibnum);
     my @loop_data;
     my $authorised_values_sth =
       $dbh->prepare(
@@ -2327,7 +2330,7 @@ sub PrepareItemrecordDisplay {
                       substr( C4::Context->preference('itemcallnumber'), 0, 3 );
                     my $CNsubfield =
                       substr( C4::Context->preference('itemcallnumber'), 3, 1 );
-                    my $temp = $itemrecord->field($CNtag) if ($itemrecord);
+                    my $temp = $marcrecord->field($CNtag) if ($marcrecord);
                     if ($temp) {
                         $value = $temp->subfield($CNsubfield);
                     }
-- 
2.20.1