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

Diff for /loncom/interface/lonstatistics.pm between versions 1.15 and 1.16

version 1.15, 2002/05/13 13:50:45 version 1.16, 2002/05/13 15:01:54
Line 135  sub InitAnalysis { Line 135  sub InitAnalysis {
   
   
 sub Interval {  sub Interval {
     my $symb=shift;      my ($rid,$part,$symb)=@_;
     my $Int=$ConceptData{"Interval"};      my $Int=$ConceptData{"Interval"};
     my $due = &Apache::lonnet::EXT('resource.0.duedate',$symb)+1;      my $due = &Apache::lonnet::EXT('resource.$part.duedate',$symb)+1;
     my $opn = &Apache::lonnet::EXT('resource.0.opendate',$symb);      my $opn = &Apache::lonnet::EXT('resource.$part.opendate',$symb);
     my $add=int(($due-$opn)/$Int);      my $add=int(($due-$opn)/$Int);
 #    $r->print("<br> $opn, to $due add=$add  int=$Int");  #$r->print("<br> $opn, to $due add=$add  int=$Int");
     #$r->rflush();  #$r->rflush();
     $ConceptData{"Int.0"}=$opn;      $ConceptData{"Int.0"}=$opn;
     for (my $i=1;$i<$Int;$i++) {      for (my $i=1;$i<$Int;$i++) {
  $ConceptData{"Int.$i"}=$opn+$i*$add;   $ConceptData{"Int.$i"}=$opn+$i*$add;
Line 176  sub ShowOpGraph { Line 176  sub ShowOpGraph {
     </script>      </script>
 ENDPOP  ENDPOP
   
     &Create_PrgWin();      my ($rid,$part)=split(/\:/,substr($InpStr,8));
     &Update_PrgWin("Starting to analyze problem");  
     my $rid=substr($InpStr,8);  
     $ConceptData{"Interval"}=$Int_No;      $ConceptData{"Interval"}=$Int_No;
     &Interval(&InitAnalysis($rid,$students[0]));      my $symb=&InitAnalysis($rid,$students[0]);
       &Interval($rid,$part,$symb);
     my $URI = $hash{'src_'.$rid};      my $URI = $hash{'src_'.$rid};
     my $Src = $hash{'title_'.$rid};      my $Src = $hash{'title_'.$rid};
     $Src =~ s/\ /"_"/eg;      $Src =~ s/\ /"_"/eg;
Line 190  ENDPOP Line 189  ENDPOP
  $tmp =~ s/</" less than "/eg;   $tmp =~ s/</" less than "/eg;
  $r->print("<br><b>Concept $n</b>:$tmp");   $r->print("<br><b>Concept $n</b>:$tmp");
     }      }
       
     $r->rflush();      $r->rflush();
           
       &Create_PrgWin();
       &Update_PrgWin("Starting to analyze problem");
     for (my $index=0;$index<=$#students;$index++) {      for (my $index=0;$index<=$#students;$index++) {
  &Update_PrgWin($index);   &Update_PrgWin($index);
  &OpStatus($rid,$students[$index]);   &OpStatus($rid,$students[$index]);
Line 264  sub DrawGraph { Line 264  sub DrawGraph {
 # $Max = int($Max);  # $Max = int($Max);
 #   }  #   }
 #   else { $Max = 1; }  #   else { $Max = 1; }
   
     my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.$k : $Src;      my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.$k : $Src;
     $GData=$Titr.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;      $GData=$Titr.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;
     if($ConceptData{'Interval'}>1){      if($ConceptData{'Interval'}>1){
Line 319  sub AnalyzeProblem { Line 320  sub AnalyzeProblem {
   
      my $P_No=1;       my $P_No=1;
      foreach (sort keys %OpResp) {       foreach (sort keys %OpResp) {
  my $Temp = '<a href="'.$hash{'src_'.$OpResp{$_}}.   my ($rid,$part)=split(/\:/,$OpResp{$_});
                     '" target="_blank">'.$hash{'title_'.$OpResp{$_}}.'</a>';   my $Temp = '<a href="'.$hash{'src_'.$rid}.
                       '" target="_blank">'.$hash{'title_'.$rid}.'</a>';
  $Str .= "\n"."<tr>".   $Str .= "\n"."<tr>".
          "\n"."<td> $P_No </td>".           "\n"."<td> $P_No </td>".
                  "\n"."<td bgcolor=#DDFFDD> ".$Temp." </td>".                   "\n"."<td bgcolor=#DDFFDD> ".$Temp." </td>".
                  "\n"."<td bgcolor=#EEFFCC> ".$hash{'src_'.$OpResp{$_}}." </td>".                   "\n"."<td bgcolor=#EEFFCC> ".$hash{'src_'.$rid}." </td>".
          "\n"."<td> ".'<input type="submit" name="sort" value="'.'Analyze_'.$OpResp{$_}.'" />'.'</td>'.           "\n"."<td> ".'<input type="submit" name="sort" value="'.'Analyze_'.$rid.'" />'.'</td>'.
                  "\n"."</tr>";                   "\n"."</tr>";
  $P_No++;   $P_No++;
      }       }
Line 944  sub tracetable { Line 946  sub tracetable {
    foreach my $K(split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {     foreach my $K(split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {
        if ($K=~/^optionresponse\_($Part)\_(\w+)$/) {         if ($K=~/^optionresponse\_($Part)\_(\w+)$/) {
    #$r->print('<br>'.$_.'...'.$P_Order.'---'.$Part);     #$r->print('<br>'.$_.'...'.$P_Order.'---'.$Part);
    $OpResp{$P_Order}=$frid;     $OpResp{$P_Order}="$frid:$Part";
        }          } 
      
    }     }
        }         }
    }     }
Line 968  sub tracetable { Line 969  sub tracetable {
    foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {     foreach (split(/\,/,&Apache::lonnet::metadata($meta,'packages'))) {
        if ($_=~/^optionresponse\_($Part)\_(\w+)$/) {         if ($_=~/^optionresponse\_($Part)\_(\w+)$/) {
    #$r->print('<br>'.$_.'...'.$P_Order.'---'.$Part);     #$r->print('<br>'.$_.'...'.$P_Order.'---'.$Part);
    $OpResp{$P_Order}=$rid;     $OpResp{$P_Order}="$rid:$Part";;
        }          } 
         
    }     }
Removed from v.1.15  
changed lines
  Added in v.1.16

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