version 1.318, 2006/03/21 21:01:22
|
version 1.319, 2006/03/21 21:49:30
|
Line 2976 Returns a uniform footer for LON-CAPA we
|
Line 2976 Returns a uniform footer for LON-CAPA we
|
Inputs: $title - optional title for the head |
Inputs: $title - optional title for the head |
$head_extra - optional extra HTML to put inside the <head> |
$head_extra - optional extra HTML to put inside the <head> |
$args - optional arguments |
$args - optional arguments |
|
force_register - if is true call registerurl so the remote is |
|
informed |
|
|
redirect - array ref of seconds before redirect occurs |
redirect - array ref of seconds before redirect occurs |
url to redirect to |
url to redirect to |
(side effect of setting |
(side effect of setting |
Line 2992 sub headtag {
|
Line 2995 sub headtag {
|
'<head>'. |
'<head>'. |
&Apache::lonxml::fontsettings(). |
&Apache::lonxml::fontsettings(). |
&Apache::lonhtmlcommon::htmlareaheaders(); |
&Apache::lonhtmlcommon::htmlareaheaders(); |
|
|
|
if ($args->{'force_register'}) { |
|
$result .= &Apache::lonmenu::registerurl(1); |
|
} |
|
|
if (ref($args->{'redirect'})) { |
if (ref($args->{'redirect'})) { |
my ($time,$url) = @{$args->{'redirect'}}; |
my ($time,$url) = @{$args->{'redirect'}}; |
$url = &Apache::lonenc::check_encrypt($url); |
$url = &Apache::lonenc::check_encrypt($url); |
Line 3082 sub start_page {
|
Line 3089 sub start_page {
|
my ($title,$head_extra,$args) = @_; |
my ($title,$head_extra,$args) = @_; |
#&Apache::lonnet::logthis("start_page ".join(':',caller(0))); |
#&Apache::lonnet::logthis("start_page ".join(':',caller(0))); |
my %head_args; |
my %head_args; |
if (defined($args->{'redirect'})) { |
foreach my $arg ('redirect','force_register') { |
$head_args{'redirect'} = $args->{'redirect'}; |
if (defined($args->{$arg})) { |
|
$head_args{$arg} = $args->{$args}; |
|
} |
} |
} |
|
|
$env{'internal.start_page'}++; |
$env{'internal.start_page'}++; |
my $result = |
my $result = |
&Apache::lonxml::xmlbegin(). |
&Apache::lonxml::xmlbegin(). |
Line 3169 sub simple_error_page {
|
Line 3179 sub simple_error_page {
|
&Apache::loncommon::end_page(); |
&Apache::loncommon::end_page(); |
if (ref($r)) { |
if (ref($r)) { |
$r->print($page); |
$r->print($page); |
return; |
return OK; |
} |
} |
return $page; |
return $page; |
} |
} |