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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-05-06 20:39:24 -0400 (Wed, 06 May 2009)
New Revision: 13095

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
Log:
fixed mismatched function name

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-05-06 18:52:56 UTC (rev 13094)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm	2009-05-07 00:39:24 UTC (rev 13095)
@@ -218,7 +218,7 @@
 # begins and commit transactions as it goes
 sub create_lineitem_list_assets {
     my($mgr, $li_ids) = @_;
-    return undef if check_asset_create_perms($mgr, $li_ids);
+    return undef if check_import_li_marc_perms($mgr, $li_ids);
 
     # create the bibs/volumes/copies and ingest the records
     for my $li_id (@$li_ids) {
@@ -233,7 +233,7 @@
 }
 
 # returns event on error, undef on success
-sub check_import_marc_perms {
+sub check_import_li_marc_perms {
     my($mgr, $li_ids) = @_;
 
     # if there are any order records that are not linked to