Set charset in left frame

This commit is contained in:
Jamie Cameron
2007-10-24 00:17:24 +00:00
parent 9acb3d280d
commit f1028615d2

View File

@@ -16,7 +16,8 @@ if (defined($cats{''})) {
}
@cats = sort { ($b eq "others" ? "" : $b) cmp ($a eq "others" ? "" : $a) } keys %cats;
&PrintHeader();
$charset = defined($force_charset) ? $force_charset : &get_charset();
&PrintHeader($charset);
print <<EOF;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>