From fa784c551d100ca755c8d82d8a54cfcacf975dfc Mon Sep 17 00:00:00 2001 From: wbudic Date: Thu, 7 Mar 2019 13:59:19 +1100 Subject: [PATCH] Fix, introduced redirection fail. --- htdocs/cgi-bin/remove.cgi | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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{ -- 2.34.1