[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.308 and 1.309

version 1.308, 2006/03/16 21:14:30 version 1.309, 2006/03/16 21:23:51
Line 2737  Inputs: Line 2737  Inputs:
 =item * $forcereg, if page should register as content page (relevant for   =item * $forcereg, if page should register as content page (relevant for 
             text interface only)              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  =back
   
 Returns: A uniform header for LON-CAPA web pages.    Returns: A uniform header for LON-CAPA web pages.  
Line 2747  other decorations will be returned. Line 2751  other decorations will be returned.
 =cut  =cut
   
 sub bodytag {  sub bodytag {
     my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,$notopbar)=@_;      my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,
    $notopbar)=@_;
     $title=&mt($title);      $title=&mt($title);
     $function = &get_users_function() if (!$function);      $function = &get_users_function() if (!$function);
     my $img=&designparm($function.'.img',$domain);      my $img=&designparm($function.'.img',$domain);
Line 3032  Inputs: $title - optional title for the Line 3037  Inputs: $title - optional title for the
         $head_extra - optional extra HTML to incude inside the <head>          $head_extra - optional extra HTML to incude inside the <head>
         %args - additional optional args supported are:          %args - additional optional args supported are:
                   onlybody -> is true will set &bodytag() onlybodytag arg on                    onlybody -> is true will set &bodytag() onlybodytag arg on
                     notopbar -> is true will set &bodytag() notopbar arg on
   
 =back  =back
   
 =cut  =cut
   
 sub start_page {  sub start_page {
     my ($title,$head_extra,%args) = @_;      my ($title,$head_extra,$args) = @_;
     return       return 
  &Apache::lonxml::xmlbegin().   &Apache::lonxml::xmlbegin().
  &headtag($title,$head_extra).&endheadtag().   &headtag($title,$head_extra).&endheadtag().
  &bodytag($title,undef,undef,$args{'onlybody'});   &bodytag($title,undef,undef,$args->{'onlybody'},undef,undef,undef,
    $args->{'notopbar'});
 }  }
   
 =pod  =pod
Removed from v.1.308  
changed lines
  Added in v.1.309

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>