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";; |
} |
} |
|
|
} |
} |