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

Diff for /loncom/interface/loncommon.pm between versions 1.317 and 1.318

version 1.317, 2006/03/21 20:36:15 version 1.318, 2006/03/21 21:01:22
Line 3080  Inputs: $title - optional title for the Line 3080  Inputs: $title - optional title for the
   
 sub start_page {  sub start_page {
     my ($title,$head_extra,$args) = @_;      my ($title,$head_extra,$args) = @_;
       #&Apache::lonnet::logthis("start_page ".join(':',caller(0)));
     my %head_args;      my %head_args;
     if (defined($args->{'redirect'})) {      if (defined($args->{'redirect'})) {
  $head_args{'redirect'} = $args->{'redirect'};   $head_args{'redirect'} = $args->{'redirect'};
Line 3116  Inputs:         $args - additional optio Line 3117  Inputs:         $args - additional optio
   
 sub end_page {  sub end_page {
     my ($args) = @_;      my ($args) = @_;
       #&Apache::lonnet::logthis("end_page ".join(':',caller(0)));
     $env{'internal.end_page'}++;      $env{'internal.end_page'}++;
     my $result = &endbodytag()."\n</html>";      my $result = &endbodytag()."\n</html>";
     if ($args->{'js_ready'}) {      if ($args->{'js_ready'}) {
Line 3138  sub validate_page { Line 3140  sub validate_page {
     if (  exists($env{'internal.start_page'})      if (  exists($env{'internal.start_page'})
   &&     $env{'internal.start_page'} > 1) {    &&     $env{'internal.start_page'} > 1) {
  &Apache::lonnet::logthis('start_page called multiple times '.   &Apache::lonnet::logthis('start_page called multiple times '.
    $env{'internal.start_page'}.' '.
  $ENV{'request.filename'});   $ENV{'request.filename'});
     }      }
     if (  exists($env{'internal.end_page'})      if (  exists($env{'internal.end_page'})
   &&     $env{'internal.end_page'} > 1) {    &&     $env{'internal.end_page'} > 1) {
  &Apache::lonnet::logthis('end_page called multiple times '.   &Apache::lonnet::logthis('end_page called multiple times '.
    $env{'internal.end_page'}.' '.
  $env{'request.filename'});   $env{'request.filename'});
     }      }
     if (     exists($env{'internal.start_page'})      if (     exists($env{'internal.start_page'})
Line 3157  sub validate_page { Line 3161  sub validate_page {
     }      }
 }  }
   
   sub simple_error_page {
       my ($r,$title,$msg) = @_;
       my $page =
    &Apache::loncommon::start_page($title).
    &mt($msg).
    &Apache::loncommon::end_page();
       if (ref($r)) {
    $r->print($page);
    return;
       }
       return $page;
   }
 ###############################################  ###############################################
   
 =pod  =pod
Removed from v.1.317  
changed lines
  Added in v.1.318

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