projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge remote-tracking branch 'origin/new/bug_6199'
[koha_gimpoz]
/
C4
/
Biblio.pm
diff --git
a/C4/Biblio.pm
b/C4/Biblio.pm
index
579ebcf
..
56cd94e
100644
(file)
--- a/
C4/Biblio.pm
+++ b/
C4/Biblio.pm
@@
-3468,9
+3468,12
@@
Function exported, but should NOT be used, unless you really know what you're do
=cut
sub ModBiblioMarc {
=cut
sub ModBiblioMarc {
-
- #
pass the MARC::Record to this function, and it will create the records in
the marc field
+ # pass the MARC::Record to this function, and it will create the records in
+ # the marc field
my ( $record, $biblionumber, $frameworkcode ) = @_;
my ( $record, $biblionumber, $frameworkcode ) = @_;
+
+ # Clone record as it gets modified
+ $record = $record->clone();
my $dbh = C4::Context->dbh;
my @fields = $record->fields();
if ( !$frameworkcode ) {
my $dbh = C4::Context->dbh;
my @fields = $record->fields();
if ( !$frameworkcode ) {