From d86d8c251493e786357a1b3807f70db48f28a9e5 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 31 Oct 2006 02:26:44 +0000 Subject: [PATCH] broke output retrieval into completed/non-completed items git-svn-id: svn://svn.open-ils.org/ILS/trunk@6531 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Reporter.pm | 28 ++++++++++++++++++- 1 file changed, 27 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm b/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm index c42f48b6d1..127dbb30cb 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Reporter.pm @@ -97,7 +97,7 @@ __PACKAGE__->register_method( api_name => 'open-ils.reporter.schedule.retrieve_by_folder', method => 'retrieve_schedules'); sub retrieve_schedules { - my( $self, $conn, $auth, $folderId, $limit ) = @_; + my( $self, $conn, $auth, $folderId, $limit, $complete ) = @_; my $e = new_rstore_editor(authtoken=>$auth); return $e->event unless $e->checkauth; return $e->event unless $e->allowed('RUN_REPORTS'); @@ -113,6 +113,9 @@ sub retrieve_schedules { ]; $query->[1]->{limit} = $limit if $limit; + $query->[0]->{complete_time} = undef unless $complete; + $query->[0]->{complete_time} = { '!=' => undef } if $complete; + return $e->search_reporter_schedule($query); } @@ -256,6 +259,29 @@ sub update_report { } +__PACKAGE__->register_method( + api_name => 'open-ils.reporter.schedule.update', + method => 'update_schedule'); +sub update_schedule { + my( $self, $conn, $auth, $schedule ) = @_; + 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 $s = $e->retrieve_reporter_schedule($schedule->id) + or return $e->die_event; + my $r = $e->retrieve_reporter_report($s->report) + or return $e->die_event; + if( $r->owner ne $e->requestor->id ) { + $e->rollback; + return 0; + } + $e->update_reporter_schedule($schedule) + or return $e->die_event; + $e->commit; + return 1; +} + + __PACKAGE__->register_method( api_name => 'open-ils.reporter.folder.update', method => 'update_folder'); -- 2.43.2