--- loncom/interface/loncommon.pm 2006/03/21 21:01:22 1.318 +++ loncom/interface/loncommon.pm 2006/03/21 21:49:30 1.319 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.318 2006/03/21 21:01:22 albertel Exp $ +# $Id: loncommon.pm,v 1.319 2006/03/21 21:49:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2976,6 +2976,9 @@ Returns a uniform footer for LON-CAPA we Inputs: $title - optional title for the head $head_extra - optional extra HTML to put inside the $args - optional arguments + force_register - if is true call registerurl so the remote is + informed + redirect - array ref of seconds before redirect occurs url to redirect to (side effect of setting @@ -2992,7 +2995,11 @@ sub headtag { ''. &Apache::lonxml::fontsettings(). &Apache::lonhtmlcommon::htmlareaheaders(); - + + if ($args->{'force_register'}) { + $result .= &Apache::lonmenu::registerurl(1); + } + if (ref($args->{'redirect'})) { my ($time,$url) = @{$args->{'redirect'}}; $url = &Apache::lonenc::check_encrypt($url); @@ -3082,9 +3089,12 @@ sub start_page { my ($title,$head_extra,$args) = @_; #&Apache::lonnet::logthis("start_page ".join(':',caller(0))); my %head_args; - if (defined($args->{'redirect'})) { - $head_args{'redirect'} = $args->{'redirect'}; + foreach my $arg ('redirect','force_register') { + if (defined($args->{$arg})) { + $head_args{$arg} = $args->{$args}; + } } + $env{'internal.start_page'}++; my $result = &Apache::lonxml::xmlbegin(). @@ -3169,7 +3179,7 @@ sub simple_error_page { &Apache::loncommon::end_page(); if (ref($r)) { $r->print($page); - return; + return OK; } return $page; }