From: wbudic Date: Thu, 7 Mar 2019 02:59:19 +0000 (+1100) Subject: Fix, introduced redirection fail. X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=fa784c551d100ca755c8d82d8a54cfcacf975dfc;p=LifeLog.git Fix, introduced redirection fail. --- diff --git a/htdocs/cgi-bin/remove.cgi b/htdocs/cgi-bin/remove.cgi index 9d3f66a..1902b4a 100755 --- a/htdocs/cgi-bin/remove.cgi +++ b/htdocs/cgi-bin/remove.cgi @@ -45,11 +45,11 @@ my $tbl = '
DateTimeLogCategory'; -print $q->header(-expires=>"+6os"); my $datediff = $q->param("datediff"); my $confirmed = $q->param('confirmed'); if ($datediff){ + print $q->header(-expires=>"+6os"); print $q->start_html(-title => "Date Difference Report", -script=>{-type => 'text/javascript', -src => 'wsrc/main.js'}, -style =>{-type => 'text/css', -src => 'wsrc/main.css'} @@ -57,6 +57,7 @@ if ($datediff){ ); &DisplayDateDiffs; }elsif (!$confirmed){ + print $q->header(-expires=>"+6os"); print $q->start_html(-title => "Personal Log Record Removal", -script=>{-type => 'text/javascript', -src => 'wsrc/main.js'}, -style =>{-type => 'text/css', -src => 'wsrc/main.css'} @@ -135,9 +136,10 @@ sub ConfirmedDelition{ } + $st->finish; + print $q->redirect('main.cgi'); - $st->finish; } sub NotConfirmed{