Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use OpenSRF::Utils::Logger qw/:logger/;
- __PACKAGE__->register_method(
- method => 'regenerate_summaries',
- api_name => 'open-ils.serial.regenerate_summaries',
- api_level => 1,
- argc => 1,
- signature => {
- 'desc' => 'Regenerate all the generated_coverage fields for given distributions',
- 'params' => [ {
- name => 'sdist_ids',
- desc => 'IDs of the distribution whose coverage you want to regenerate',
- type => 'array'
- }
- ],
- 'return' => {
- desc => 'Returns undef if successful, event if failed',
- type => 'mixed'
- }
- #TODO: best practices for return values
- }
- );
- sub regenerate_summaries {
- my ($self, $conn, $auth, $sdist_ids) = @_;
- #HERE HERE HERE#
- my $obj = Devel::Symdump->new('example');
- warn "SERIALS: ". $obj->as_string();
- OpenSRF::Utils::Logger->error("SERIALS: ". $obj->as_string());
- $logger->error("SERIALS: ". $obj->as_string());
- #NOT ANYMORE HERE HERE HERE #
- my $e = new_editor("authtoken" => $auth, "xact" => 1);
- return $e->die_event unless $e->checkauth;
- ............
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement