Diff for /rat/lonpage.pm between versions 1.10 and 1.15

version 1.10, 2000/10/02 21:33:40 version 1.15, 2000/10/31 19:31:42
Line 5 Line 5
 #  #
 # 05/29/00,05/30 Gerd Kortemeyer)  # 05/29/00,05/30 Gerd Kortemeyer)
 # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,  # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
 # 10/02 Gerd Kortemeyer  # 10/02,10/10,10/14,10/16,10/18,10/19,10/31 Gerd Kortemeyer
   
 package Apache::lonpage;  package Apache::lonpage;
   
Line 74  sub tracetable { Line 74  sub tracetable {
        }         }
   
        if (defined($hash{'to_'.$rid})) {         if (defined($hash{'to_'.$rid})) {
     my $mincond=1;
             my $next='';
           map {            map {
               my $now=&tracetable($sofar,$hash{'goesto_'.$_},$beenhere);                my $thiscond=
               if ($now>$further) { $further=$now; }        &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
                 if ($thiscond>=$mincond) {
     if ($next) {
         $next.=','.$_.':'.$thiscond;
                     } else {
                         $next=$_.':'.$thiscond;
     }
                     if ($thiscond>$mincond) { $mincond=$thiscond; }
         }
           } split(/\,/,$hash{'to_'.$rid});            } split(/\,/,$hash{'to_'.$rid});
             map {
                 my ($linkid,$condval)=split(/\:/,$_);
                 if ($condval>=$mincond) {
                   my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);
                   if ($now>$further) { $further=$now; }
         }
             } split(/\,/,$next);
   
        }         }
     }      }
     return $further;      return $further;
Line 150  sub handler { Line 168  sub handler {
                   my %ssilink=();                    my %ssilink=();
                   my %ssivlink=();                    my %ssivlink=();
                   my %ssialink=();                    my %ssialink=();
        
                     my %metalink=();
   
                   my %cellemb=();                    my %cellemb=();
   
                   my $allscript='';                    my $allscript='';
Line 159  sub handler { Line 180  sub handler {
                   my $xmlheader='';                    my $xmlheader='';
                   my $xmlbody='';                    my $xmlbody='';
   
                     my %httpref=();
   
 # --------------------------------------------- Get SSI output, post parameters  # --------------------------------------------- Get SSI output, post parameters
   
                   for ($i=0;$i<=$#rows;$i++) {                    for ($i=0;$i<=$#rows;$i++) {
Line 169  sub handler { Line 192  sub handler {
                       map {                        map {
                           my $src=$hash{'src_'.$_};                            my $src=$hash{'src_'.$_};
                           $src=~/\.(\w+)$/;                            $src=~/\.(\w+)$/;
                             $metalink{$_}=$src.'.meta';
                           $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
Line 187  sub handler { Line 211  sub handler {
                               my $output=Apache::lonnet::ssi($src,%posthash);                                my $output=Apache::lonnet::ssi($src,%posthash);
                               my $parser=HTML::TokeParser->new(\$output);                                my $parser=HTML::TokeParser->new(\$output);
                               my $token;                                my $token;
                                 my $thisdir=$src;
                               my $bodydef=0;                                my $bodydef=0;
                               my $thisxml=0;                                my $thisxml=0;
                                 my @rlinks=();
                                 my @alinks=();
                               if ($output=~/\?xml/) {                                if ($output=~/\?xml/) {
                                  $isxml=1;                                   $isxml=1;
                                  $thisxml=1;                                   $thisxml=1;
Line 196  sub handler { Line 223  sub handler {
          /((?:\<(?:\?xml|\!DOC|html)[^\>]*(?:\>|\>\]\>)\s*)+)\<body[^\>]*\>/si;           /((?:\<(?:\?xml|\!DOC|html)[^\>]*(?:\>|\>\]\>)\s*)+)\<body[^\>]*\>/si;
                                  $xmlheader=$1;                                   $xmlheader=$1;
       }        }
                               while (($bodydef==0) &&                                while ($token=$parser->get_token) {
                                      ($token=$parser->get_token)) {   if ($token->[0] eq 'S') {
   if ($token->[1] eq 'body') {                                    if ($token->[1] eq 'a') {
         if ($token->[2]->{'href'}) {
                                            $rlinks[$#rlinks+1]=
        $token->[2]->{'href'};
         }
     } elsif ($token->[1] eq 'img') {
                                            $rlinks[$#rlinks+1]=
        $token->[2]->{'src'};
                                            $alinks[$#alinks+1]=
        $token->[2]->{'src'};
     } elsif ($token->[1] eq 'embed') {
                                            $rlinks[$#rlinks+1]=
        $token->[2]->{'src'};
                                            $alinks[$#alinks+1]=
        $token->[2]->{'src'};
     } elsif ($token->[1] eq 'applet') {
                                            $alinks[$#alinks+1]=
        $token->[2]->{'code'};
                                            $alinks[$#alinks+1]=
        $token->[2]->{'archive'};
     } elsif ($token->[1] eq 'param') {
         if ($token->[2]->{'name'} eq 'cabbase') {
                                            $alinks[$#alinks+1]=
        $token->[2]->{'value'};
                                         }   
     } elsif ($token->[1] eq 'base') {
         $thisdir=$token->[2]->{'href'};
     } elsif ($token->[1] eq 'body') {
       $bodydef=1;        $bodydef=1;
                                       $ssibgcolor{$_}=$token->[2]->{'bgcolor'};                                        $ssibgcolor{$_}=$token->[2]->{'bgcolor'};
                                       $ssitext{$_}=$token->[2]->{'text'};                                        $ssitext{$_}=$token->[2]->{'text'};
Line 208  sub handler { Line 262  sub handler {
                                       if ($thisxml) {                                        if ($thisxml) {
   $xmlbody=$token->[4];    $xmlbody=$token->[4];
                                       }                                        }
                                   }                                    } elsif ($token->[1] eq 'meta') {
                                   if ($token->[1] eq 'meta') {  
       $allmeta.="\n".$token->[4].'</meta>';        $allmeta.="\n".$token->[4].'</meta>';
                                   }                                    } elsif (($token->[1] eq 'script') &&
                                   if ($token->[1] eq 'script') {                                             ($bodydef==0)) {
       $allscript.="\n\n"        $allscript.="\n\n"
                                                 .$parser->get_text('/script');                                                  .$parser->get_text('/script');
                                   }                                    }
                               }          }
         }
                               if ($output=~/\<body[^\>]*\>(.*)/si) {                                if ($output=~/\<body[^\>]*\>(.*)/si) {
                                  $output=$1;                                    $output=$1; 
                               }                                }
Line 226  sub handler { Line 280  sub handler {
                                   $output=~s/\<form[^\>]*\>//gsi;                                    $output=~s/\<form[^\>]*\>//gsi;
                                   $output=~s/\<\/form[^\>]*\>//gsi;                                    $output=~s/\<\/form[^\>]*\>//gsi;
                               }                                }
                                 $thisdir=~s/\/[^\/]*$//;
         map {
     unless (($_=~/^http:\/\//i) ||
                                             ($_=~/^\//)) {
         my $newlocation=
       &Apache::lonnet::hreflocation($thisdir,$_);
                        $output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/;
     }
         } @rlinks;
                                 map {
                                     $httpref{'httpref.'.
          &Apache::lonnet::hreflocation($thisdir,$_)}=
      $r->uri;
                                 } @alinks;
                        $output=~s/\<\s*applet/\<applet codebase=\"$thisdir\" /gi;
       $ssibody{$_}=$output;        $ssibody{$_}=$output;
   
 # ---------------------------------------------------------------- End SSI cell  # ---------------------------------------------------------------- End SSI cell
                           }                            }
                       } @colcont;                        } @colcont;
Line 240  sub handler { Line 308  sub handler {
                   } else {                    } else {
 # ------------------------------------------------------------------ Build page  # ------------------------------------------------------------------ Build page
   
   # ------------------------------------------------------------- Mark references
                         &Apache::lonnet::appenv(%httpref);
 # ---------------------------------------------------------------- Send headers  # ---------------------------------------------------------------- Send headers
                       if ($isxml) {                        if ($isxml) {
   $r->content_type('text/xml');    $r->content_type('text/xml');
Line 276  sub handler { Line 346  sub handler {
                           my $avespan=$lcm/($#colcont+1);                            my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {                            for ($j=0;$j<=$#colcont;$j++) {
                               my $rid=$colcont[$j];                                my $rid=$colcont[$j];
                                 my $metainfo='<a href="'.
                                       $metalink{$rid}.'" target="LONcatInfo">'.
                             '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
     '</img></a><br></br>';
                               $r->print('<td colspan="'.$avespan.'"');                                $r->print('<td colspan="'.$avespan.'"');
                               if ($cellemb{$rid} eq 'ssi') {                                if ($cellemb{$rid} eq 'ssi') {
   if ($ssibgcolor{$rid}) {    if ($ssibgcolor{$rid}) {
                                      $r->print(' bgcolor="'.                                       $r->print(' bgcolor="'.
                                                $ssibgcolor{$rid}.'"');                                                 $ssibgcolor{$rid}.'"');
                                   }                                    }
                                   $r->print('><font');                                    $r->print('>'.$metainfo.'<font');
                                   if ($ssitext{$rid}) {                                    if ($ssitext{$rid}) {
      $r->print(' text="'.$ssitext{$rid}.'"');       $r->print(' text="'.$ssitext{$rid}.'"');
                                   }                                    }
Line 298  sub handler { Line 372  sub handler {
                                                           
                                   $r->print('>'.$ssibody{$rid}.'</font>');                                    $r->print('>'.$ssibody{$rid}.'</font>');
                               } elsif ($cellemb{$rid} eq 'img') {                                } elsif ($cellemb{$rid} eq 'img') {
                                   $r->print('><img src="'.                                    $r->print('>'.$metainfo.'<img src="'.
                                     $hash{'src_'.$rid}.'"></img>');                                      $hash{'src_'.$rid}.'"></img>');
       }        } elsif ($cellemb{$rid} eq 'emb') {
                                     $r->print('>'.$metainfo.'<embed src="'.
                                       $hash{'src_'.$rid}.'"></embed>');
                                 }
                               $r->print('</td>');                                $r->print('</td>');
                           }                            }
                           $r->print('</tr>');                            $r->print('</tr>');

Removed from v.1.10  
changed lines
  Added in v.1.15


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