Diff for /rat/lonpage.pm between versions 1.36 and 1.37

version 1.36, 2002/03/28 21:47:48 version 1.37, 2002/05/20 19:05:11
Line 152  sub handler { Line 152  sub handler {
        return OK;         return OK;
    }     }
   
   my $requrl=$r->uri;    my $requrl=$r->uri;  
     my $target = $ENV{'form.grade_target'};
 # ----------------------------------------------------------------- Tie db file  # ----------------------------------------------------------------- Tie db file
   if ($ENV{'request.course.fn'}) {    if ($ENV{'request.course.fn'}) {
       my $fn=$ENV{'request.course.fn'};        my $fn=$ENV{'request.course.fn'};
Line 331  sub handler { Line 332  sub handler {
 # ------------------------------------------------------------------ Build page  # ------------------------------------------------------------------ Build page
   
 # ---------------------------------------------------------------- Send headers  # ---------------------------------------------------------------- Send headers
                       if ($isxml) {        unless ($target eq 'tex') {
   $r->content_type('text/xml');    if ($isxml) {
                           $r->send_http_header;        $r->content_type('text/xml');
                           $r->print($xmlheader);        $r->send_http_header;
       } else {        $r->print($xmlheader);
                           $r->content_type('text/html');    } else {
                           $r->send_http_header;        $r->content_type('text/html');
                           $r->print('<html>');        $r->send_http_header;
       }        $r->print('<html>');
     }
 # ------------------------------------------------------------------------ Head  # ------------------------------------------------------------------------ Head
                       $r->print("\n<head>\n".$allmeta);    $r->print("\n<head>\n".$allmeta);
                       $allscript=~    $allscript=~
        s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;        s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
                       if ($allscript) {    if ($allscript) {
   $r->print("\n<script language='JavaScript'>\n".        $r->print("\n<script language='JavaScript'>\n".
                                    $allscript."\n</script>\n");   $allscript."\n</script>\n");
                       }    }
                       $r->print(&Apache::lonxml::registerurl(1,undef));    $r->print(&Apache::lonxml::registerurl(1,undef));
                       $r->print("\n</head>\n");    $r->print("\n</head>\n");
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
                       if ($isxml) {    if ($isxml) {
                           $r->print($xmlbody);        $r->print($xmlbody);
                       } else {    } else {
   $r->print(        $r->print('<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.'" onUnload="'.&Apache::lonxml::unloadevents.'">');
  '<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.    }
                      '" onUnload="'.&Apache::lonxml::unloadevents.'">');  
                       }  
 # ------------------------------------------------------------------ Start form  # ------------------------------------------------------------------ Start form
                       if ($nforms) {    if ($nforms) {
   $r->print('<form method="post" action="'.        $r->print('<form method="post" action="'.
     $requrl.'">');   $requrl.'">');
                       }    }      
 # ----------------------------------------------------------------- Start table  # ----------------------------------------------------------------- Start table
                       $r->print('<table cols="'.$lcm.'" border="0">');    $r->print('<table cols="'.$lcm.'" border="0">');
         }
                       for ($i=0;$i<=$#rows;$i++) {                        for ($i=0;$i<=$#rows;$i++) {
  if ($rows[$i]) {   if ($rows[$i]) {
                           $r->print("\n<tr>");      unless ($target eq 'tex') {
    $r->print("\n<tr>");
       }
                           my @colcont=split(/\&/,$rows[$i]);                            my @colcont=split(/\&/,$rows[$i]);
                           my $avespan=$lcm/($#colcont+1);                            my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {                            for ($j=0;$j<=$#colcont;$j++) {
Line 403  sub handler { Line 406  sub handler {
       '</img></a>';        '</img></a>';
                               }                                }
                               $metainfo.='<br></br>';                                $metainfo.='<br></br>';
                               $r->print('<td colspan="'.$avespan.'"');      unless ($target eq 'tex') {
    $r->print('<td colspan="'.$avespan.'"');
       }
                               if ($cellemb{$rid} eq 'ssi') {                                if ($cellemb{$rid} eq 'ssi') {
   if ($ssibgcolor{$rid}) {    unless ($target eq 'tex') {
                                      $r->print(' bgcolor="'.        if ($ssibgcolor{$rid}) {
                                                $ssibgcolor{$rid}.'"');    $r->print(' bgcolor="'.
                                   }      $ssibgcolor{$rid}.'"');
                                   $r->print('>'.$metainfo.'<font');        }
                                   if ($ssitext{$rid}) {        $r->print('>'.$metainfo.'<font');
      $r->print(' text="'.$ssitext{$rid}.'"');      
                                   }        if ($ssitext{$rid}) {
                                   if ($ssilink{$rid}) {    $r->print(' text="'.$ssitext{$rid}.'"');
      $r->print(' link="'.$ssilink{$rid}.'"');        }
                                   }        if ($ssilink{$rid}) {
                                   if ($ssitext{$rid}) {    $r->print(' link="'.$ssilink{$rid}.'"');
      $r->print(' vlink="'.$ssivlink{$rid}.'"');        }
                                   }        if ($ssitext{$rid}) {
                                   if ($ssialink{$rid}) {    $r->print(' vlink="'.$ssivlink{$rid}.'"');
      $r->print(' alink="'.$ssialink{$rid}.'"');        }
                                   }        if ($ssialink{$rid}) {
                                 $r->print(' alink="'.$ssialink{$rid}.'"');
                                   $r->print('>'.$ssibody{$rid}.'</font>');        }             
                               } elsif ($cellemb{$rid} eq 'img') {        $r->print('>');
     }
                                     $r->print($ssibody{$rid});
     unless ($target eq 'tex') {
         $r->print('</font>');
     }
         } elsif ($cellemb{$rid} eq 'img') {
                                   $r->print('>'.$metainfo.'<img src="'.                                    $r->print('>'.$metainfo.'<img src="'.
                                     $hash{'src_'.$rid}.'"></img>');                                      $hash{'src_'.$rid}.'"></img>');
       } elsif ($cellemb{$rid} eq 'emb') {        } elsif ($cellemb{$rid} eq 'emb') {
                                   $r->print('>'.$metainfo.'<embed src="'.                                    $r->print('>'.$metainfo.'<embed src="'.
                                     $hash{'src_'.$rid}.'"></embed>');                                      $hash{'src_'.$rid}.'"></embed>');
                               }                                }
                               $r->print('</td>');        unless ($target eq 'tex') {
     $r->print('</td>');
         }
                           }                            }
                           $r->print('</tr>');        unless ($target eq 'tex') {
     $r->print('</tr>');
         }
         }          }
                       }                        }
                       $r->print("\n</table>");        unless ($target eq 'tex') {
     $r->print("\n</table>");
         }
 # ---------------------------------------------------------------- Submit, etc.  # ---------------------------------------------------------------- Submit, etc.
                       if ($nforms) {                        if ($nforms) {
                           $r->print(                            $r->print(

Removed from v.1.36  
changed lines
  Added in v.1.37


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