--- loncom/interface/loncommon.pm 2012/02/09 00:45:40 1.948.2.33.2.1 +++ loncom/interface/loncommon.pm 2012/03/03 03:07:23 1.948.2.33.2.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.948.2.33.2.1 2012/02/09 00:45:40 raeburn Exp $ +# $Id: loncommon.pm,v 1.948.2.33.2.2 2012/03/03 03:07:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -6780,6 +6780,7 @@ ADDMETA if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); } $result .= ' LON-CAPA '.$title.'' .'' + .&printstyle() .$head_extra; return $result; } @@ -6803,6 +6804,21 @@ sub font_settings { return $headerstring; } +sub printstyle { + return <<"ENDSTYLE"; + +ENDSTYLE + +} + =pod =item * &xml_begin()