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

Diff for /loncom/interface/loncommon.pm between versions 1.312 and 1.313

version 1.312, 2006/03/16 22:12:17 version 1.313, 2006/03/19 21:43:20
Line 2972  Inputs: $title - optional title for the Line 2972  Inputs: $title - optional title for the
 =cut  =cut
   
 sub headtag {  sub headtag {
     my ($title,$head_extra) = @_;      my ($title,$head_extra,$args) = @_;
           
     my $result =      my $result =
  '<head>'.   '<head>'.
  &Apache::lonxml::fontsettings().   &Apache::lonxml::fontsettings().
  &Apache::lonhtmlcommon::htmlareaheaders();   &Apache::lonhtmlcommon::htmlareaheaders();
           
       if (ref($args->{'redir'})) {
    my ($time,$url) = @{$args->{'redir'}};
    $result.=<<ADDMETA
   <meta http-equiv="pragma" content="no-cache" />
   <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$url" />
   ADDMETA
       }
     if (!defined($title)) {      if (!defined($title)) {
  $title = 'The LearningOnline Network with CAPA';   $title = 'The LearningOnline Network with CAPA';
     }      }
Line 3041  Inputs: $title - optional title for the Line 3048  Inputs: $title - optional title for the
                   add_entries -> additional attributes to add to the  <body>                    add_entries -> additional attributes to add to the  <body>
                   domain      -> force to color decorate a page for a                     domain      -> force to color decorate a page for a 
                                  specific domain                                   specific domain
                     function    -> force usage of a specific rolish color scheme
                     redirect    -> ...
   
 =back  =back
   
Line 3048  Inputs: $title - optional title for the Line 3057  Inputs: $title - optional title for the
   
 sub start_page {  sub start_page {
     my ($title,$head_extra,$args) = @_;      my ($title,$head_extra,$args) = @_;
       my %head_args;
       if (defined($args->{'redirect'})) {
    $head_args{'redirect'} = $args->{'redirect'};
       }
   
     return       return 
  &Apache::lonxml::xmlbegin().   &Apache::lonxml::xmlbegin().
  &headtag($title,$head_extra).&endheadtag().   &headtag($title,$head_extra,\%head_args).&endheadtag().
  &bodytag($title,undef,$args->{'add_entries'},$args->{'only_body'},   &bodytag($title, $args->{'function'}, $args->{'add_entries'},
    $args->{'only_body'},
  undef,undef,undef,$args->{'no_nav_bar'});   undef,undef,undef,$args->{'no_nav_bar'});
 }  }
   
Removed from v.1.312  
changed lines
  Added in v.1.313

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