misc. syntax fixes.

This commit is contained in:
Matthew Wilson 2006-01-14 20:01:41 +00:00
parent 4f582e5853
commit 6009ead286
5 changed files with 26 additions and 27 deletions

View file

@ -176,7 +176,7 @@ Adds a FATAL type message to the log, outputs an error message to the user, and
sub fatal {
my $self = shift;
my $message = shift;
my $self->{_session}->http->setStatus("500","Server Error");
$self->{_session}->http->setStatus("500","Server Error");
Apache2::RequestUtil->request->content_type('text/html') if ($self->{_session}->request);
$self->getLogger->fatal($message);
$self->getLogger->debug("Stack trace for FATAL ".$message."\n".$self->getStackTrace());

View file

@ -267,7 +267,7 @@ sub help {
my $urlParams = shift;
my $pageURL = shift || $self->session->url->getRequestedUrl;
my ($output, $namespace);
my $output = '<a href="'.$self->session->url->page('op=viewHelp;hid='.$urlParams.';namespace='.$namespace).
$output = '<a href="'.$self->session->url->page('op=viewHelp;hid='.$urlParams.';namespace='.$namespace).
'" target="_blank"><img src="'.$self->_getBaseURL().'help.gif" border="0" align="right" title="'.WebGUI::International->new($self->session,'Icon')->get('Help').'" Alt="'.WebGUI::International->new($self->session,'Icon')->get('Help').'"></a>';
return $output;
}