sub cgiapp_prerun { my $self = shift; my $q = $self->query(); if ($q->param("file")) { $self->prerun_mode('file') } elsif ($q->param("db")) { $self->prerun_mode('db') } elsif ($q->param("mmdw")) { $self->prerun_mode('mmdw') }; }