1 package SL::DB::Manager::CsvImportReport;
5 use base qw(SL::DB::Helper::Manager);
7 sub object_class { 'SL::DB::CsvImportReport' }
9 __PACKAGE__->make_manager_methods;
14 $::auth->active_session_ids;
17 my $objects = $self->get_all(query => [
19 not => [ $::auth->active_session_ids ]
23 $_->destroy for @$objects;
25 # get reports for the active session that aren't the latest
26 $objects = $self->get_all(
27 query => [ session_id => $::auth->get_session_id, ],
32 for (0 .. $#$objects - 1) {
33 $objects->[$_]->destroy;