[open-ils-commits] r12935 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-21 10:17:58 -0400 (Tue, 21 Apr 2009)
New Revision: 12935

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
for a given lineitem, give each lid that does not have a callnumber label defined the same callnumber

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-04-21 14:05:37 UTC (rev 12934)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-04-21 14:17:58 UTC (rev 12935)
@@ -720,14 +720,20 @@
     # for each lineitem_detail, create the volume if necessary, create 
     # a copy, and link them all together.
     # -----------------------------------------------------------------
+    my $first_cn;
     for my $lid_id (@{$li_details}) {
 
         my $lid = $mgr->editor->retrieve_acq_lineitem_detail($lid_id) or return 0;
         next if $lid->eg_copy_id;
 
+        # use the same callnumber label for all items within this lineitem
+        $lid->cn_label($first_cn) if $first_cn and not $lid->cn_label;
+
         # apply defaults if necessary
         return 0 unless complete_lineitem_detail($mgr, $lid);
 
+        $first_cn = $lid->cn_label unless $first_cn;
+
         my $org = $lid->owning_lib;
         my $label = $lid->cn_label;
         my $bibid = $li->eg_bib_id;