[BACK]Return to lonpage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.8 and 1.11

version 1.8, 2000/09/23 20:12:46 version 1.11, 2000/10/10 20:34:09
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,09/15,09/16,09/19,09/20,09/21,09/23 Gerd Kortemeyer  # 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
   # 10/02,10/10 Gerd Kortemeyer
   
 package Apache::lonpage;  package Apache::lonpage;
   
Line 73  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 122  sub handler { Line 141  sub handler {
      }       }
   }    }
   
   # ------------------------------------------------------------ Add to symb list
   
                   my $i;                    my $i;
                     my %symbhash=();
                     for ($i=0;$i<=$#rows;$i++) {
        if ($rows[$i]) {
                           my @colcont=split(/\&/,$rows[$i]);
                           map {
                              $symbhash{$hash{'src_'.$_}}='';
           } @colcont;
        }
     }
                     &Apache::lonnet::symblist($requrl,%symbhash);
   
   # ------------------------------------------------------------------ Page parms
   
                   my $j;                    my $j;
                   my $lcm=1;                    my $lcm=1;
                   my $contents=0;                    my $contents=0;
Line 246  sub handler { Line 280  sub handler {
                       } else {                        } else {
   $r->print('<body bgcolor="#FFFFFF">');    $r->print('<body bgcolor="#FFFFFF">');
                       }                        }
   
 # ------------------------------------------------------------------ Start form  # ------------------------------------------------------------------ Start form
                       if ($nforms) {                        if ($nforms) {
   $r->print('<form method="post" action="'.    $r->print('<form method="post" action="'.
Line 318  sub handler { Line 351  sub handler {
           }            }
       }         } 
   }    }
   $ENV{'user.error.msg'}="$requrl:bre:1:1:Course not initialized";    $ENV{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
   return HTTP_NOT_ACCEPTABLE;     return HTTP_NOT_ACCEPTABLE; 
 }  }
   
Removed from v.1.8  
changed lines
  Added in v.1.11

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