From e63849d1375d1cdd18bfbccd3753786902866ef3 Mon Sep 17 00:00:00 2001
From: Nahuel ANGELINETTI <nahuel.angelinetti@biblibre.com>
Date: Tue, 7 Jul 2009 15:42:32 +0200
Subject: [PATCH] [followup](bug #3370) fix the "Get" function name

This fix the problem with the Get function in C4::Biblio, the new name is GetRecordValue and located in export_ok.
---
 C4/Biblio.pm | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index bb86999852..22761b29e9 100755
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -36,7 +36,7 @@ use C4::Charset;
 require C4::Heading;
 require C4::Serials;
 
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
 BEGIN {
 	$VERSION = 1.00;
@@ -46,13 +46,16 @@ BEGIN {
 
 	# to add biblios
 # EXPORTED FUNCTIONS.
+    push @EXPORT_OK, qw(
+        &GetRecordValue
+    );
+
 	push @EXPORT, qw( 
 		&AddBiblio
 	);
 
 	# to get something
 	push @EXPORT, qw(
-	    &Get
 		&GetBiblio
 		&GetBiblioData
 		&GetBiblioItemData
@@ -60,9 +63,9 @@ BEGIN {
 		&GetBiblioItemByBiblioNumber
 		&GetBiblioFromItemNumber
 		
-		GetFieldMapping
-		SetFieldMapping
-		DeleteFieldMapping
+		&GetFieldMapping
+		&SetFieldMapping
+		&DeleteFieldMapping
 		
 		&GetISBDView
 
@@ -471,11 +474,11 @@ sub LinkBibHeadingsToAuthorities {
     return $num_headings_changed;
 }
 
-=head2 Get
+=head2 GetRecordValue
 
 =over 4
 
-my $values = Get($field, $record, $frameworkcode);
+my $values = GetRecordValue($field, $record, $frameworkcode);
 
 =back
 
@@ -483,7 +486,7 @@ Get MARC fields from a keyword defined in fieldmapping table.
 
 =cut
 
-sub Get {
+sub GetRecordValue {
     my ($field, $record, $frameworkcode) = @_;
     my $dbh = C4::Context->dbh;
     
-- 
2.39.5