done cleaning

This commit is contained in:
mynah
2020-01-20 18:19:38 -06:00
parent 7dfd107c04
commit f16d579996
19 changed files with 165 additions and 144 deletions

View File

@@ -25,15 +25,23 @@ sub cal {
sub event{
my $c = shift;
my $data=$c->mproc->event($c->param('id'));
$c->redirect_to('cal') unless ($data->{'cname'});
$c->redirect_to('cal') unless (defined $data->{'cname'});
$c->stash($data);
$c->stash(layout=> "defaultContact");
}
sub store{
sub spay{
my $c = shift;
$c->stash( r=>$c->dbg->store);
$c->stash(layout=> "defaultContact");
my $data=$c->mproc->spay(1,$c->param('id'));
$c->redirect_to('cal') unless (defined $data->{'tid'});
if ($c->param('id') >= 80 && $c->param('id') <= 86 ){
$c->stash(layout=> "xpay");
}
else {
$c->stash(layout=> "defaultContact");
}
$c->stash($data);
}
#stripe appi function =============================================================================