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

Thu, 16 Mar 2006 21:23:54 -0000

albertel		Thu Mar 16 16:23:54 2006 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - adding notopbar support to start_page
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.308 loncom/interface/loncommon.pm:1.309

--- loncom/interface/loncommon.pm:1.308	Thu Mar 16 16:14:30 2006
+++ loncom/interface/loncommon.pm	Thu Mar 16 16:23:51 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.308 2006/03/16 21:14:30 albertel Exp $
+# $Id: loncommon.pm,v 1.309 2006/03/16 21:23:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2737,6 +2737,10 @@
 =item * $forcereg, if page should register as content page (relevant for 
             text interface only)
 
+=item * $customtitle, overrides the $title in some way ????
+
+=item * $notopbar, if true, keep the 'what is this' info but remove the
+                   navigational links
 =back
 
 Returns: A uniform header for LON-CAPA web pages.  
@@ -2747,7 +2751,8 @@
 =cut
 
 sub bodytag {
-    my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,$notopbar)=@_;
+    my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,
+	$notopbar)=@_;
     $title=&mt($title);
     $function = &get_users_function() if (!$function);
     my $img=&designparm($function.'.img',$domain);
@@ -3032,17 +3037,19 @@
         $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
+                  notopbar -> is true will set &bodytag() notopbar arg on
 
 =back
 
 =cut
 
 sub start_page {
-    my ($title,$head_extra,%args) = @_;
+    my ($title,$head_extra,$args) = @_;
     return 
 	&Apache::lonxml::xmlbegin().
 	&headtag($title,$head_extra).&endheadtag().
-	&bodytag($title,undef,undef,$args{'onlybody'});
+	&bodytag($title,undef,undef,$args->{'onlybody'},undef,undef,undef,
+		 $args->{'notopbar'});
 }
 
 =pod



