]> lifelog.hopto.org Git - LifeLog.git/commitdiff
Fix, introduced redirection fail.
authorwbudic <redacted>
Thu, 7 Mar 2019 02:59:19 +0000 (13:59 +1100)
committerwbudic <redacted>
Thu, 7 Mar 2019 02:59:19 +0000 (13:59 +1100)
htdocs/cgi-bin/remove.cgi

index 9d3f66afa76ba12ff605ada55fbbe99f4939a56a..1902b4aa0b461c77df14630c215827634eb4e862 100755 (executable)
@@ -45,11 +45,11 @@ my $tbl = '<form name="frm_log_del" action="remove.cgi" onSubmit="return formDel
                <table class="tbl">
                <tr class="r0"><th>Date</th><th>Time</th><th>Log</th><th>Category</th></tr>';
 
-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{