From: Frédérick Capovilla <[email protected]>
Signed-off-by: Marcel de Rooy [email protected]
May 13: Patch applies to 3.4.X as well.
---
acqui/neworderempty.pl | 5 +++++
1 files changed, 5 insertions(+), 0 deletions(-)
diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index 386dda7..bd06b0c 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -132,6 +132,11 @@ if ( $ordernumber eq '' and defined
$params->{'breedingid'}){
my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'});
die("Could not find the selected record in the reservoir, bailing") unless
$marcrecord;
+ # Remove all the items (952) from the imported record
+ foreach my $item ($marcrecord->field('952')) {
+ $marcrecord->delete_field($item);
+ }
+
my $duplicatetitle;
#look for duplicates
($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord);
--
1.6.0.6
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/
