---
C4/Items.pm | 2 ++
cataloguing/addbiblio.pl | 4 +++-
2 files changed, 5 insertions(+), 1 deletions(-)
diff --git a/C4/Items.pm b/C4/Items.pm
index 57d63c5..faf5582 100644
--- a/C4/Items.pm
+++ b/C4/Items.pm
@@ -44,6 +44,8 @@ BEGIN {
# function exports
@EXPORT = qw(
GetItem
+ GetMarcItem
+ _add_item_field_to_biblio
AddItemFromMarc
AddItem
AddItemBatchFromMarc
diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl
index 6961624..5baf343 100755
--- a/cataloguing/addbiblio.pl
+++ b/cataloguing/addbiblio.pl
@@ -34,7 +34,7 @@ use C4::Branch; # XXX subfield_is_koha_internal_p
use C4::ClassSource;
use C4::ImportBatch;
use C4::Charset;
-
+use C4::Items;
use Date::Calc qw(Today);
use MARC::File::USMARC;
use MARC::File::XML;
@@ -953,6 +953,8 @@ if ( $op eq "addbiblio" ) {
if ($analytical_record eq 1){
link_analytical_to_parent($parentbiblionumber, $biblionumber,
$itemnumber, $oldbibitemnum );
+ my $new_item_marc = &GetMarcItem($parentbiblionumber,
$itemnumber);
+ &_add_item_field_to_biblio($new_item_marc,
$biblionumber,$frameworkcode);
}
--
1.5.4.5
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-patches
