[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 16 Mar 2006 21:14:30 -0000


albertel		Thu Mar 16 16:14:30 2006 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - adding an args extension mechanism to start_page
  - adding the default fontsettngs and the htmlarea bits to the <head> by default
  
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.307 loncom/interface/loncommon.pm:1.308
--- loncom/interface/loncommon.pm:1.307	Thu Mar 16 15:08:42 2006
+++ loncom/interface/loncommon.pm	Thu Mar 16 16:14:30 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.307 2006/03/16 20:08:42 albertel Exp $
+# $Id: loncommon.pm,v 1.308 2006/03/16 21:14:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2969,7 +2969,10 @@
 sub headtag {
     my ($title,$head_extra) = @_;
     
-    my $result = '<head>';
+    my $result =
+	'<head>'.
+	&Apache::lonxml::fontsettings().
+	&Apache::lonhtmlcommon::htmlareaheaders();
     
     if (!defined($title)) {
 	$title = 'The LearningOnline Network with CAPA';
@@ -3027,17 +3030,19 @@
 
 Inputs: $title - optional title for the page
         $head_extra - optional extra HTML to incude inside the <head>
+        %args - additional optional args supported are:
+                  onlybody -> is true will set &bodytag() onlybodytag arg on
 
 =back
 
 =cut
 
 sub start_page {
-    my ($title,$head_extra) = @_;
+    my ($title,$head_extra,%args) = @_;
     return 
 	&Apache::lonxml::xmlbegin().
 	&headtag($title,$head_extra).&endheadtag().
-	&bodytag($title);
+	&bodytag($title,undef,undef,$args{'onlybody'});
 }
 
 =pod