version 1.306, 2006/03/15 19:37:55
|
version 1.307, 2006/03/16 20:08:42
|
Line 2959 sub endbodytag {
|
Line 2959 sub endbodytag {
|
|
|
Returns a uniform footer for LON-CAPA web pages. |
Returns a uniform footer for LON-CAPA web pages. |
|
|
Inputs: $title - optinal title for the head |
Inputs: $title - optional title for the head |
|
$head_extra - optional extra HTML to put inside the <head> |
|
|
=back |
=back |
|
|
=cut |
=cut |
|
|
sub headtag { |
sub headtag { |
my ($title) = @_; |
my ($title,$head_extra) = @_; |
|
|
my $result = '<head>'; |
my $result = '<head>'; |
|
|
Line 2974 sub headtag {
|
Line 2975 sub headtag {
|
$title = 'The LearningOnline Network with CAPA'; |
$title = 'The LearningOnline Network with CAPA'; |
} |
} |
|
|
$result .= '<title>'.&mt($title).'</title>'; |
$result .= '<title>'.&mt($title).'</title>'.$head_extra; |
|
|
return $result; |
return $result; |
} |
} |
Line 3006 sub endheadtag {
|
Line 3007 sub endheadtag {
|
Returns a uniform complete <head>..</head> section for LON-CAPA web pages. |
Returns a uniform complete <head>..</head> section for LON-CAPA web pages. |
|
|
Inputs: $title - optional title for the page |
Inputs: $title - optional title for the page |
|
$head_extra - optional extra HTML to put inside the <head> |
=back |
=back |
|
|
=cut |
=cut |
|
|
sub head { |
sub head { |
my ($title) = @_; |
my ($title,$head_extra) = @_; |
return &headtag($title).&endheadtag(); |
return &headtag($title,$head_extra).&endheadtag(); |
} |
} |
|
|
=pod |
=pod |
Line 3035 sub start_page {
|
Line 3036 sub start_page {
|
my ($title,$head_extra) = @_; |
my ($title,$head_extra) = @_; |
return |
return |
&Apache::lonxml::xmlbegin(). |
&Apache::lonxml::xmlbegin(). |
&headtag($title).$head_extra.&endheadtag(). |
&headtag($title,$head_extra).&endheadtag(). |
&bodytag($title); |
&bodytag($title); |
} |
} |
|
|