[open-ils-commits] [GIT] Evergreen ILS branch master updated. 81ce189f4623e62109bdc5bbcbcc9ba8c48e4dd5

[Evergreen Git]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Evergreen ILS".

The branch, master has been updated
       via  81ce189f4623e62109bdc5bbcbcc9ba8c48e4dd5 (commit)
      from  65693ac32e4ccb82eee8aa7fc94f77668a912e81 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 81ce189f4623e62109bdc5bbcbcc9ba8c48e4dd5
Author: Steven Chan <schan at sitka.bclibraries.ca>
Date:   Sat Jun 15 13:06:43 2013 -0400

    Fix LP1177916, Cannot activate PO which contains only direct charges
    We add a safety check in the function
    Application/Acq/Order.pm/create_lineitem_list_assets(), which is called
    by create_po_assets(), which is the service call initiated by the user
    trying to activate a PO.
    
    The safety check prevents the function from processing if there are no
    line items specified in the arguments.
    
    P.S. It would be better to stop the sequence of events earlier in the
    client, but that will need more coding, which can been done in another
    fix.
    
    Signed-off-by: Steven Chan <schan at sitka.bclibraries.ca>
    Signed-off-by: Kathy Lussier <klussier at masslnc.org>
    Signed-off-by: Jason Stephenson <jstephenson at mvlc.org>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
index e813cd9..1a774d8 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm
@@ -299,6 +299,9 @@ sub delete_lineitem {
 sub create_lineitem_list_assets {
     my($mgr, $li_ids, $vandelay, $bib_only) = @_;
 
+    # Do not create line items if none are specified
+    return {} unless (scalar(@$li_ids));
+
     if (check_import_li_marc_perms($mgr, $li_ids)) { # event on error
         $logger->error("acq-vl: user does not have permission to import acq records");
         return undef;

-----------------------------------------------------------------------

Summary of changes:
 .../perlmods/lib/OpenILS/Application/Acq/Order.pm  |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)


hooks/post-receive
-- 
Evergreen ILS