--- loncom/interface/loncommon.pm 2006/03/16 22:12:17 1.312
+++ loncom/interface/loncommon.pm 2006/03/19 21:43:20 1.313
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.312 2006/03/16 22:12:17 albertel Exp $
+# $Id: loncommon.pm,v 1.313 2006/03/19 21:43:20 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2972,13 +2972,20 @@ Inputs: $title - optional title for the
=cut
sub headtag {
- my ($title,$head_extra) = @_;
+ my ($title,$head_extra,$args) = @_;
my $result =
''.
&Apache::lonxml::fontsettings().
&Apache::lonhtmlcommon::htmlareaheaders();
+ if (ref($args->{'redir'})) {
+ my ($time,$url) = @{$args->{'redir'}};
+ $result.=<
+
+ADDMETA
+ }
if (!defined($title)) {
$title = 'The LearningOnline Network with CAPA';
}
@@ -3041,6 +3048,8 @@ Inputs: $title - optional title for the
add_entries -> additional attributes to add to the
domain -> force to color decorate a page for a
specific domain
+ function -> force usage of a specific rolish color scheme
+ redirect -> ...
=back
@@ -3048,10 +3057,16 @@ Inputs: $title - optional title for the
sub start_page {
my ($title,$head_extra,$args) = @_;
+ my %head_args;
+ if (defined($args->{'redirect'})) {
+ $head_args{'redirect'} = $args->{'redirect'};
+ }
+
return
&Apache::lonxml::xmlbegin().
- &headtag($title,$head_extra).&endheadtag().
- &bodytag($title,undef,$args->{'add_entries'},$args->{'only_body'},
+ &headtag($title,$head_extra,\%head_args).&endheadtag().
+ &bodytag($title, $args->{'function'}, $args->{'add_entries'},
+ $args->{'only_body'},
undef,undef,undef,$args->{'no_nav_bar'});
}