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

Diff for /loncom/interface/loncommon.pm between versions 1.306 and 1.307

version 1.306, 2006/03/15 19:37:55 version 1.307, 2006/03/16 20:08:42
Line 2959  sub endbodytag { Line 2959  sub endbodytag {
   
 Returns a uniform footer for LON-CAPA web pages.  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 <head>
   
 =back  =back
   
 =cut  =cut
   
 sub headtag {  sub headtag {
     my ($title) = @_;      my ($title,$head_extra) = @_;
           
     my $result = '<head>';      my $result = '<head>';
           
Line 2974  sub headtag { Line 2975  sub headtag {
  $title = 'The LearningOnline Network with CAPA';   $title = 'The LearningOnline Network with CAPA';
     }      }
           
     $result .= '<title>'.&mt($title).'</title>';      $result .= '<title>'.&mt($title).'</title>'.$head_extra;
           
     return $result;      return $result;
 }  }
Line 3006  sub endheadtag { Line 3007  sub endheadtag {
 Returns a uniform complete <head>..</head> section for LON-CAPA web pages.  Returns a uniform complete <head>..</head> section for LON-CAPA web pages.
   
 Inputs: $title - optional title for the page  Inputs: $title - optional title for the page
           $head_extra - optional extra HTML to put inside the <head>
 =back  =back
   
 =cut  =cut
   
 sub head {  sub head {
     my ($title) = @_;      my ($title,$head_extra) = @_;
     return &headtag($title).&endheadtag();      return &headtag($title,$head_extra).&endheadtag();
 }  }
   
 =pod  =pod
Line 3035  sub start_page { Line 3036  sub start_page {
     my ($title,$head_extra) = @_;      my ($title,$head_extra) = @_;
     return       return 
  &Apache::lonxml::xmlbegin().   &Apache::lonxml::xmlbegin().
  &headtag($title).$head_extra.&endheadtag().   &headtag($title,$head_extra).&endheadtag().
  &bodytag($title);   &bodytag($title);
 }  }
   
Removed from v.1.306  
changed lines
  Added in v.1.307

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