From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 7 May 2009 00:39:24 +0000 (+0000)
Subject: fixed mismatched function name
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=05ee6c3ca337bba6c364c53cf2409a81ef311d94;p=evergreen%2Fmasslnc.git

fixed mismatched function name

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13095 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
index ad14b037b6..8a1e86f312 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm
@@ -218,7 +218,7 @@ sub delete_lineitem {
 # 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 @@ sub create_lineitem_list_assets {
 }
 
 # 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