diff --git a/docs/upgrades/7fixup.pl b/docs/upgrades/7fixup.pl index a09fd5def..084561657 100644 --- a/docs/upgrades/7fixup.pl +++ b/docs/upgrades/7fixup.pl @@ -33,10 +33,9 @@ sub addTemplates { className=>"WebGUI::Asset::Template", template=>q|

- - - - +
+ +
|, title=>"Flash Template", menuTitle=>"Flash Template", diff --git a/lib/WebGUI/Session/ErrorHandler.pm b/lib/WebGUI/Session/ErrorHandler.pm index 0fa717242..c9b5ebc62 100644 --- a/lib/WebGUI/Session/ErrorHandler.pm +++ b/lib/WebGUI/Session/ErrorHandler.pm @@ -195,10 +195,10 @@ sub fatal { #NOTE: You can't internationalize this because with some types of errors that would cause an infinite loop. $self->session->output->print("

Problem With Request

We have encountered a problem with your request. Please use your back button and try again. - If this problem persists, please contact us with what you were trying to do and the time and date of the problem.",1); - $self->session->output->print('
'.$self->session->setting("companyName"),1); - $self->session->output->print('
'.$self->session->setting("companyEmail"),1); - $self->session->output->print('
'.$self->session->setting("companyURL"),1); + If this problem persists, please contact us with what you were trying to do and the time and date of the problem.
",1); + $self->session->output->print('
'.$self->session->setting->get("companyName"),1); + $self->session->output->print('
'.$self->session->setting->get("companyEmail"),1); + $self->session->output->print('
'.$self->session->setting->get("companyURL"),1); } else { $self->session->output->print("

WebGUI Fatal Error

Something unexpected happened that caused this system to fault.

\n",1); $self->session->output->print("

".$message."

\n",1); @@ -206,7 +206,7 @@ sub fatal { $self->session->output->print($self->showDebug(),1); } $self->session->close(); - die $message; + exit; } diff --git a/lib/WebGUI/Session/Http.pm b/lib/WebGUI/Session/Http.pm index 644b00abe..e61fadb78 100644 --- a/lib/WebGUI/Session/Http.pm +++ b/lib/WebGUI/Session/Http.pm @@ -184,7 +184,7 @@ sub sendHeader { my $date = $self->session->datetime->epochToHuman(($self->{_http}{lastModified} || time()), "%W, %d %C %y %j:%m:%s %t"); $self->session->request->headers_out->set('Last-Modified' => $date); if ($self->session->setting->get("preventProxyCache")) { - $self->session->request->headers_out->set(Expires => "-1d"); + $self->setCacheControl(-60*60*24*365); } if ($self->{_http}{filename}) { $self->session->request->headers_out->set('Content-Disposition' => qq!attachment; filename="$self->{_http}{filename}"!);