From 05ee6c3ca337bba6c364c53cf2409a81ef311d94 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 7 May 2009 00:39:24 +0000 Subject: [PATCH] fixed mismatched function name git-svn-id: svn://svn.open-ils.org/ILS/trunk@13095 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Order.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.43.2