sub post { my $c = shift; #get data from the form and build sql in $sql{$key} my $stm = $c->app->db1->db->prepare_cached( $sql{$key} ) or die $c->app->db1->db->errstr; # unless(exists $sql{$key}); $toFind = format_search_arg( $toFind, $mode ); $c->app->log->debug( $mode . " " . $toFind ); $stm->execute($toFind) or die $stm->errstr; $c->stash( stm => $stm, for_abo => $for_abo ); }