fixed: international characters corrupted in titles
This commit is contained in:
parent
33c13b97ef
commit
5df58ac79f
4 changed files with 13 additions and 8 deletions
|
|
@ -19,6 +19,7 @@
|
||||||
- fixed: email validation links can be broken by mail servers
|
- fixed: email validation links can be broken by mail servers
|
||||||
- fixed: Clipboard select all doesn't work with one item in IE
|
- fixed: Clipboard select all doesn't work with one item in IE
|
||||||
- fixed: able to view visitor profile, send private messages, add as friend
|
- fixed: able to view visitor profile, send private messages, add as friend
|
||||||
|
- fixed: international characters corrupted in titles
|
||||||
|
|
||||||
7.5.9
|
7.5.9
|
||||||
- fixed: Collaboration System attachments follow site's max size instead of CS's
|
- fixed: Collaboration System attachments follow site's max size instead of CS's
|
||||||
|
|
|
||||||
|
|
@ -89,12 +89,16 @@ sub print {
|
||||||
my $content = shift;
|
my $content = shift;
|
||||||
my $skipMacros = shift;
|
my $skipMacros = shift;
|
||||||
WebGUI::Macro::process($self->session, \$content) unless $skipMacros;
|
WebGUI::Macro::process($self->session, \$content) unless $skipMacros;
|
||||||
my $handle = $self->{_handle};
|
my $handle = $self->{_handle};
|
||||||
if (defined $handle) {
|
if (defined $handle) {
|
||||||
print $handle $content;
|
print $handle $content;
|
||||||
} else {
|
}
|
||||||
print $content;
|
elsif ($self->session->request) {
|
||||||
}
|
$self->session->request->print($content);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
print $content;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
|
||||||
|
|
@ -54,7 +54,7 @@ sub handler {
|
||||||
$content .= $line;
|
$content .= $line;
|
||||||
}
|
}
|
||||||
close($FILE);
|
close($FILE);
|
||||||
print $content;
|
$request->print($content);
|
||||||
return Apache2::Const::OK;
|
return Apache2::Const::OK;
|
||||||
} );
|
} );
|
||||||
$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
|
$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
|
||||||
|
|
|
||||||
|
|
@ -49,7 +49,7 @@ sub handler {
|
||||||
my ($request, $server, $config) = @_;
|
my ($request, $server, $config) = @_;
|
||||||
$request->content_type("text/html");
|
$request->content_type("text/html");
|
||||||
$request->push_handlers(PerlResponseHandler => sub {
|
$request->push_handlers(PerlResponseHandler => sub {
|
||||||
print q|<html><head><title>Snoopy</title></head><body><div style="width: 600px; padding: 200px;">Why would you type in this URL? Really. What were you expecting to see here? You really need to get a life. Are you still here? Seriously, you need to go do something else. I think your boss is calling.</div></body></html>|;
|
$request->print(q|<html><head><title>Snoopy</title></head><body><div style="width: 600px; padding: 200px;">Why would you type in this URL? Really. What were you expecting to see here? You really need to get a life. Are you still here? Seriously, you need to go do something else. I think your boss is calling.</div></body></html>|);
|
||||||
return Apache2::Const::OK;
|
return Apache2::Const::OK;
|
||||||
} );
|
} );
|
||||||
$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
|
$request->push_handlers(PerlTransHandler => sub { return Apache2::Const::OK });
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue