--- loncom/interface/loncommon.pm 2006/03/15 19:37:55 1.306
+++ loncom/interface/loncommon.pm 2006/03/16 20:08:42 1.307
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.306 2006/03/15 19:37:55 albertel Exp $
+# $Id: loncommon.pm,v 1.307 2006/03/16 20:08:42 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2959,14 +2959,15 @@ sub endbodytag {
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
=back
=cut
sub headtag {
- my ($title) = @_;
+ my ($title,$head_extra) = @_;
my $result = '';
@@ -2974,7 +2975,7 @@ sub headtag {
$title = 'The LearningOnline Network with CAPA';
}
- $result .= ''.&mt($title).'';
+ $result .= ''.&mt($title).''.$head_extra;
return $result;
}
@@ -3006,14 +3007,14 @@ sub endheadtag {
Returns a uniform complete .. section for LON-CAPA web pages.
Inputs: $title - optional title for the page
-
+ $head_extra - optional extra HTML to put inside the
=back
=cut
sub head {
- my ($title) = @_;
- return &headtag($title).&endheadtag();
+ my ($title,$head_extra) = @_;
+ return &headtag($title,$head_extra).&endheadtag();
}
=pod
@@ -3035,7 +3036,7 @@ sub start_page {
my ($title,$head_extra) = @_;
return
&Apache::lonxml::xmlbegin().
- &headtag($title).$head_extra.&endheadtag().
+ &headtag($title,$head_extra).&endheadtag().
&bodytag($title);
}