[BACK]Return to lonclassifystudents.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / statistics
File:  [LON-CAPA] / loncom / interface / statistics / Attic / lonclassifystudents.pm
Revision 1.1: download - view: text, annotated - select for diffs
Sat Jul 27 20:50:15 2002 UTC (21 years, 11 months ago) by minaeibi
Branches: MAIN
CVS tags: version_2_1_X, version_2_1_3, version_2_1_2, version_2_1_1, version_2_1_0, version_2_0_X, version_2_0_99_1, version_2_0_2, version_2_0_1, version_2_0_0, version_1_99_3, version_1_99_2, version_1_99_1_tmcc, version_1_99_1, version_1_99_0_tmcc, version_1_99_0, version_1_3_X, version_1_3_3, version_1_3_2, version_1_3_1, version_1_3_0, version_1_2_X, version_1_2_99_1, version_1_2_99_0, version_1_2_1, version_1_2_0, version_1_1_X, version_1_1_99_5, version_1_1_99_4, version_1_1_99_3, version_1_1_99_2, version_1_1_99_1, version_1_1_99_0, version_1_1_3, version_1_1_2, version_1_1_1, version_1_1_0, version_1_0_99_3, version_1_0_99_2, version_1_0_99_1, version_1_0_99, version_1_0_3, version_1_0_2, version_1_0_1, version_1_0_0, version_0_99_5, version_0_99_4, version_0_99_3, version_0_99_2, version_0_99_1, version_0_99_0, version_0_6_2, version_0_6, version_0_5_1, version_0_5, conference_2003, HEAD

Added activity log and student classification module.

    1: # The LearningOnline Network with CAPA
    2: # (Publication Handler
    3: #
    4: # $Id: lonclassifystudents.pm,v 1.1 2002/07/27 20:50:15 minaeibi Exp $
    5: #
    6: # Copyright Michigan State University Board of Trustees
    7: #
    8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    9: #
   10: # LON-CAPA is free software; you can redistribute it and/or modify
   11: # it under the terms of the GNU General Public License as published by
   12: # the Free Software Foundation; either version 2 of the License, or
   13: # (at your option) any later version.
   14: #
   15: # LON-CAPA is distributed in the hope that it will be useful,
   16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   18: # GNU General Public License for more details.
   19: #
   20: # You should have received a copy of the GNU General Public License
   21: # along with LON-CAPA; if not, write to the Free Software
   22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   23: #
   24: # /home/httpd/html/adm/gpl.txt
   25: #
   26: # http://www.lon-capa.org/
   27: #
   28: # (Navigate problems for statistical reports
   29: #
   30: # YEAR=2002
   31: # 5/12,7/27  Behrouz Minaei
   32: #
   33: ###
   34: 
   35: package Apache::lonclassifystudents; 
   36: 
   37: use strict;
   38: use Apache::lonnet();
   39: use Apache::lonhtmlcommon;
   40: use Apache::loncoursedata;
   41: use GDBM_File;
   42: 
   43: 
   44: #---- Activity log -------------------------------------------------------
   45: 
   46: sub LoadDoDiffFile {
   47:     my $file="/home/minaeibi/183d.txt";
   48:     open(FILEID, "<$file");
   49:     my $line=<FILEID>;
   50:     my %DoDiff=();
   51:     my @Act=split('&',$line);
   52:     
   53: #    $r->print('<br>'.$#Act);
   54:     for(my $n=0;$n<=$#Act;$n++){
   55:        my ($res,$Degree)=split('@',$Act[$n]);
   56:       $DoDiff{$res}=$Degree;
   57:     }
   58: 
   59:     return \%DoDiff;
   60: }
   61: 
   62: sub LoadClassFile {
   63:     my $file="/home/minaeibi/class.txt";
   64:     open(FILEID, "<$file");
   65:     my $line;
   66:     my %Grade=();
   67:     while ($line=<FILEID>) {
   68:         my ($id,$ex1,$ex2,$ex3,$ex4,$hw,$final,$grade)=split(' ',$line);
   69:         $Grade{$id}=$grade;
   70:     }
   71:     return \%Grade;
   72: }
   73: 
   74: #------- Classification  
   75: sub Classify {
   76:     my ($DiscFac, $students)=@_;
   77:     my ($fileGrade) = &LoadClassFile();
   78:     my $Count=0;
   79:     my @List=();
   80:     my @LS=();
   81:     my @LF=();
   82:     my @LM=();
   83:     my $cf=0;
   84:     my $cs=0;
   85:     my $cm=0;
   86:     foreach (keys(%$DiscFac)){  
   87: 	my @l=split(/\:/,$_);
   88: 	if (!($students->{$l[1]})) {next;}
   89: 	my $Grade=$fileGrade->{$students->{$l[1]}};
   90: 	if( $Grade > 3 ) {
   91: 	    $cs++;
   92: 	    push(@LS,("$l[6],$l[5],$l[4],$l[7],$l[8],$l[9],Successful"));
   93: 	} elsif ( $Grade > 2 ) {
   94: 	    $cm++;
   95: 	    push(@LM,("$l[6],$l[5],$l[4],$l[7],$l[8],$l[9],Average"));
   96: 	} else {
   97: 	    $cf++;
   98: 	    push(@LF,("$l[6],$l[5],$l[4],$l[7],$l[8],$l[9],Failed"));
   99: 	}
  100:     }
  101:     my $Str = '';
  102:     for(my $n=0;$n<$cs;$n++){$Str .= '<br>'.$LS[$n];}
  103:     for(my $n=0;$n<$cm;$n++){$Str .= '<br>'.$LM[$n];}  
  104:     for(my $n=0;$n<$cf;$n++){$Str .= '<br>'.$LF[$n];}
  105: 
  106:     return $Str;
  107: } 
  108: 
  109: sub ProcAct {
  110:     # return;
  111:     my ($Act,$Submit)=@_;
  112:     my @Act=split(/\@/,$Act);
  113:     @Act = sort(@Act);
  114: 
  115:     ##$r->print('<br>'.$#Act);
  116:     ##for(my $n=0;$n<=$#Act;$n++){
  117: ##	$r->print('<br>n='.$n.')'.$Act[$n]);
  118: ##    }
  119: 
  120: #    my $Beg=$Act[0];
  121:     my $Dif=$Submit-$Act[0];
  122:     $Dif = ($Dif>0) ? ($Dif/3600) : 0; 
  123: 
  124: #    $r->print('<br>Access Number = '.$#Act.'<br>Submit Time='.$Submit.'<br>First Access='.$Act[0].'<br>Last Access='.$Act[$#Act].'<br> Submit - First = <b>'.$Dif.'</b>');
  125: 
  126: 
  127: #time spent for solving the problem           
  128: #    $r->print('<br>Def'.($Act[$#Act-1]-$Act[0]));
  129: 
  130:     return $Dif;
  131: }
  132: 
  133: sub LoadActivityLog {
  134: #    my $CacheDB = "/home/minaeibi/act183.log.cache";
  135:     my $CacheDB = "/home/httpd/perl/tmp/act183.log.cache";
  136: 
  137:     my %Activity;
  138:     if (-e "$CacheDB") {
  139: 	if (tie(%Activity,'GDBM_File',"$CacheDB",&GDBM_READER,0640)) {
  140: 	    return;
  141:         }
  142:         else {
  143: #	    $r->print("Unable to tie log Cache hash to db file");
  144:         }
  145:     }
  146:     else {
  147: 	if (tie(%Activity,'GDBM_File',$CacheDB,&GDBM_WRCREAT,0640)) {
  148: 	    foreach (keys %Activity) {delete $Activity{$_};}
  149: 	    &Build_log(\%Activity); 
  150: 	}
  151:         else {
  152: #	    $r->print("Unable to tie log Build hash to db file");
  153:         }
  154:     }
  155:     return \%Activity;
  156: }
  157: 
  158: sub Build_log {
  159:     my ($Activity)=@_;
  160:     my $file="/home/minaeibi/act183.log";
  161:     open(FILEID, "<$file");
  162:     my $line;
  163:     my $count=0;
  164:     while ($line=<FILEID>) {
  165: 	my ($time,$machine,$what)=split(':',$line);
  166: 	$what=&Apache::lonnet::unescape($what);
  167: 	my @accesses=split('&',$what);
  168: 	           
  169: 	foreach my $access (@accesses) {
  170: 
  171: 	    $count++;
  172: 
  173: 	    my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access);
  174: 	    if (!$resource) { next; }
  175: 	    my $res=&Apache::lonnet::unescape($resource);
  176: 	    if (($res =~ /\.problem/)) {
  177: 		$Activity->{$who.':'.$res}.=$date.'@';
  178:                 #$r->print('<br>'.$time.':'.$who.'---'.$res);
  179: 		&Update_PrgInit($count);
  180: 
  181: 	    }
  182: 	}
  183:     }
  184: 
  185: # my $c=1;
  186: # foreach (sort keys %Activity) {
  187: #     $r->print('<br>'.$c.')'.$_.' ... '.$Activity{$_});
  188: #     $c++;
  189: # }
  190: 
  191: }
  192: 
  193: sub Activity {
  194:     my $file="/home/minaeibi/activity.log";
  195:     my $userid='adamsde1';
  196: #    $r->print("<br>Using $file");
  197: #    $r->rflush();
  198:     open(FILEID, "<$file");
  199:     my $line;
  200:     my @allaccess;
  201:     my $Count=0;
  202:     while ($line=<FILEID>) {
  203: 	my ($time,$machine,$what)=split(':',$line);
  204: 	$what=&Apache::lonnet::unescape($what);
  205: 	my @accesses=split('&',$what);
  206: 	foreach my $access (@accesses) {
  207: 	    my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access);
  208: 	    #if ($who ne $userid) { next; }
  209: 	    if (!$resource) { next; }
  210: 	    my $res=&Apache::lonnet::unescape($resource);
  211: 	    if (($res =~ /\.(sequence|problem|htm|html|page)/)) {
  212: 	    	$Count++;
  213: ###888		$r->print("<br>$Count) ".localtime($date).": $who --> $res");
  214: #	        if ($post) { 
  215: #		    $Count++;
  216: #		    $r->print("<br><b>$Count) Sent data ".join(':',
  217: #                              &Apache::lonnet::unescape(@posts)).'</b>');
  218: #		}
  219: ###888		$r->rflush();
  220: 	    }
  221: 	    #push (@allaccess,unescape($access));
  222: 	    #print $machine;
  223: 	}
  224:     }
  225: #    @allaccess=sort(@allaccess);
  226: #    $Count=0;
  227: #    foreach my $access (@allaccess) {
  228: #	my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access);
  229: #	$Count++;
  230: #	$r->print("<br>$Count) $date: $who --> $resource");
  231: #	$r->rflush();
  232: #	if ($post) { 
  233: #	    $r->print("<br><b>Sent data ".join(':',unescape(@posts)).'</b>');
  234: #	}
  235: #    }
  236: }
  237: 
  238: #---- END Activity log ---------------------------------------------------
  239: 
  240: 1;
  241: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>