--- 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 .= '