Diff for /rat/lonpage.pm between versions 1.4 and 1.5

version 1.4, 2000/09/14 20:10:39 version 1.5, 2000/09/15 20:03:48
Line 4 Line 4
 # (TeX Content Handler  # (TeX Content Handler
 #  #
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 08/30,08/31,09/06,09/14 Gerd Kortemeyer  # 08/30,08/31,09/06,09/14,09/15 Gerd Kortemeyer
   
 package Apache::lonpage;  package Apache::lonpage;
   
Line 78  sub tracetable { Line 78  sub tracetable {
   
 sub cell {  sub cell {
     my ($r,$colspan,$rid)=@_;      my ($r,$colspan,$rid)=@_;
     $r->print('<td colspan="'.$colspan.'">');      $r->print('<td colspan="'.$colspan.'"');
     $r->print($hash{'src_'.$rid});      if ($cellemb{$rid} eq 'ssi') {
          $r->print('>'.$ssibody{$rid});
       } elsif ($cellemb{$rid} eq 'img') {
          $r->print('><img src="'.$hash{'src_'.$rid}.'">');
       }
     $r->print('</td>');      $r->print('</td>');
 }  }
   
Line 135  sub handler { Line 139  sub handler {
                       $maxcols=$#colcont>$maxcols?$#colcont:$maxcols;                        $maxcols=$#colcont>$maxcols?$#colcont:$maxcols;
                       map {                        map {
                           my $src=$hash{'src_'.$_};                            my $src=$hash{'src_'.$_};
                           $src=~/\.\w+$/;                            $src=~/\.(\w+)$/;
                           $cellemb{$_}=Apache::lonnet::fileembstyle($1);                            $cellemb{$_}=Apache::lonnet::fileembstyle($1);
                           if ($cellemb{$_} eq 'ssi') {                            if ($cellemb{$_} eq 'ssi') {
 # --------------------------------------------------------- This is an SSI cell  # --------------------------------------------------------- This is an SSI cell
         my $prefix=$_.'_';
                                 my %posthash=('request.prefix' => $prefix);
                                 map {
     if ($_=~/^form.$prefix/) {
         my $name=$_;
                                         $name=~s/^form.$prefix//;
                                         $posthash{$name}=$ENV{$_};
                                     }
                                 } keys %ENV;
                                 my $output=Apache::lonnet::ssi($src,%posthash);
   
         $ssibody{$_}=$output;
   
 # ---------------------------------------------------------------- End SSI cell  # ---------------------------------------------------------------- End SSI cell
                           }                            }
Line 157  sub handler { Line 173  sub handler {
                       $r->print('<html><body>');                        $r->print('<html><body>');
     
                       $r->print('<table cols="'.$maxcols.'" rows="'.                        $r->print('<table cols="'.$maxcols.'" rows="'.
                                  $#rows.'" border=1>');                                   $#rows.'" border="0">');
                       for ($i=2;$i<=$#rows;$i++) {                        for ($i=0;$i<=$#rows;$i++) {
    if ($rows[$i]) {
                           $r->print("\n<tr>");                            $r->print("\n<tr>");
                           my @colcont=split(/\&/,$rows[$i]);                            my @colcont=split(/\&/,$rows[$i]);
                           my $avespan=int($maxcols/($#colcont+1));                            my $avespan=int($maxcols/($#colcont+1));
Line 168  sub handler { Line 185  sub handler {
                           }                            }
                           &cell($r,$lastspan,$colcont[$#colcont]);                            &cell($r,$lastspan,$colcont[$#colcont]);
                           $r->print('</tr>');                            $r->print('</tr>');
           }
                       }                        }
                       $r->print("\n</table>");                        $r->print("\n</table>");
   
                       $r->print('</body></html>');                        $r->print('</body></html>');
 # -------------------------------------------------------------------- End page  # -------------------------------------------------------------------- End page
                   }                                      }                  

Removed from v.1.4  
changed lines
  Added in v.1.5


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