version 1.20, 2002/05/19 15:44:40
|
version 1.23, 2002/05/30 13:09:13
|
Line 31
|
Line 31
|
# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei |
# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei |
# YEAR=2002 |
# YEAR=2002 |
# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei |
# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei |
# 5/12,5/14,5/15,5/19 Behrouz Minaei |
# 5/12,5/14,5/15,5/19,5/26 Behrouz Minaei |
# |
# |
### |
### |
|
|
Line 86 my %Header = (0,"Homework Sets Order",1,
|
Line 86 my %Header = (0,"Homework Sets Order",1,
|
9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd"); |
9,"S.D.",10,"Skew.",11,"D.F.1st",12,"D.F.2nd"); |
my %Answer = (); |
my %Answer = (); |
|
|
|
|
|
sub unescape { |
|
my $str=shift; |
|
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
return $str; |
|
} |
|
|
|
sub Activity { |
|
my $file="/home/minaeibi/minaei"; |
|
my $userid='billskat'; |
|
$r->print("<br>Using $file"); |
|
$r->rflush(); |
|
open(FILEID, "<$file"); |
|
my $line; |
|
my @allaccess; |
|
while ($line=<FILEID>) { |
|
my ($time,$machine,$what)=split(':',$line); |
|
#$r->print("time=$time machine=$machine:-> $what\n"); |
|
#$r->rflush(); |
|
$what=&unescape($what); |
|
my @accesses=split('&',$what); |
|
foreach my $access (@accesses) { |
|
my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access); |
|
if ($who ne $userid) { next; } |
|
#if (!$resource) { next; } |
|
push (@allaccess,unescape($access)); |
|
#print $machine; |
|
} |
|
} |
|
@allaccess=sort(@allaccess); |
|
my $Count=0; |
|
foreach my $access (@allaccess) { |
|
my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access); |
|
$Count++; |
|
# $r->print("$Count ".localtime($date)." $who $resource\n"); |
|
$r->print("<br>$Count) $date: $who --> $resource"); |
|
$r->rflush(); |
|
if ($post) { |
|
$r->print("<br><b>Sent data ".join(':',unescape(@posts)).'</b>'); |
|
} |
|
} |
|
} |
|
|
|
|
|
|
sub InitAnalysis { |
sub InitAnalysis { |
my ($rid, $student)=@_; |
my ($rid, $student)=@_; |
my ($uname,$udom)=split(/\:/,$student); |
my ($uname,$udom)=split(/\:/,$student); |
Line 279 sub AnalyzeProblem {
|
Line 324 sub AnalyzeProblem {
|
my $OpSel=''; |
my $OpSel=''; |
my $CurInt = $ENV{'form.interval'}; |
my $CurInt = $ENV{'form.interval'}; |
if ($CurInt eq '') {$CurMap = '1';} |
if ($CurInt eq '') {$CurMap = '1';} |
my $Ptr = '<b>Select number of intervals</b>'."\n". |
my $Ptr = '<br><b>Select number of intervals</b>'."\n". |
'<select name="interval">'."\n"; |
'<select name="interval">'."\n"; |
for (my $n=1;$n<=7;$n++) { |
for (my $n=1;$n<=7;$n++) { |
$Ptr .= '<option'; |
$Ptr .= '<option'; |
Line 295 sub AnalyzeProblem {
|
Line 340 sub AnalyzeProblem {
|
"\n".'<tr>'. |
"\n".'<tr>'. |
"\n".'<th> # </th>'. |
"\n".'<th> # </th>'. |
"\n".'<th> Problem Title </th>'. |
"\n".'<th> Problem Title </th>'. |
"\n".'<th> Resouse </th>'. |
"\n".'<th> Resource </th>'. |
"\n".'<th> Address </th>'. |
"\n".'<th> Address </th>'. |
"\n".'</tr>'; |
"\n".'</tr>'; |
|
|
Line 478 sub StudentReport {
|
Line 523 sub StudentReport {
|
"\n".'<th> Tries </th>'. |
"\n".'<th> Tries </th>'. |
"\n".'</tr>'; |
"\n".'</tr>'; |
my ($temp)=keys(%result); |
my ($temp)=keys(%result); |
unless ($temp=~/^error\:/) { |
unless ($temp=~/^(con_lost|error|no_such_host)/i) { |
foreach my $CurCol (@cols) { |
foreach my $CurCol (@cols) { |
if (!$CurCol){ |
if (!$CurCol){ |
my $Set=&Apache::lonnet::declutter($hash{'map_id_'.$1}); |
my $Set=&Apache::lonnet::declutter($hash{'map_id_'.$1}); |
Line 639 sub PreStatTable {
|
Line 684 sub PreStatTable {
|
$Ptr .= '<pre>'. |
$Ptr .= '<pre>'. |
'<b> #Stdnts</b>: Total Number of Students opened the problem.<br>'. |
'<b> #Stdnts</b>: Total Number of Students opened the problem.<br>'. |
'<b> Tries </b>: Total Number of Tries for solving the problem.<br>'. |
'<b> Tries </b>: Total Number of Tries for solving the problem.<br>'. |
'<b> Max </b> : Maximunm Number of Tries for solving the problem.<br>'. |
'<b> Mod </b>: Maximunm Number of Tries for solving the problem.<br>'. |
'<b> Avg. </b>: Average Number of the tries. [ Tries / #Stdnts ]<br>'. |
'<b> Mean </b>: Average Number of the tries. [ Tries / #Stdnts ]<br>'. |
'<b> #YES </b>: Number of students solved the problem correctly.<br>'. |
'<b> #YES </b>: Number of students solved the problem correctly.<br>'. |
'<b> #yes </b>: Number of students solved the problem by override.<br>'. |
'<b> #yes </b>: Number of students solved the problem by override.<br>'. |
'<b> %Wrng </b>: Percentage of students tried to solve the problem but'. |
'<b> %Wrng </b>: Percentage of students tried to solve the problem but'. |
Line 648 sub PreStatTable {
|
Line 693 sub PreStatTable {
|
# ' DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]<br>'. Kashy formula |
# ' DoDiff : Degree of Difficulty of the problem. [ Tries/(#YES+#yes+0.1) ]<br>'. Kashy formula |
'<b> DoDiff </b>: Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]<br>'. #Gerd formula |
'<b> DoDiff </b>: Degree of Difficulty of the problem. [ 1 - ((#YES+#yes) / Tries) ]<br>'. #Gerd formula |
'<b> S.D. </b> : Standard Deviation of the tries.'. |
'<b> S.D. </b> : Standard Deviation of the tries.'. |
'[ sqrt(sum((Xi - Avg.)^2)) / (#Stdnts-1)'. |
'[ sqrt(sum((Xi - Mean)^2)) / (#Stdnts-1)'. |
' where Xi denotes every student\'s tries ]<br>'. |
' where Xi denotes every student\'s tries ]<br>'. |
'<b> Skew. </b>: Skewness of the students tries.'. |
'<b> Skew. </b>: Skewness of the students tries.'. |
' [ (sqrt( sum((Xi - Avg.)^3) / #Stdnts)) / (S.D.^3) ]<br>'. |
' [ (sqrt( sum((Xi - Mean)^3) / #Stdnts)) / (S.D.^3) ]<br>'. |
'<b> Dis.F. </b>: Discrimination Factor: A Standard for '. |
'<b> Dis.F. </b>: Discrimination Factor: A Standard for '. |
'evaluating the problem according to a Criterion<br>'. |
'evaluating the problem according to a Criterion<br>'. |
'<b> [Applied Criterion in %27 Upper Students - '. |
'<b> [Applied Criterion in %27 Upper Students - '. |
Line 704 sub usection {
|
Line 749 sub usection {
|
my ($udom,$unam,$courseid,$ActiveFlag)=@_; |
my ($udom,$unam,$courseid,$ActiveFlag)=@_; |
$courseid=~s/\_/\//g; |
$courseid=~s/\_/\//g; |
$courseid=~s/^(\w)/\/$1/; |
$courseid=~s/^(\w)/\/$1/; |
foreach (split(/\&/,&Apache::lonnet::reply('dump:'. |
|
$udom.':'.$unam.':roles', |
my %result=&Apache::lonnet::dump('roles',$udom,$unam); |
&Apache::lonnet::homeserver($unam,$udom)))){ |
my ($checkForResult)=keys(%result); |
my ($key,$value)=split(/\=/,$_); |
if ($checkForResult=~/^(con_lost|error|no_such_host)/i) { |
$key=&Apache::lonnet::unescape($key); |
return -1; |
|
} |
|
foreach my $key (keys (%result)) { |
|
my $value=$result{$key}; |
if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) { |
if ($key=~/^$courseid(?:\/)*(\w+)*\_st$/) { |
my $section=$1; |
my $section=$1; |
if ($key eq $courseid.'_st') { $section=''; } |
if ($key eq $courseid.'_st') { $section=''; } |
my ($dummy,$end,$start)=split(/\_/,&Apache::lonnet::unescape($value)); |
my ($dummy,$end,$start)=split(/\_/,$value); |
if ( $ActiveFlag ne 'Any' ) { |
if ( $ActiveFlag ne 'Any' ) { |
my $now=time; |
my $now=time; |
my $notactive=0; |
my $notactive=0; |
Line 759 sub ExtractStudentData {
|
Line 807 sub ExtractStudentData {
|
my $SecLimit; |
my $SecLimit; |
my $MapLimit; |
my $MapLimit; |
my ($temp)=keys(%result); |
my ($temp)=keys(%result); |
unless ($temp=~/^error\:/) { |
unless ($temp=~/^(con_lost|error|no_such_host)/i) { |
foreach my $CurCol(@cols) { |
foreach my $CurCol(@cols) { |
($PrOrd,$ResId)=split(/\:/,$CurCol); |
($PrOrd,$ResId)=split(/\:/,$CurCol); |
if ( !$CurCol ) { next; } |
if ( !$CurCol ) { next; } |
Line 882 sub ExtractStudentData {
|
Line 930 sub ExtractStudentData {
|
} |
} |
|
|
|
|
|
|
# ------------------------------------------------------------ Build page table |
# ------------------------------------------------------------ Build page table |
sub tracetable { |
sub tracetable { |
my ($rid,$beenhere)=@_; |
my ($rid,$beenhere)=@_; |
Line 1355 sub ClassList {
|
Line 1404 sub ClassList {
|
&GetStatus(); |
&GetStatus(); |
|
|
$cid=$ENV{'request.course.id'}; |
$cid=$ENV{'request.course.id'}; |
my $chome=$ENV{'course.'.$cid.'.home'}; |
|
my ($cdom,$cnum)=split(/\_/,$cid); |
my ($cdom,$cnum)=split(/\_/,$cid); |
# ----------------------- Get first and last resource, see if there is anything |
# ----------------------- Get first and last resource, see if there is anything |
$firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}}; |
$firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}}; |
Line 1372 sub ClassList {
|
Line 1420 sub ClassList {
|
# foreach my $KeyPoint(sort keys(%students)) { |
# foreach my $KeyPoint(sort keys(%students)) { |
|
|
|
|
my $classlst=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.':classlist',$chome); |
|
|
|
my $StudNo = 0; |
my $StudNo = 0; |
my $now=time; |
my $now=time; |
unless ($classlst=~/^error\:/) { |
|
foreach my $KeyPoint(sort split(/\&/,$classlst)) { |
my %classlist=&Apache::lonnet::dump('classlist',$cdom,$cnum); |
my ($name,$value)=split(/\=/,$KeyPoint); |
|
my ($end,$start)=split(/\:/,&Apache::lonnet::unescape($value)); |
my ($checkForError)=keys(%result); |
|
if($checkForError=~/^(con_lost|error|no_such_host)/i) { |
|
$r->print('<h1>Could not access course data</h1>'); |
|
} else { |
|
foreach my $name (keys (%classlist)) { |
|
my $value=$classlist{$name}; |
|
my ($end,$start)=split(/\:/,$value); |
my $active=1; |
my $active=1; |
my $Status=$ENV{'form.status'}; |
my $Status=$ENV{'form.status'}; |
$Status = ($Status) ? $Status : 'Active'; |
$Status = ($Status) ? $Status : 'Active'; |
if ( ( ($end) && $now > $end ) && |
if ( ( ($end) && $now > $end ) && |
( ($Status eq 'Active') ) ) { $active=0; } |
( ($Status eq 'Active') ) ) { $active=0; } |
|
|
if ( ($Status eq 'Expired') && |
if ( ($Status eq 'Expired') && |
($end == 0 || $now < $end) ) { $active=0; } |
($end == 0 || $now < $end) ) { $active=0; } |
|
|
if ($active) { |
if ($active) { |
my $thisindex=$#students+1; |
my $thisindex=$#students+1; |
$name=&Apache::lonnet::unescape($name); |
|
$students[$thisindex]=$name; |
$students[$thisindex]=$name; |
my ($sname,$sdom)=split(/\:/,$name); |
my ($sname,$sdom)=split(/\:/,$name); |
my $ssec=&usection($sdom,$sname,$cid,$Status); |
my $ssec=&usection($sdom,$sname,$cid,$Status); |
Line 1404 sub ClassList {
|
Line 1453 sub ClassList {
|
$StuBox{$sname}=$sdom; |
$StuBox{$sname}=$sdom; |
} |
} |
$StudNo++; |
$StudNo++; |
} |
} |
} |
} |
} |
} |
else { |
|
$r->print('<h1>Could not access course data</h1>'); |
|
} |
|
$r->print("Total number of students : ".($#students+1)); |
$r->print("Total number of students : ".($#students+1)); |
$r->rflush(); |
$r->rflush(); |
# --------------- Find all assessments and put them into some linear-like order |
# --------------- Find all assessments and put them into some linear-like order |
Line 1460 sub CreateForm {
|
Line 1507 sub CreateForm {
|
$Ptr .= '<br><br>'; |
$Ptr .= '<br><br>'; |
$Ptr .= '<input type=submit name=sort value="Student Assessment"/>'; |
$Ptr .= '<input type=submit name=sort value="Student Assessment"/>'; |
$Ptr .= '</h3>'; |
$Ptr .= '</h3>'; |
|
#$Ptr .= '<input type=submit name=sort value="Activity Log"/>'; |
|
#$Ptr .= '</h3>'; |
$r->print( $Ptr ); |
$r->print( $Ptr ); |
} |
} |
else { |
else { |
Line 1488 sub Menu {
|
Line 1537 sub Menu {
|
# $Apache::lonxml::debug=0; |
# $Apache::lonxml::debug=0; |
&Title(); |
&Title(); |
my $InpStr = $ENV{'form.sort'}; |
my $InpStr = $ENV{'form.sort'}; |
if ($InpStr=~/^Analyze\_/) { |
if ($InpStr eq 'Activity Log') { |
|
&Activity(); |
|
} |
|
elsif ($InpStr=~/^Analyze\_/) { |
&ClassList(); |
&ClassList(); |
&ShowOpGraph($InpStr,$ENV{'form.interval'}); |
&ShowOpGraph($InpStr,$ENV{'form.interval'}); |
} |
} |
Line 1505 sub Menu {
|
Line 1557 sub Menu {
|
$r->rflush(); |
$r->rflush(); |
} |
} |
|
|
|
|
sub StudentOptions { |
sub StudentOptions { |
my $OpSel5=''; |
my $OpSel5=''; |
$CurStu = $ENV{'form.student'}; |
$CurStu = $ENV{'form.student'}; |