package FlierAdminReports;
use strict;
use base qw/ FlierReports /;
sub setup {
my $self = shift;
$self->start_mode( 'options' );
$self->mode_param( 'rm' );
$self->run_modes(
options => \&searchOpts,
summary => \&orderSummary,
);
}
####
package FlierReports;
use strict;
use Data::Dumper;
use base qw/ FlierFunctions /;
sub setup {
my $self = shift;
# Setup the run mode stuff
$self->start_mode( 'openOrders' );
$self->mode_param( 'rm' );
$self->run_modes(
openOrders => \&openOrderSummary,
detail => \&openOrderDetail,
markDone => \&markFinished,
);
}
####
No such run-mode 'detail' at /usr/lib/perl5/site_perl/5.8.0/CGI/Application.pm line 133