version 1.317, 2006/03/21 20:36:15
|
version 1.318, 2006/03/21 21:01:22
|
Line 3080 Inputs: $title - optional title for the
|
Line 3080 Inputs: $title - optional title for the
|
|
|
sub start_page { |
sub start_page { |
my ($title,$head_extra,$args) = @_; |
my ($title,$head_extra,$args) = @_; |
|
#&Apache::lonnet::logthis("start_page ".join(':',caller(0))); |
my %head_args; |
my %head_args; |
if (defined($args->{'redirect'})) { |
if (defined($args->{'redirect'})) { |
$head_args{'redirect'} = $args->{'redirect'}; |
$head_args{'redirect'} = $args->{'redirect'}; |
Line 3116 Inputs: $args - additional optio
|
Line 3117 Inputs: $args - additional optio
|
|
|
sub end_page { |
sub end_page { |
my ($args) = @_; |
my ($args) = @_; |
|
#&Apache::lonnet::logthis("end_page ".join(':',caller(0))); |
$env{'internal.end_page'}++; |
$env{'internal.end_page'}++; |
my $result = &endbodytag()."\n</html>"; |
my $result = &endbodytag()."\n</html>"; |
if ($args->{'js_ready'}) { |
if ($args->{'js_ready'}) { |
Line 3138 sub validate_page {
|
Line 3140 sub validate_page {
|
if ( exists($env{'internal.start_page'}) |
if ( exists($env{'internal.start_page'}) |
&& $env{'internal.start_page'} > 1) { |
&& $env{'internal.start_page'} > 1) { |
&Apache::lonnet::logthis('start_page called multiple times '. |
&Apache::lonnet::logthis('start_page called multiple times '. |
|
$env{'internal.start_page'}.' '. |
$ENV{'request.filename'}); |
$ENV{'request.filename'}); |
} |
} |
if ( exists($env{'internal.end_page'}) |
if ( exists($env{'internal.end_page'}) |
&& $env{'internal.end_page'} > 1) { |
&& $env{'internal.end_page'} > 1) { |
&Apache::lonnet::logthis('end_page called multiple times '. |
&Apache::lonnet::logthis('end_page called multiple times '. |
|
$env{'internal.end_page'}.' '. |
$env{'request.filename'}); |
$env{'request.filename'}); |
} |
} |
if ( exists($env{'internal.start_page'}) |
if ( exists($env{'internal.start_page'}) |
Line 3157 sub validate_page {
|
Line 3161 sub validate_page {
|
} |
} |
} |
} |
|
|
|
sub simple_error_page { |
|
my ($r,$title,$msg) = @_; |
|
my $page = |
|
&Apache::loncommon::start_page($title). |
|
&mt($msg). |
|
&Apache::loncommon::end_page(); |
|
if (ref($r)) { |
|
$r->print($page); |
|
return; |
|
} |
|
return $page; |
|
} |
############################################### |
############################################### |
|
|
=pod |
=pod |