version 1.311, 2006/03/16 21:54:40
|
version 1.316, 2006/03/21 18:32:19
|
Line 2752 other decorations will be returned.
|
Line 2752 other decorations will be returned.
|
|
|
sub bodytag { |
sub bodytag { |
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle, |
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle, |
$notopbar)=@_; |
$notopbar,$bgcolor)=@_; |
$title=&mt($title); |
$title=&mt($title); |
$function = &get_users_function() if (!$function); |
$function = &get_users_function() if (!$function); |
my $img=&designparm($function.'.img',$domain); |
my $img=&designparm($function.'.img',$domain); |
my $pgbg=&designparm($function.'.pgbg',$domain); |
my $pgbg= $bgcolor || &designparm($function.'.pgbg',$domain); |
my $tabbg=&designparm($function.'.tabbg',$domain); |
my $tabbg=&designparm($function.'.tabbg',$domain); |
my $font=&designparm($function.'.font',$domain); |
my $font=&designparm($function.'.font',$domain); |
my $link=&designparm($function.'.link',$domain); |
my $link=&designparm($function.'.link',$domain); |
Line 2953 Inputs: none
|
Line 2953 Inputs: none
|
sub endbodytag { |
sub endbodytag { |
my $endbodytag='</body>'; |
my $endbodytag='</body>'; |
$endbodytag=&Apache::lontexconvert::jsMath_process()."\n".$endbodytag; |
$endbodytag=&Apache::lontexconvert::jsMath_process()."\n".$endbodytag; |
|
if ( exists( $env{'internal.head.redirect'} ) ) { |
|
$endbodytag= |
|
"<br /><a href=\"$env{'internal.head.redirect'}\">". |
|
&mt('Continue').'</a>'. |
|
$endbodytag; |
|
} |
return $endbodytag; |
return $endbodytag; |
} |
} |
|
|
Line 2966 Returns a uniform footer for LON-CAPA we
|
Line 2972 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 |
|
redirect - array ref of seconds before redirect occurs |
|
url to redirect to |
|
(side effect of setting |
|
$env{'internal.head.redirect'} to the url |
|
redirected too) |
=back |
=back |
|
|
=cut |
=cut |
|
|
sub headtag { |
sub headtag { |
my ($title,$head_extra) = @_; |
my ($title,$head_extra,$args) = @_; |
|
|
my $result = |
my $result = |
'<head>'. |
'<head>'. |
&Apache::lonxml::fontsettings(). |
&Apache::lonxml::fontsettings(). |
&Apache::lonhtmlcommon::htmlareaheaders(); |
&Apache::lonhtmlcommon::htmlareaheaders(); |
|
|
|
if (ref($args->{'redirect'})) { |
|
my ($time,$url) = @{$args->{'redirect'}}; |
|
$url = &Apache::lonenc::check_encrypt($url); |
|
$env{'internal.head.redirect'} = $url; |
|
$result.=<<ADDMETA |
|
<meta http-equiv="pragma" content="no-cache" /> |
|
<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$url" /> |
|
ADDMETA |
|
} |
if (!defined($title)) { |
if (!defined($title)) { |
$title = 'The LearningOnline Network with CAPA'; |
$title = 'The LearningOnline Network with CAPA'; |
} |
} |
|
|
$result .= '<title>'.&mt($title).'</title>'.$head_extra; |
$result .= '<title> LON-CAPA '.&mt($title).'</title>'.$head_extra; |
|
|
return $result; |
return $result; |
} |
} |
Line 3035 Returns a complete <html> .. <body> sect
|
Line 3055 Returns a complete <html> .. <body> sect
|
|
|
Inputs: $title - optional title for the page |
Inputs: $title - optional title for the page |
$head_extra - optional extra HTML to incude inside the <head> |
$head_extra - optional extra HTML to incude inside the <head> |
%args - additional optional args supported are: |
$args - additional optional args supported are: |
only_body -> is true will set &bodytag() onlybodytag arg on |
only_body -> is true will set &bodytag() onlybodytag arg on |
no_nav_bar -> is true will set &bodytag() notopbar arg on |
no_nav_bar -> is true will set &bodytag() notopbar arg on |
add_entries -> additional attributes to add to the <body> |
add_entries -> additional attributes to add to the <body> |
|
domain -> force to color decorate a page for a |
|
specific domain |
|
function -> force usage of a specific rolish color scheme |
|
redirect -> see &headtag() |
|
bgcolor -> override the default page bg color |
|
js_ready -> return a string ready for being used in |
|
a javascript writeln |
|
|
=back |
=back |
|
|
Line 3046 Inputs: $title - optional title for the
|
Line 3073 Inputs: $title - optional title for the
|
|
|
sub start_page { |
sub start_page { |
my ($title,$head_extra,$args) = @_; |
my ($title,$head_extra,$args) = @_; |
return |
my %head_args; |
|
if (defined($args->{'redirect'})) { |
|
$head_args{'redirect'} = $args->{'redirect'}; |
|
} |
|
$env{'internal.start_page'}++; |
|
my $result = |
&Apache::lonxml::xmlbegin(). |
&Apache::lonxml::xmlbegin(). |
&headtag($title,$head_extra).&endheadtag(). |
&headtag($title,$head_extra,\%head_args).&endheadtag(). |
&bodytag($title,undef,$args->{'add_entries'},$args->{'only_body'}, |
&bodytag($title, $args->{'function'}, $args->{'add_entries'}, |
undef,undef,undef,$args->{'no_nav_bar'}); |
$args->{'only_body'}, |
|
undef,undef,undef,$args->{'no_nav_bar'},$args->{'bgcolor'}); |
|
if ($args->{'js_ready'}) { |
|
$result =~ s/[\n\r]/ /g; |
|
$result =~ s/'/\\'/g; |
|
} |
|
return $result; |
} |
} |
|
|
=pod |
=pod |
Line 3061 sub start_page {
|
Line 3099 sub start_page {
|
|
|
Returns a complete </body></html> section for LON-CAPA web pages. |
Returns a complete </body></html> section for LON-CAPA web pages. |
|
|
Inputs: None |
Inputs: $args - additional optional args supported are: |
|
js_ready -> return a string ready for being used in |
|
a javascript writeln |
=back |
=back |
|
|
=cut |
=cut |
|
|
sub end_page { |
sub end_page { |
return &endbodytag."\n</html>"; |
my ($args) = @_; |
|
$env{'internal.end_page'}++; |
|
my $result = &endbodytag()."\n</html>"; |
|
if ($args->{'js_ready'}) { |
|
$result =~ s/[\n\r]/ /g; |
|
$result =~ s/'/\\'/g; |
|
} |
|
return $result; |
} |
} |
|
|
|
sub validate_page { |
|
if ( exists($env{'internal.start_page'}) |
|
&& $env{'internal.start_page'} > 1) { |
|
&Apache::lonnet::logthis('start_page called multiple times '. |
|
$ENV{'request.filename'}); |
|
} |
|
if ( exists($env{'internal.end_page'}) |
|
&& $env{'internal.end_page'} > 1) { |
|
&Apache::lonnet::logthis('end_page called multiple times '. |
|
$env{'request.filename'}); |
|
} |
|
if ( exists($env{'internal.start_page'}) |
|
&& ! exists($env{'internal.end_page'})) { |
|
&Apache::lonnet::logthis('start_page called without end_page '. |
|
$env{'request.filename'}); |
|
} |
|
if ( ! exists($env{'internal.start_page'}) |
|
&& exists($env{'internal.end_page'})) { |
|
&Apache::lonnet::logthis('end_page called without start_page'. |
|
$env{'request.filename'}); |
|
} |
|
} |
|
|
############################################### |
############################################### |
|
|
=pod |
=pod |