This fix the problem with the Get function in C4::Biblio, the new name is GetRecordValue and located in export_ok.
require C4::Heading;
require C4::Serials;
require C4::Heading;
require C4::Serials;
-use vars qw($VERSION @ISA @EXPORT);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
# to add biblios
# EXPORTED FUNCTIONS.
# to add biblios
# EXPORTED FUNCTIONS.
+ push @EXPORT_OK, qw(
+ &GetRecordValue
+ );
+
push @EXPORT, qw(
&AddBiblio
);
# to get something
push @EXPORT, qw(
push @EXPORT, qw(
&AddBiblio
);
# to get something
push @EXPORT, qw(
&GetBiblio
&GetBiblioData
&GetBiblioItemData
&GetBiblio
&GetBiblioData
&GetBiblioItemData
&GetBiblioItemByBiblioNumber
&GetBiblioFromItemNumber
&GetBiblioItemByBiblioNumber
&GetBiblioFromItemNumber
- GetFieldMapping
- SetFieldMapping
- DeleteFieldMapping
+ &GetFieldMapping
+ &SetFieldMapping
+ &DeleteFieldMapping
return $num_headings_changed;
}
return $num_headings_changed;
}
-my $values = Get($field, $record, $frameworkcode);
+my $values = GetRecordValue($field, $record, $frameworkcode);
my ($field, $record, $frameworkcode) = @_;
my $dbh = C4::Context->dbh;
my ($field, $record, $frameworkcode) = @_;
my $dbh = C4::Context->dbh;