version 1.319, 2006/03/21 21:49:30
|
version 1.325, 2006/04/04 15:11:26
|
Line 2801 form, .inline { display: inline; }
|
Line 2801 form, .inline { display: inline; }
|
style="margin-top: 0px;$addstyle" $addentries> |
style="margin-top: 0px;$addstyle" $addentries> |
END |
END |
&Apache::lontexconvert::jsMath_reset(); |
&Apache::lontexconvert::jsMath_reset(); |
if ($env{'environment.texengine'} eq 'jsMath') { |
if ($env{'environment.texengine'} eq 'jsMath' || |
|
$env{'form.texengine'} eq 'jsMath' ) { |
$bodytag.=&Apache::lontexconvert::jsMath_header(); |
$bodytag.=&Apache::lontexconvert::jsMath_header(); |
} |
} |
|
|
Line 3006 sub headtag {
|
Line 3007 sub headtag {
|
$env{'internal.head.redirect'} = $url; |
$env{'internal.head.redirect'} = $url; |
$result.=<<ADDMETA |
$result.=<<ADDMETA |
<meta http-equiv="pragma" content="no-cache" /> |
<meta http-equiv="pragma" content="no-cache" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$url" /> |
<meta HTTP-EQUIV="Refresh" CONTENT="$time; url=$url" /> |
ADDMETA |
ADDMETA |
} |
} |
if (!defined($title)) { |
if (!defined($title)) { |
Line 3014 ADDMETA
|
Line 3015 ADDMETA
|
} |
} |
|
|
$result .= '<title> LON-CAPA '.&mt($title).'</title>'.$head_extra; |
$result .= '<title> LON-CAPA '.&mt($title).'</title>'.$head_extra; |
|
|
return $result; |
return $result; |
} |
} |
|
|
Line 3051 Inputs: $title - optional title for the
|
Line 3051 Inputs: $title - optional title for the
|
=cut |
=cut |
|
|
sub head { |
sub head { |
my ($title,$head_extra) = @_; |
my ($title,$head_extra,$args) = @_; |
return &headtag($title,$head_extra).&endheadtag(); |
return &headtag($title,$head_extra,$args).&endheadtag(); |
} |
} |
|
|
=pod |
=pod |
Line 3078 Inputs: $title - optional title for the
|
Line 3078 Inputs: $title - optional title for the
|
bgcolor -> override the default page bg color |
bgcolor -> override the default page bg color |
js_ready -> return a string ready for being used in |
js_ready -> return a string ready for being used in |
a javascript writeln |
a javascript writeln |
|
html_encode -> return a string ready for being used in |
|
a html attribute |
force_register -> if is true will turn on the &bodytag() |
force_register -> if is true will turn on the &bodytag() |
$forcereg arg |
$forcereg arg |
|
|
Line 3091 sub start_page {
|
Line 3093 sub start_page {
|
my %head_args; |
my %head_args; |
foreach my $arg ('redirect','force_register') { |
foreach my $arg ('redirect','force_register') { |
if (defined($args->{$arg})) { |
if (defined($args->{$arg})) { |
$head_args{$arg} = $args->{$args}; |
$head_args{$arg} = $args->{$arg}; |
} |
} |
} |
} |
|
|
Line 3107 sub start_page {
|
Line 3109 sub start_page {
|
if ($args->{'js_ready'}) { |
if ($args->{'js_ready'}) { |
$result = &js_ready($result); |
$result = &js_ready($result); |
} |
} |
|
if ($args->{'html_encode'}) { |
|
$result = &html_encode($result); |
|
} |
return $result; |
return $result; |
} |
} |
|
|
Line 3121 Returns a complete </body></html> sectio
|
Line 3126 Returns a complete </body></html> sectio
|
Inputs: $args - additional optional args supported are: |
Inputs: $args - additional optional args supported are: |
js_ready -> return a string ready for being used in |
js_ready -> return a string ready for being used in |
a javascript writeln |
a javascript writeln |
|
html_encode -> return a string ready for being used in |
|
a html attribute |
=back |
=back |
|
|
=cut |
=cut |
Line 3133 sub end_page {
|
Line 3140 sub end_page {
|
if ($args->{'js_ready'}) { |
if ($args->{'js_ready'}) { |
$result = &js_ready($result); |
$result = &js_ready($result); |
} |
} |
|
if ($args->{'html_encode'}) { |
|
$result = &html_encode($result); |
|
} |
return $result; |
return $result; |
} |
} |
|
|
sub js_ready { |
sub html_encode { |
my ($result) = @_; |
my ($result) = @_; |
|
|
$result = &HTML::Entities::encode($result,'<>&"'); |
$result = &HTML::Entities::encode($result,'<>&"'); |
|
|
|
return $result; |
|
} |
|
sub js_ready { |
|
my ($result) = @_; |
|
|
$result =~ s/[\n\r]/ /g; |
$result =~ s/[\n\r]/ /xmsg; |
$result =~ s/'/\\'/g; |
$result =~ s/\\/\\\\/xmsg; |
|
$result =~ s/'/\\'/xmsg; |
|
$result =~ s{</script>}{</scrip'+'t>}xmsg; |
|
|
return $result; |
return $result; |
} |
} |