From a05bedf3bb94c63147d40383316c96fd8d64cf6a Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 4 Oct 2006 22:41:39 +0000 Subject: [PATCH] added method to determine if a report has attached schedule objects git-svn-id: svn://svn.open-ils.org/ILS/trunk@6389 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm b/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm index 052c28f8ba..f92e811a9c 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm @@ -344,6 +344,20 @@ sub has_reports { return 0; } +__PACKAGE__->register_method( + api_name => 'open-ils.reporter.report_has_output', + method => 'has_output'); +sub has_output { + my( $self, $conn, $auth, $reportId ) = @_; + my $e = new_rstore_editor(authtoken=>$auth); + return $e->die_event unless $e->checkauth; + return $e->die_event unless $e->allowed('RUN_REPORTS'); + my $outs = $e->search_reporter_schedule({report=>$reportId},{idlist=>1}); + return 1 if @$outs; + return 0; +} + + __PACKAGE__->register_method( method => 'org_full_path', -- 2.11.0