From 62eee6187d1702c3a3c9bed3655728e767a7b7df Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 2 Oct 2006 06:19:03 +0000 Subject: [PATCH] added output delete function git-svn-id: svn://svn.open-ils.org/ILS/trunk@6337 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Reporter.pm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm b/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm index dc55725536..052c28f8ba 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm @@ -313,6 +313,24 @@ sub delete_report { } +__PACKAGE__->register_method( + api_name => 'open-ils.reporter.schedule.delete', + method => 'delete_schedule'); +sub delete_schedule { + my( $self, $conn, $auth, $scheduleId ) = @_; + my $e = new_rstore_editor(authtoken=>$auth, xact=>1); + return $e->die_event unless $e->checkauth; + return $e->die_event unless $e->allowed('RUN_REPORTS'); + + my $t = $e->retrieve_reporter_schedule($scheduleId) + or return $e->die_event; + return 0 if $t->runner ne $e->requestor->id; + $e->delete_reporter_schedule($t) or return $e->die_event; + $e->commit; + return 1; +} + + __PACKAGE__->register_method( api_name => 'open-ils.reporter.template_has_reports', method => 'has_reports'); -- 2.43.2