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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-02-18 10:56:33 -0500 (Thu, 18 Feb 2010)
New Revision: 15579

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
silence more warnings

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-02-18 15:55:22 UTC (rev 15578)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2010-02-18 15:56:33 UTC (rev 15579)
@@ -23,6 +23,7 @@
     $self->{cache} = {};
     $self->throttle(5) unless $self->throttle;
     $self->{post_proc_queue} = [];
+    $self->{last_respond_progress} = 0;
     return $self;
 }
 
@@ -634,9 +635,11 @@
 sub create_lineitem_detail_debit {
     my($mgr, $li, $lid, $price, $ptype) = @_;
 
+    my $li_id = ref($li) ? $li->id : $li;
+
     unless(ref $li and ref $li->provider) {
        $li = $mgr->editor->retrieve_acq_lineitem([
-            $li,
+            $li_id,
             {   flesh => 1,
                 flesh_fields => {jub => ['provider']},
             }
@@ -1015,7 +1018,7 @@
         }
 
         my $result = $resp->content;
-        my $count = $result->{count};
+        my $count = $result->{count} || 0;
         $mgr->total( (($count < $search->{limit}) ? $count : $search->{limit})+1 );
 
         for my $rec (@{$result->{records}}) {