Annotation of capa/capa51/CapaTools/capautils.1.1.pl, revision 1.1.1.1
1.1 albertel 1: #!/usr/local/bin/perl -I/usr/local/bin
2:
3: # <==========================================================================>
4: # June 1997 version 1.0 Created by Isaac Tsai
5: # Copyright 1997, 1998, 1999
6: # September 24 1997 version 1.1 by Guy Albertelli II
7: # -put in initialization loop in S_ScanSetDB (need to remove hardlimits)
8: # -initialize Max_try in S_Average, before being used
9: #
10: # <==========================================================================>
11: use Cwd;
12: require('getopts.pl');
13: require('CAPAscreen.pl');
14: # =============================================================================
15: #
16: # =============================================================================
17: $Days = int( time / 86400);
18: @MonthName = ( 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec' );
19: #
20: # produces a string "ddMmm19xx" to be used in timestamp or filename
21: #
22: sub TodayString {
23: local($ss, $mm, $hh, $mday, $mth, $yy, $wday, $yday,$isdst);
24: local($str);
25:
26: ($ss, $mm, $hh, $mday, $mth, $yy, $wday, $yday,$isdst) = localtime(time);
27: if ($mday > 9) {
28: $str = "$mday$MonthName[$mth]19$yy"; # year 2000 problem!!
29: } else {
30: $str = "0$mday$MonthName[$mth]19$yy"; # year 2000 problem!!
31: }
32: return $str;
33: }
34: #
35: # produces a string hhmmss-ddMon19xx for timestamps
36: #
37: sub TimeString {
38: local($ss, $mm, $hh, $mday, $mth, $yy, $wday, $yday,$isdst);
39: local($str);
40:
41: ($ss, $mm, $hh, $mday, $mth, $yy, $wday, $yday,$isdst) = localtime(time);
42: $ss = "0" . "$ss" if $ss <= 9;
43: $mm = "0" . "$mm" if $mm <= 9;
44: $hh = "0" . "$hh" if $hh <= 9;
45: if ($mday > 9) {
46: $str = "$hh$mm$ss-$mday$MonthName[$mth]19$yy"; # year 2000 problem!!
47: } else {
48: $str = "$hh$mm$ss-0$mday$MonthName[$mth]19$yy"; # year 2000 problem!!
49: }
50: return $str;
51: }
52: # =============================================================================
53: # Read capa.config into global variables
54: #
55: sub S_ReadCAPAconfig {
56: local($classpath)=@_;
57: local($filename);
58: local($filename2);
59: local($tempfilename);
60: local($input_line);
61: local($done)=0;
62: local($tmp);
63:
64: @MainPath=();
65: push(@MainPath,$classpath);
66: $ClassName = substr($classpath,-8,8);
67: $filename="$classpath" . "/capa.config";
68: $filename2="$classpath" . "/capautils.config";
69: foreach $tempfilename ( $filename, $filename2 ) {
70: if(-f $tempfilename) {
71: open(IN, "<$tempfilename") || die "Cannot open file $tempfilename!";
72: LINE: while( ($input_line = <IN>) && (! $done) ) {
73: ## skip over comments
74: if( $input_line =~ /^\#/ ) { next LINE; }
75: chop($input_line);
76: # collect _path information and create the corresponding global variable
77: if( ($input_line =~ /^(\w+)_path\s*=\s*["]([\.\d\+\-\w\s\/]+)["]$/) ||
78: ($input_line =~ /^(\w+)_path\s*=\s*(\S+)$/) ) {
79: $tmp = ucfirst lc $1;
80: $tmp = "$tmp" . "Path";
81: push(@MainPath,$2);
82: ${$tmp} = "$2";
83: # collect printer_option information
84: } elsif ( ($input_line =~ /^\s*printer_option\s*=\s*["]([\.\d\+\-\w\s\/\|\$]+)["]$/) ||
85: ($input_line =~ /^\s*printer_option\s*=\s*(\S+)$/ ) ) {
86: push(@Printers,$1);
87: ##
88: # collect _command information
89: } elsif ( ($input_line =~ /^\s*(\w+)_command\s*=\s*["]([\.\d\+\-\w\s\/\|\$]+)["]$/) ||
90: ($input_line =~ /^\s*(\w+)_command\s*=\s*(\S+)$/ ) ) {
91: $tmp = ucfirst lc $1;
92: $tmp = "$tmp" . "CMD";
93: ${$tmp} = "$2";
94: ## print "CMD \$$tmp: [$2]\n";
95: ## print "Press RETURN to continue"; $tmp = <>;
96: # collect _file information
97: } elsif ( ($input_line =~ /^\s*(\w+)_file\s*=\s*["]([\.\d\+\-\w\s\/]+)["]$/) ||
98: ($input_line =~ /^\s*(\w+)_file\s*=\s*(\S+)$/ ) ) {
99: $tmp = ucfirst lc $1;
100: $tmp = "$tmp" . "File";
101: ${$tmp} = "$2";
102: # var_ definition
103: } elsif ( ($input_line =~ /^\s*var_(\w+)\s*:=\s*["]([\.\d\+\-\w\s\/]+)["]$/) ||
104: ($input_line =~ /^\s*var_(\w+)\s*:=\s*(\S+)$/ ) ) {
105: # we defined a variable name with that value
106: $tmp = ucfirst lc $1;
107: $Var_name{$tmp} = "$2";
108: # two levels of indirection
109: # the variable should be ${$2}
110:
111: # prefix_ definition
112: } elsif ( ($input_line =~ /^\s*prefix_(\w+)\s*:=\s*["]([\.\d\+\-\w\s\/]+)["]$/) ||
113: ($input_line =~ /^\s*prefix_(\w+)\s*:=\s*(\S+)$/ ) ) {
114: $tmp = ucfirst lc $1;
115: $Prefix_name{$tmp} = "$2";
116:
117: # assigning an numerical value to a variable
118: } elsif ( ($input_line =~ /^\s*(\w+)\s*=\s*([\.\d]+)/) ) {
119: ${$1} = $2;
120: # print "Assign \$$1: with $2\n";
121: # print "Press RETURN to continue"; $tmp = <>;
122: # assigning a variable to another variable
123: } elsif ( ($input_line =~ /^\s*(\w+)\s*=\s*([\w]+)/) ) {
124: $P_code{$1} = "\$$2";
125: ## print "PERL $1: { $P_code{$1} }\n";
126: ## print "Press RETURN to continue"; $tmp = <>;
127: # perl code
128: } elsif ( ($input_line =~ /^\s*(\w+)\s*::/) ) {
129: $p_var_name = $1;
130: } elsif ( ($input_line =~ /^\s*BEGIN_perl/) ) {
131: $P_code{$p_var_name} = &E_CollectPerlCode;
132: ## print "PERL $p_var_name: { $P_code{$p_var_name} }\n";
133: ## print "Press RETURN to continue"; $tmp = <>;
134: } elsif ($input_line =~ /[Bb][Aa][Ss][Ee][\s][Uu][Nn][Ii][Tt]/) {
135: $done = 1;
136: }
137:
138: }
139: close(IN) || die "Cannot close file $tempfilename!";
140: }
141: # define some global variables if they are not defined properly in capa.config file
142: $homework_scores_limit_set = 99 if $homework_scores_limit_set eq "";
143: $exam_scores_limit_set = 99 if $exam_scores_limit_set eq "";
144: $quiz_scores_limit_set = 99 if $quiz_scores_limit_set eq "";
145: $supp_scores_limit_set = 99 if $supp_scores_limit_set eq "";
146: $others_scores_limit_set = 99 if $others_scores_limit_set eq "";
147: $display_score_row_limit = 40 if $display_score_row_limit eq "";
148: ## print "Press RETURN to continue"; $tmp = <>;
149: }
150: }
151: #
152: # Collect perl codes from <IN> until it encountered a
153: # END_perl statement
154: # Skips over comments (begin with a # mark)
155: # It then places all the codes withing a pair of '{' and '}'
156: #
157: sub E_CollectPerlCode {
158: local($input_line);
159: local($p_code,$done);
160:
161: $p_code = "{ \n"; # begining of the code
162: $done=0;
163: while( ($input_line = <IN>) && (! $done) ) {
164: if( $input_line =~ /^END_perl/ ) {
165: $done = 1;
166: } else {
167: if( $input_line !~ /^\#/ ) { # skip over comments
168: $p_code = "$p_code" . "$input_line";
169: }
170: }
171: }
172: $p_code = "$p_code" . " }\n"; # ending of the code
173: return ($p_code);
174: }
175: #
176: # Collects e-mail template code until it encountered
177: # a END_template statement in the <IN> file
178: # It skips over comments that begin with a # mark
179: #
180: sub E_CollectTemplateCode {
181: local($input_line);
182: local($p_code,$done);
183:
184:
185: $done=0;
186: while( ($input_line = <IN>) && (! $done) ) {
187: if( $input_line =~ /^END_template/ ) {
188: $done = 1;
189: } else {
190: if( $input_line !~ /^\#/ ) { # skip over comments
191: $p_code = "$p_code" . "$input_line";
192: }
193: }
194: }
195:
196: return ($p_code);
197: }
198:
199: #
200: # $MailCMD comes from the entry 'mail_command' in capa.config
201: #
202: sub S_Mailto {
203: local($e_address,$e_file)=@_;
204: local($m_subject);
205: local($cmd);
206: local($tmp);
207:
208: $m_subject = "Current Status on $ClassName";
209:
210: $cmd = "$MailCMD -s '$m_subject' $e_address < $e_file";
211: print "Mail File $e_file To $e_address\n";
212: system($cmd);
213: # ??? How do we know this command successfully returns?
214:
215: }
216:
217: # TODO:: Check the validity of $e_addr
218: #
219: # INPUT: a string represents the category to mail to
220: # it could be "3" or "0" or "1,3,4"
221: # "0" means 1,2,3, and 4
222: # "1,3,4" means 1,3, and 4
223: # anything greater than 4 is not valid in the input
224: # therefore category 5 represent those that are
225: # falling through the gaps of *_high and *_low
226: #
227: sub S_MailtoCategory {
228: local($cat)=@_;
229: local(@all_files);
230: local(@a_cat);
231: local($i,$j,$a_char);
232: local($s_id,$s_name,$s_sec,$e_addr);
233: local($orig_filename,$new_filename);
234: local($tmp);
235:
236: opendir(EDIR, "$ClassPath/Mail") || die "cannot opendir $ClassPath/Mail!";
237: @all_files = grep !/^\.\.?$/, readdir EDIR;
238: closedir EDIR;
239:
240: if( ( $cat =~ /,/ ) || ( $cat == 0 ) ) {
241: if( $cat =~ /,/ ) {
242: @a_cat = split(/,/,$cat);
243: } else {
244: @a_cat = (1,2,3,4);
245: }
246: for( $i=0;$i<=$#all_files;$i++) {
247: for( $j=0;$j<=$#a_cat;$j++) {
248: $a_char = $a_cat[$j];
249: if( $all_files[$i] =~ /([\w\d]+)\.[\w\d]+\.$a_char$/ ) {
250: $s_id = $1;
251: ($s_name,$s_sec,$e_addr) = S_Lookup_student_name("$s_id");
252: if( $e_addr ne "" ) {
253: $orig_filename = "$ClassPath/Mail/$all_files[$i]";
254: S_Mailto("$e_addr","$orig_filename");
255: print "moving $all_files[$i] to $all_files[$i].done\n";
256: # move the completed file to *.done
257: system("mv $orig_filename $orig_filename.done");
258: }
259: }
260: }
261: }
262: } else {
263: for( $i=0;$i<=$#all_files;$i++) {
264: if( $all_files[$i] =~ /([\w\d]+)\.[\w\d]+\.$cat$/ ) {
265: $s_id = $1;
266: ($s_name,$s_sec,$e_addr) = S_Lookup_student_name("$s_id");
267: print "Addr=$e_addr\n";
268: print "Press RETURN to continue"; $tmp = <>;
269: if( $e_addr ne "" ) {
270: $orig_filename = "$ClassPath/Mail/$all_files[$i]";
271: S_Mailto("$e_addr","$orig_filename");
272: print "moving $all_files[$i] to $all_files[$i].done\n";
273: system("mv $orig_filename $orig_filename.done");
274: }
275: }
276: }
277: }
278: print "DONE Mail, press RETURN to continue"; $tmp = <>;
279:
280: }
281: #
282: # It prompts the user to enter an absolute path to a regular class
283: #
284: sub S_Enterpath {
285: local($set)=@_;
286: local($notdone,$path,$cfgfullpath,$cfgutilsfullpath);
287: local($cfullpath,$rfullpath,$sfullpath);
288:
289: $notdone = 1;
290: while ($notdone) {
291: print "Please enter the CLASS absolute path:\n";
292: $path = <>; chomp($path);
293: if( $path =~ /\/$/ ) {
294: $cfullpath = "$path" . "classl";
295: $rfullpath = "$path" . "records";
296: $sfullpath = "$path" . "records/set$set.db";
297: $cfgfullpath = "$path" . "capa.config";
298: $cfgutilsfullpath = "$path" . "capautils.config";
299: } else {
300: $cfullpath = "$path" . "/classl";
301: $rfullpath = "$path" . "/records";
302: $sfullpath = "$path" . "/records/set$set.db";
303: $cfgfullpath = "$path" . "/capa.config";
304: $cfgutilsfullpath = "$path" . "/capautils.config";
305: }
306: if( -d $path ) {
307: if( -d $rfullpath ) {
308: if( -f $cfgfullpath ) {
309: if( -f $cfgutilsfullpath ) {
310: $notdone = 0;
311: } else {
312: print "File [$cfgutilsfullpath] does not exist!\n";
313: }
314: } else {
315: print "File [$cfgfullpath] does not exist!\n";
316: }
317: } else {
318: print "Directory [$rfullpath] does not exist!\n";
319: }
320: } else {
321: print "Directory [$path] does not exist!\n";
322: }
323:
324: }
325: return ($path);
326: }
327: # ----------------------------------------------------------
328: # Global menu items to be selected by user
329: #
330: @Main_menu=(
331: "Change class path",
332: "Run capastat",
333: "Log analysis on Y, N, S, U, and u",
334: "Student course profile",
335: "CAPA IDs for one student",
336: "All CAPA IDs",
337: "Item analysis",
338: "Item correlation",
339: "Email",
340: "Print assignment(s) for a student",
341: "View score file",
342: "View submissions for a student",
343: "Quit");
344:
345: @Prof_menu=(
346: "Student number",
347: "Student name",
348: "Cancel" );
349:
350: @Email_menu=(
351: "Create score file for all students",
352: "Create individual e-mail files from the file in 1.",
353: "Preview e-mail file randomly from among the files in 2.",
354: "Send e-mail files in 2. to a group of students",
355: "Cancel" );
356:
357: @ScoreSortMsg=(
358: "Sort by the order of: ",
359: " 1. Grade",
360: " 2. Student number",
361: " 3. Student name",
362: " 4. Section",
363: " ",
364: "3,2 means 'name' first, 'student number' second",
365: "1,4,3 means sort by 'grade', 'section' and 'name'" );
366:
367:
368: @SpecifyCategoryMsg = ("Which category?",
369: " enter number(s) between 0 and 4",
370: " 1,2,4 : categories 1, 2 and 4",
371: " 3 : category 3",
372: " 0 : all categories" );
373: #
374: # Only accepts input of 0, 1, 2, 3, and 4, nothing else.
375: #
376: sub S_EnterCategory {
377: local($cat);
378: local($done)=0;
379: local(@a_cat,$i);
380:
381: while(! $done) {
382: $cat = C_InputSetNum(4,10,45,"",12,,"CATEGORY:", @SpecifyCategoryMsg);
383: if( $cat =~ /,/ ) {
384: @a_cat = split(/,/,$cat);
385: $done = 1;
386: for( $i=0;$i<=$#a_cat;$i++) {
387: if( ($a_cat[$i] < 0 || $a_cat[$i] > 4) && ($a_cat[$i] ne "" ) ) {
388: $done = 0;
389: }
390: if( $a_cat[$i] == 0 ) {
391: $done = 0;
392: }
393: }
394:
395: } else {
396: if( $cat>= 0 && $cat <= 4 ) {
397: $done = 1;
398: }
399: }
400: }
401: return ($cat);
402: }
403:
404: # Only allows input of 1, 2, 3, and 4, nothing more
405: sub S_EnterSortKey {
406: local($key);
407: local($done)=0;
408: local(@a_key,$i);
409:
410: while(! $done) {
411: $key = C_InputSetNum(2,5,60,"",12,,"KEY:",@ScoreSortMsg);
412: if( $key =~ /,/ ) {
413: @a_key = split(/,/,$key);
414: $done = 1;
415: for( $i=0;$i<=$#a_key;$i++) {
416: if( ($a_cat[$i] < 0 || $a_cat[$i] > 4) && ($a_key[$i] ne "" ) ) {
417: $done = 0;
418: }
419: if( $a_key[$i] == 0 ) {
420: $done = 0;
421: }
422: }
423:
424: } else {
425: if( $key> 0 && $key < 5 ) {
426: $done = 1;
427: }
428: }
429: }
430: return ($key);
431: }
432:
433:
434:
435:
436: @EnterSetMsg = ("Which set?");
437: @EnterSetsMsg = ("Which set(s)?",
438: " 3,7 : from set 3 to set 7 (both inclusive)",
439: " 4 : only set 4" );
440:
441: sub S_EnterSets {
442: local($set);
443: local($done)=0;
444: local($s_from,$s_to);
445:
446: while(! $done) {
447: $set = C_InputSetNum(4,10,45,"",6,,"SET:", @EnterSetsMsg);
448: if( $set =~ /,/ ) {
449: ($s_from,$s_to) = split(/,/,$set);
450: if( $s_from <= 0 || $s_from >= 100 ) { $s_from = 1; }
451: if( $s_to <= 0 || $s_to >= 100 ) { $s_to = 1; }
452: if( $s_from > $s_to) {
453: $tmp = $s_from; $s_from = $s_to; $s_to = $tmp;
454: }
455: $done = 1;
456: } else {
457: if( $set> 0 && $set < 100 ) {
458: $s_to = $set;
459: $s_from = $s_to;
460: $done = 1;
461: }
462: }
463: }
464: return ($s_from,$s_to);
465: }
466:
467: sub S_InputSet {
468: local($set);
469: local($done)=0;
470:
471: while(! $done) {
472: $set = C_InputSetNum(4,10,15,"",2,,"SET:", @EnterSetMsg);
473: if( $set =~ /\d+/ && $set > 0 && $set < 100 ) { # check entered set
474: $done = 1;
475: }
476: }
477: return ($set);
478: }
479:
480:
481: @EnterSSNMsg = ("Enter student number?", " (RETURN to exit)" );
482: @EnterSNMsg = ("Enter student name (max 30 chars)?",
483: "Last, First (Middle)",
484: " (RETURN to exit)" );
485:
486: sub S_InputStudent {
487: local($classpath)=@_;
488: local($filename);
489: local($select,$tmp_sn,$input_line);
490: local($student_id,$student_name);
491: local($found,$done,$s_name);
492: local($match,@matched_entries,$tmp_line);
493:
494: $select = C_MultipleChoice(4,10,$DialogWidth,"Select student by:","$DisplayPath",@Prof_menu);
495: if($select == 1 ) { # specify student number
496: while(! $done) {
497: $student_id = C_InputStudentID(4,10,24,"",9,"INPUT:",@EnterSSNMsg);
498: if($student_id eq "" ) {
499: $done = 1;
500: } else {
501: $student_id = uc($student_id);
502: $filename = $classpath . "/classl";
503: open(IN, "<$filename") || die "Cannot open file $filename!";
504: $match = 0; @matched_entries = ();
505: while(($input_line = <IN>)) {
506: chomp($input_line);
507: $tmp_sn = substr($input_line,14,9); $tmp_sn = uc($tmp_sn);
508: if($tmp_sn =~ /^$student_id/ ) {
509: $match++;
510: # student name begins at column 24 and has 30 chars max
511: $student_name = substr($input_line,24,30);
512: $tmp_line = "$tmp_sn " . "$student_name";
513: push(@matched_entries,$tmp_line);
514: }
515: }
516: close(IN) || die "Cannot close file $filename!";
517: if($match > 1 && $match <= 12) {
518: $select = C_MultipleChoice(4,10,$DialogWidth," Matched Student Records ",
519: "$DisplayPath",@matched_entries);
520: $student_id = substr($matched_entries[$select-1],0,9);
521: $student_name = substr($matched_entries[$select-1],10,30);
522: $done = 1;
523: } elsif ($match == 1) {
524: $student_id = substr($matched_entries[0],0,9);
525: $student_name = substr($matched_entries[0],10,30);
526: $done = 1;
527: } elsif ($match > 12) {
528: $tmp_line = "There are $match records found.";
529: C_Warn(4,10,$DialogWidth,"Too many students matched",$tmp_line);
530: } else {
531: $tmp_line = "Please re-enter student number.";
532: C_Warn(4,10,$DialogWidth,"No student found",$tmp_line);
533: }
534: }
535:
536: }
537: } elsif ($select == 2) { # specify student name
538: while(! $done) {
539: $s_name = C_InputStudentID(4,10,40,"Enter student name",30,,"INPUT:", @EnterSNMsg);
540: if($s_name eq "" ) {
541: $done = 1;
542: } else {
543: $s_name = uc($s_name);
544: $filename = $classpath . "/classl";
545: open(IN, "<$filename") || die "Cannot open file $filename!";
546: $match = 0; @matched_entries = ();
547: while(($input_line = <IN>)) {
548: chomp($input_line);
549: $tmp_sn = substr($input_line,24,30); $tmp_sn = uc($tmp_sn);
550: if( $tmp_sn =~ /^$s_name/ ) {
551: $match++;
552: $student_id = substr($input_line,14,9); # student number
553: $tmp_line = "$student_id " . "$tmp_sn";
554: push(@matched_entries,$tmp_line);
555: }
556: }
557: close(IN) || die "Cannot close file $filename!";
558: if($match > 1 && $match <= 12) {
559: $select = C_MultipleChoice(4,10,$DialogWidth," Matched Student Records ",
560: "$DisplayPath",@matched_entries);
561: $student_id = substr($matched_entries[$select-1],0,9);
562: $student_name = substr($matched_entries[$select-1],10,30);
563: $done = 1;
564: } elsif ($match == 1) {
565: $student_id = substr($matched_entries[0],0,9);
566: $student_name = substr($matched_entries[0],10,30);
567: $done = 1;
568: } elsif ($match > 12) {
569: $tmp_line = "There are $match records found.";
570: C_Warn(4,10,$DialogWidth,"Too many students matched",$tmp_line);
571: } else {
572: $tmp_line = "Please re-enter student name.";
573: C_Warn(4,10,$DialogWidth,"No student found",$tmp_line);
574: }
575: }
576: }
577: } else { # cancel
578: $student_id = "";
579: $student_name = "";
580: }
581: return ($student_id,$student_name);
582: }
583:
584:
585:
586: #
587: # INPUT: the class name with full path and the student number
588: # OUTPUT: total scores , total possible wights
589:
590: sub S_CollectSetScores {
591: local($classpath,$student_id,$on_screen,$s_limit)=@_;
592: local($filename,$found,$classname);
593: local($done)=0;
594: local($line_cnt,$input_line);
595: local(@weights); # the wights array for individual set
596: local($valid_weights); # the valid weights for a set
597: local($total_weights); # the overall valid weights for all sets
598: local(@set_weights); # the array storing all set valid weights
599: local($score); # the valid score for a set
600: local($total_scores); # the overall valid scores for all sets
601: local(@set_scores); # the array storing all set scores
602: local($set_idx);
603: local($ii,$abscent_cnt,$present_cnt);
604: local($s_num,$ans_str,$prefix,$rest);
605: local(@ans_char,$ratio,$tmp,$summary_str);
606:
607: $student_id = uc($student_id);
608: $total_scores = 0; $total_weights = 0; # initialize the overall results
609: $set_idx = 0;
610:
611: while( ! $done ) {
612: $set_idx++; # start out as set1.db, then add one to it
613: if($set_idx <= $s_limit ) { # the limit set is inclusive
614: $filename = $classpath . "/records/set" . "$set_idx" . ".db";
615: if( -f $filename) { # file exists!
616: open(IN, "<$filename") || die "Cannot open file $filename!";
617: $line_cnt=0; $found = 0; # for each file opened, initialize $line_cnt and $found
618: while ( ($input_line = <IN>) && !$found) {
619: $line_cnt++; # add one to line count
620: if( $line_cnt == 2 ) { # second line is the weight for each problem
621: chomp(); # delete the trailing '\n' char
622: (@weights) = split(/ */,$input_line); # split the line into each individual chars
623: $valid_weights = 0;
624: for($ii=0;$ii<=$#weights;$ii++) {
625: $valid_weights += $weights[$ii]; # for now $valid_weights contains the sum
626: }
627: ## &C_ClearScreen;
628: ## print "Second line, $input_line, total weight=$valid_weights\n";
629: ## printf "Press RETURN to continue"; $tmp = <>;
630: }
631: if( $line_cnt > 3) { # start from line 4 is the student data
632: chomp($input_line); # delete the trailing '\n' char
633: ($prefix,$rest) = split(/,/,$input_line,2); # split the whole line into two parts
634: ($s_num,$ans_str) = split(/ /,$prefix,2); # split into two parts
635: $s_num = uc($s_num);
636: if( $student_id eq $s_num ) { # found the student we want
637: ## &C_ClearScreen;
638: ## print "FOUND [$input_line] $s_num == $student_id: weight= $valid_weights,ANS=$ans_str\n";
639: ## printf "Press RETURN to continue"; $tmp = <>;
640: $found = 1; # so we can exit the search through while loop
641: (@ans_char) = split(/ */,$ans_str); # split the answer string into individual ans chars
642: for($valid = 'N', $ii=0;$ii<=$#ans_char;$ii++) { # from question 0, 1, to last question -1
643: $valid = 'Y' if $ans_char[$ii] ne '-'; # if ans char is different from '-', then
644: }
645: if( $valid eq 'Y' ) { # don't bother with the record full of '-'s
646: for($score=0,$ii=0;$ii<=$#ans_char;$ii++) { # initialize $score and index $ii
647:
648: if($ans_char[$ii] eq 'Y') {
649: $score += $weights[$ii];
650: }
651: if($ans_char[$ii] eq 'y') {
652: $score += $weights[$ii];
653: }
654: if( $ans_char[$ii] ge '0' && $ans_char[$ii] le '9') {
655: $score += $ans_char[$ii];
656: }
657: if($ans_char[$ii] eq 'E') { # subtract the weight from execused problem
658: $valid_weights -= $weights[$ii];
659: }
660: }
661: $total_scores += $score; # add the calculated score to the overall sum
662: } else { # end of a valid line
663: $score = '-';
664: }
665: }
666: } # end $line_cnt > 3
667: } # end while <IN>
668: close(IN) || die "Cannot close file $filename!";
669: $total_weights += $valid_weights; # add the valid weights for a set to the overall sum
670: $set_weights[$set_idx-1] = $valid_weights;
671:
672: if( $found ) {
673: ## push(@set_scores, $score); # push set score into array
674: ## push(@set_weights, $valid_weights); # push valid weight for a set into the weight array
675: $set_scores[$set_idx-1] = $score;
676: } else { # student not found in the setX.db file
677: $set_scores[$set_idx-1] = '-';
678: }
679: } else { # $set_idx > $s_limit
680: $done = 1; # exit the $done while loop
681: }
682: } else {
683: $done = 1; # exit the $done while loop
684: }
685: } # end while ! $done
686: # print out the report
687: # &C_ClearScreen;
688: $abscent_cnt=0;
689: $present_cnt=0;
690: $summary_str = "";
691: print " " x 10 if $on_screen;
692: for($ii=0;$ii<=$#set_scores;$ii++) {
693: if( $set_scores[$ii] eq '-' || $set_scores[$ii] eq "" ) {
694: print " - " if $on_screen;
695: $summary_str = "$summary_str" . "x/$set_weights[$ii] ";
696: $abscent_cnt++;
697: } else {
698: printf " %3d", $set_scores[$ii] if $on_screen;
699: $summary_str = "$summary_str" . "$set_scores[$ii]/$set_weights[$ii] ";
700: $present_cnt++;
701: }
702: }
703: if( $on_screen ) {
704: $classname = substr($classpath,-8,8);
705: print "\n $classname:";
706: for($ii=0;$ii<=$#set_scores;$ii++) {
707: print " ---";
708: }
709: print "\n ";
710: for($ii=0;$ii<=$#set_weights;$ii++) {
711: printf " %3d", $set_weights[$ii];
712: }
713: print "\n";
714: if($total_weights != 0 ) {
715: $ratio = 100.0 * ($total_scores / $total_weights);
716: } else {
717: $ratio = '-';
718: }
719: printf " %5d\n", $total_scores if $on_screen;
720: printf " ------- = %3.2f%%, scores abscent in %d/%d\n", $ratio, $abscent_cnt, $#set_scores+1;
721: printf " %5d\n", $total_weights;
722: ## print "Press RETURN to continue"; $tmp = <>;
723: }
724: return ($total_scores,$total_weights,$abscent_cnt,$#set_scores+1,$summary_str);
725: }
726:
727: #
728: # similar to S_CollectSetScores
729: #
730: sub S_CollectExamScores {
731: local($classpath,$student_id)=@_;
732: local($filename,$found,$classname);
733: local($done)=0;
734: local($line_cnt,$input_line);
735: local(@weights); # the wights array for individual set
736: local($valid_weights); # the valid weights for a set
737: local($total_weights); # the overall valid weights for all sets
738: local(@set_weights); # the array storing all set valid weights
739: local($score); # the valid score for a set
740: local($total_scores); # the overall valid scores for all sets
741: local(@set_scores); # the array storing all set scores
742: local($set_idx);
743: local($ii,$var_name);
744: local($s_num,$ans_str,$prefix,$rest);
745: local($midterm1,$midterm2,$midterm3,$f_score);
746: local($m_max1,$m_max2,$m_max3,$f_max);
747: local(@ans_char,$ratio,$tmp);
748:
749: $student_id = uc($student_id);
750: $total_scores = 0; $total_weights = 0; # initialize the overall results
751: $set_idx = 0;
752:
753: while( ! $done ) {
754: $set_idx++; # start out as set1.db, then add one to it
755: if( $set_idx <= $exam_scores_limit_set ) { # $exam_scores_limit_set comes from capa.config
756: $filename = $classpath . "/records/set" . "$set_idx" . ".db";
757: if( -f $filename) { # file exists!
758: open(IN, "<$filename") || die "Cannot open file $filename!";
759: $line_cnt=0; $found = 0; # for each file opened, initialize $line_cnt and $found
760: while ( ($input_line = <IN>) && !$found) {
761: $line_cnt++; # add one to line count
762: if( $line_cnt == 2 ) { # second line is the weight for each problem
763: chomp(); # delete the trailing '\n' char
764: (@weights) = split(/ */,$input_line); # split the line into each individual chars
765: $valid_weights = 0;
766: for($ii=0;$ii<=$#weights;$ii++) {
767: $valid_weights += $weights[$ii]; # for now $valid_weights contains the sum
768: }
769: }
770: if( $line_cnt > 3) { # start from line 4 is the student data
771: chomp($input_line); # delete the trailing '\n' char
772: ($prefix,$rest) = split(/,/,$input_line,2); # split the whole line into two parts
773: ($s_num,$ans_str) = split(/ /,$prefix,2); # split into two parts
774: $s_num = uc($s_num);
775: if( $student_id eq $s_num ) { # found the student we want
776: $found = 1; # so we can exit the search through while loop
777: (@ans_char) = split(/ */,$ans_str); # split the answer string into individual ans chars
778: for($valid = 'N', $ii=0;$ii<=$#ans_char;$ii++) { # from question 0, 1, to last question -1
779: $valid = 'Y' if $ans_char[$ii] ne '-'; # if ans char is different from '-', then
780: }
781: if( $valid eq 'Y' ) { # don't bother with the record full of '-'s
782: for($score=0,$ii=0;$ii<=$#ans_char;$ii++) { # initialize $score and index $ii
783:
784: if($ans_char[$ii] eq 'Y') {
785: $score += $weights[$ii];
786: }
787: if($ans_char[$ii] eq 'y') {
788: $score += $weights[$ii];
789: }
790: if( $ans_char[$ii] ge '0' && $ans_char[$ii] le '9') {
791: $score += $ans_char[$ii];
792: }
793: if($ans_char[$ii] eq 'E') { # subtract the weight from execused problem
794: $valid_weights -= $weights[$ii];
795: }
796: }
797: $total_scores += $score; # add the calculated score to the overall sum
798: } else { # end of a valid line
799: $score = '-';
800: }
801: } # end student number comparison
802: } # end $line_cnt > 3
803: } # end while <IN>
804: close(IN) || die "Cannot close file $filename!";
805: $total_weights += $valid_weights; # add the valid weights for a set to the overall sum
806: $set_weights[$set_idx-1] = $valid_weights;
807: # push(@set_scores, $score); # push set score into array
808: # push(@set_weights, $valid_weights); # push valid weight for a set into the weight array
809: if( $found ) {
810: $set_scores[$set_idx-1] = $score;
811: } else { # could not locate the student in the setX.db file
812: $set_scores[$set_idx-1] = '-';
813: }
814: } else { # $set_idx > $exam_scores_limit_set
815: $done = 1;
816: }
817: } else {
818: $done = 1; # exit the $done while loop
819: }
820: } # end while ! $done
821:
822: # put scores in the global variables: exam_raw1, exam_raw2 ...
823: # and maximum weights in variables: exam_raw_max1, exam_raw_max2,..
824: # prefix is stored in :
825: # $Prefix_name{"Exam_raw_scores"}
826: # $Prefix_name{"Exam_raw_max"}
827: #
828: $Prefix_name{'Exam_raw_scores'} = "exam_raw" if ! defined $Prefix_name{'Exam_raw_scores'};
829: $Prefix_name{'Exam_raw_max'} = "exam_raw_max" if ! defined $Prefix_name{'Exam_raw_max'};
830: for($ii=0;$ii<=$#set_scores;$ii++) {
831: $set_idx = $ii+1;
832: $var_name = "$Prefix_name{'Exam_raw_scores'}" . "$set_idx";
833: ${$var_name} = $set_scores[$ii];
834: $var_name = "$Prefix_name{'Exam_raw_max'}" . "$set_idx";
835: ${$var_name} = $set_weights[$ii];
836: }
837: #
838: # initialize these local variables
839: #
840: $midterm1 = '-'; $m_max1 = '-';
841: $midterm2 = '-'; $m_max2 = '-';
842: $midterm3 = '-'; $m_max3 = '-';
843: $f_score = '-'; $f_max = '-';
844: # After we placed raw scores into the global variables exam_raw1, exam_raw2 ...
845: # we can then, evaluate the definitions of midterm1, midterm2 and midterm3 from capa.config
846: if($#set_scores >= 1) { # at least 2 sets
847: $midterm1 = eval $P_code{'midterm1'};
848: $var_name = "$Prefix_name{'Exam_raw_max'}" . "1"; # for max possible scores, just pick a set
849: $m_max1 = ${$var_name};
850: if($#set_scores >= 3) { # at least 4 sets
851: $midterm2 = eval $P_code{'midterm2'};
852: $var_name = "$Prefix_name{'Exam_raw_max'}" . "3"; # for max possible scores, just pick a set
853: $m_max2 = ${$var_name};
854: if($#set_scores >= 5) { # at least 6 sets
855: $midterm3 = eval $P_code{'midterm3'};
856: $var_name = "$Prefix_name{'Exam_raw_max'}" . "5"; # for max possible scores, just pick a set
857: $m_max3 = ${$var_name};
858: if($#set_scores == 6 ) { # the 7th set
859: # in capa.config a variable $final_exam is defined as
860: # the same with $exam_raw7
861: ## $var_name = "$Prefix_name{'Exam_raw_scores'}" . "7";
862: ## $f_score = ${$var_name};
863: $f_score = eval $P_code{'final_exam'};
864: $var_name = "$Prefix_name{'Exam_raw_max'}" . "7";
865: $f_max = ${$var_name};
866: } else { # only 6 sets
867:
868: }
869: } else { # 4 or 5 sets
870:
871: }
872: } else { # 2 or 3 sets
873:
874: }
875: } else { # 0 or 1 sets
876:
877: }
878: return ($midterm1,$m_max1,$midterm2,$m_max2,$midterm3,$m_max3,$f_score,$f_max,$#set_scores+1);
879:
880: }
881:
882: #
883: # Menu item: capastat
884: # ($Q_cnt,$L_cnt) = &S_ScanSetDB($Sfullpath);
885: # Percentage_Scores($Set);
886: # S_Average($Q_cnt,$L_cnt);
887: #
888: # INPUT: the setX.db file name with full path
889: #
890: sub S_ScanSetDB {
891: local($filename)=@_;
892: local($line_cnt)=0;
893: local($valid_cnt)=0;
894: local($valid);
895: local($ii);
896: local($s_num,$ans_str,$prefix,$rest);
897: local(@ans_char,@tries);
898: local($score);
899:
900: for($ii=0;$ii<=99;$ii++) {
901: $Total_try[$ii]=0;
902: $Yes_cnt[$ii]=0;
903: $yes_cnt[$ii]=0;
904: for($jj=0;$jj<=99;$jj++) {
905: $Student_cnt[$ii][$jj]=0;
906: $Student_try[$ii][$jj]=0;
907: }
908: }
909: $Total_weight=0;
910: $Total_scores=0;
911:
912: open(IN, "<$filename") || die "Cannot open file $filename!";
913: while (<IN>) {
914: $line_cnt++;
915: if( $line_cnt == 2 ) {
916: chomp();
917: (@Weight) = split(/ */);
918: }
919: if( $line_cnt > 3) {
920: chomp();
921: ($prefix,$rest) = split(/,/,$_,2);
922: ($s_num,$ans_str) = split(/ /,$prefix,2);
923: (@ans_char) = split(/ */,$ans_str);
924: (@tries) = split(/,/,$rest);
925: for($valid = 'N', $ii=0;$ii<=$#ans_char;$ii++) {
926: $valid = 'Y' if $ans_char[$ii] ne '-';
927: }
928: if( $valid eq 'Y' ) {
929: for($score=0,$ii=0;$ii<=$#tries;$ii++) {
930: $Student_cnt[$ii][$tries[$ii]]++;
931: $Student_try[$valid_cnt][$ii] = $tries[$ii];
932: $Total_try[$ii] += $tries[$ii];
933: $Total_weight += $Weight[$ii];
934: if($ans_char[$ii] eq 'Y') {
935: $Yes_cnt[$ii]++;
936: $score += $Weight[$ii];
937: }
938: if($ans_char[$ii] eq 'y') {
939: $yes_cnt[$ii]++;
940: $score += $Weight[$ii];
941: }
942: if( $ans_char[$ii] ge '0' && $ans_char[$ii] le '9') {
943: $score += $ans_char[$ii];
944: }
945: }
946: $Total_scores += $score;
947: $Entry{"$valid_cnt"} = "$s_num\n" . "$ans_str," . " $rest\n";
948: $Score{"$valid_cnt"} = $score;
949: $valid_cnt++;
950: }
951: }
952: }
953: close(IN) || die "Cannot close $filename file!";
954: return ($#tries+1,$valid_cnt);
955: }
956:
957:
958: $MAX_TRIES = 99;
959:
960: sub S_Average {
961: local($q_cnt,$l_cnt)=@_;
962: local($ii,$jj);
963: local(@s_cnt,@avg);
964: local(@sd, $sum);
965: local($sq);
966: local(@sd3,$tmp1,$tmp2,$done);
967:
968: for($ii=0;$ii<$q_cnt;$ii++) {
969: $s_cnt[$ii] = 0;
970: $avg[$ii] = 0.0;
971: $Max_try[$ii] = 0;
972: for($jj=1;$jj<$MAX_TRIES;$jj++) { # ignore the 0 try entry
973: if( $Student_cnt[$ii][$jj] > 0 ) {
974: $avg[$ii] += $jj*$Student_cnt[$ii][$jj];
975: $s_cnt[$ii] += $Student_cnt[$ii][$jj];
976: }
977: }
978: if( $s_cnt[$ii] > 0 ) { # avoid division by zero
979: $avg[$ii] = $avg[$ii] / $s_cnt[$ii];
980: }
981: }
982:
983: for($ii=0;$ii<$q_cnt;$ii++) {
984: $sd[$ii] = 0.0;
985: $sum = 0.0;
986: for($jj=0;$jj<$l_cnt;$jj++) {
987: $Max_try[$ii] = ($Student_try[$jj][$ii] > $Max_try[$ii]? $Student_try[$jj][$ii] : $Max_try[$ii]);
988: if( $Student_try[$jj][$ii] > 0 ) {
989: $sq = ($Student_try[$jj][$ii] - $avg[$ii])*($Student_try[$jj][$ii] - $avg[$ii]);
990: $sum += $sq;
991: }
992: if( $s_cnt[$ii] > 1 ) {
993: $sd[$ii] = $sum / ($s_cnt[$ii] - 1.0 );
994: }
995: if( $sd[$ii] > 0 ) {
996: $sd[$ii] = sqrt( $sd[$ii] );
997: }
998: }
999: }
1000:
1001: for($ii=0;$ii<$q_cnt;$ii++) {
1002: $sd3[$ii] = 0.0;
1003: $sum = 0.0;
1004: for($jj=0;$jj<$l_cnt;$jj++) {
1005: if( $Student_try[$jj][$ii] > 0 ) {
1006: $tmp1 = $Student_try[$jj][$ii] - $avg[$ii];
1007: $tmp2 = $tmp1*$tmp1*$tmp1;
1008: $sum = $sum + $tmp2;
1009: }
1010: if( $s_cnt[$ii] > 0 && $sd[$ii] != 0.0 ) {
1011: $sd3[$ii] = $sum/$s_cnt[$ii] ;
1012: $sd3[$ii] = $sd3[$ii] / ($sd[$ii]*$sd[$ii]*$sd[$ii]);
1013: }
1014: }
1015: }
1016:
1017: print "This is the statistics for each problem:\n";
1018: print "Prob\# MxTries avg. s.d. s.k. \#Stdnts ";
1019: print " \#Yes \#yes Tries DoDiff\n";
1020: for($ii=0;$ii<$q_cnt;$ii++) {
1021: if( $Total_try[$ii] > 0 ) {
1022: ## $dod = 1-($Yes_cnt[$ii] + $yes_cnt[$ii]) / $Total_try[$ii];
1023: $dod = $Total_try[$ii]/(0.1 + $Yes_cnt[$ii] + $yes_cnt[$ii]);
1024: }
1025: printf "P %2d:",$ii+1;
1026: printf "%7d %8.2f %7.2f %6.2f %5d %5d %5d %5d %5.1f\n",
1027: $Max_try[$ii],$avg[$ii],$sd[$ii],$sd3[$ii],$s_cnt[$ii],$Yes_cnt[$ii],$yes_cnt[$ii],
1028: $Total_try[$ii],$dod;
1029:
1030: }
1031: printf "Press RETURN to continue"; $done = <>;
1032: }
1033:
1034: sub Percentage_Scores {
1035: local($set,$valid_cnt)=@_;
1036: local($ratio);
1037: local($done);
1038:
1039: if($Total_weight > 0 ) {
1040: $ratio = $Total_scores / $Total_weight;
1041: $ratio = $ratio * 100.0;
1042: }
1043:
1044: printf "\nThe percentage score (total scores / total valid weights) for set%d.db is:\n %7.2f%%\n",$set,$ratio;
1045: printf "The number of valid records for set%d.db is: %d\n", $set, $valid_cnt;
1046: printf "Press RETURN to continue"; $done=<>;
1047: }
1048:
1049:
1050: sub Large_Tries {
1051: local($t,$n,$q_cnt,$l_cnt)=@_;
1052: local($ii);
1053:
1054: print "\nHere is a list of students who attempts $t tries more than $n times: \n\n";
1055:
1056: for ($i=0;$i<$l_cnt;$i++){
1057: $count=0;
1058: $credit=0;
1059: for ($j=0;$j<$q_cnt;$j++){
1060: if ($Student_try[$i][$j]>= $t){
1061: $count++;
1062: }
1063: }
1064: if ($count >= $n){
1065: print "($Score{$i}) $Entry{$i} \n";
1066: }
1067: }
1068:
1069: }
1070:
1071:
1072: sub S_ScanLogDB {
1073: local($filename)=@_;
1074: local($line_cnt)=0;
1075: local($s_num,$dow,$mon,$sp,$day,$time,$yr,$ans_str);
1076: local(@ans_char);
1077: local($ii,$first,$done);
1078: local($Yes_cnt[99],$No_cnt[99],$U_cnt[99],$S_cnt[99],$u_cnt[99]);
1079: local($Y_total,$N_total,$U_total,$u_total,$S_total);
1080:
1081: $Y_total=0; $N_total=0; $U_total=0; $u_total=0; $S_total=0;
1082: open(IN, "<$filename") || die "Cannot open file $filename!";
1083: for($ii=0;$ii<=99;$ii++) {
1084: $Yes_cnt[$ii] = 0; $No_cnt[$ii] = 0;
1085: $U_cnt[$ii]=0; $u_cnt[$ii]=0; $S_cnt[$ii]=0;
1086: }
1087: while (<IN>) {
1088: $line_cnt++;
1089: chomp();
1090: $ans_str = substr($_,35);
1091: ## ($first,$ans_str) = split(/1996 /); # depends on this special pattern
1092: # print "$ans_str\n";
1093: (@ans_char) = split(/ */,$ans_str);
1094:
1095: for($ii=0;$ii<=$#ans_char;$ii++) {
1096:
1097: if($ans_char[$ii] eq 'Y') {
1098: $Yes_cnt[$ii]++;
1099: $Y_total++;
1100: }
1101: if($ans_char[$ii] eq 'N') {
1102: $No_cnt[$ii]++;
1103: $N_total++;
1104: }
1105: if($ans_char[$ii] eq 'U') {
1106: $U_cnt[$ii]++;
1107: $U_total++;
1108: }
1109: if($ans_char[$ii] eq 'u') {
1110: $u_cnt[$ii]++;
1111: $u_total++;
1112: }
1113: if($ans_char[$ii] eq 'S') {
1114: $S_cnt[$ii]++;
1115: $S_total++;
1116: }
1117: }
1118: }
1119: close(IN) || die "Cannot close file $filename!";
1120: print "Prob #: #Y #N #S #U #u\n";
1121: for($ii=0;$ii<=$#ans_char;$ii++) {
1122: printf " %2d: %6d %6d %6d %6d %6d\n",
1123: $ii+1, $Yes_cnt[$ii], $No_cnt[$ii], $S_cnt[$ii], $U_cnt[$ii], $u_cnt[$ii];
1124: }
1125: print "=" x 45 . "\n";
1126: printf " Total: %6d %6d %6d %6d %6d\n", $Y_total, $N_total, $S_total, $U_total, $u_total;
1127: printf "Press RETURN to continue"; $done = <>;
1128:
1129: return ($Y_total,$N_total,$S_total,$U_total,$u_total);
1130: }
1131:
1132: sub S_StudentLoginData {
1133: local($filename,$student_id)=@_;
1134: local($Y_total,$N_total,$S_total,$U_total,$u_total);
1135: local($ans_str,@ans_char);
1136: local($ii,$s_id);
1137:
1138: $Y_total=0; $N_total=0; $U_total=0; $u_total=0; $S_total=0;
1139: open(IN, "<$filename") || die "Cannot open file $filename!";
1140: while (<IN>) {
1141: chomp();
1142: $s_id = substr($_,0,9); # student number begins at column 0 and has 9 chars
1143: $s_id = uc($s_id);
1144: $student_id = uc($student_id);
1145: if( $student_id eq $s_id) {
1146: $ans_str = substr($_,35); # the answer string begins at column 35 (count from 0)
1147: (@ans_char) = split(/ */,$ans_str);
1148: for($ii=0;$ii<=$#ans_char;$ii++) {
1149: if($ans_char[$ii] eq 'Y') {
1150: $Y_total++;
1151: }
1152: if($ans_char[$ii] eq 'N') {
1153: $N_total++;
1154: }
1155: if($ans_char[$ii] eq 'U') {
1156: $U_total++;
1157: }
1158: if($ans_char[$ii] eq 'u') {
1159: $u_total++;
1160: }
1161: if($ans_char[$ii] eq 'S') {
1162: $S_total++;
1163: }
1164: } # end for each problem
1165: } # end student number matches
1166: } # end while
1167: close(IN) || die "Cannot close file $filename!";
1168: return ($Y_total,$N_total,$S_total,$U_total,$u_total);
1169: }
1170:
1171: #
1172: sub S_LoginAnalysis {
1173: local($classpath,$student_id,$s_limit)=@_;
1174: local($Y_set,$N_set,$S_set,$U_set,$u_set);
1175: local($set_idx,$no_log,$no_weblog,$done,$tmp);
1176:
1177: print "Login analysis: telnet session web session\n\n";
1178: print " set #: #Y #N #S #U #u #Y #N #S #U #u\n";
1179: $set_idx=0; $done=0;
1180: while (! $done ) {
1181: $set_idx++;
1182: if( $set_idx <= $s_limit) {
1183: printf " %2d: ", $set_idx;
1184: $filename= $classpath . "/records/log" . "$set_idx" . ".db";
1185: if(-f $filename) {
1186: ($Y_set,$N_set,$S_set,$U_set,$u_set)=S_StudentLoginData($filename,$student_id);
1187: printf "%4d %4d %4d %4d %4d", $Y_set,$N_set,$S_set,$U_set,$u_set;
1188: $no_log = 0;
1189: } else {
1190: print "=" x 24;
1191: $no_log = 1;
1192: }
1193: print " " x 4;
1194: $filename= $classpath . "/records/weblog" . "$set_idx" . ".db";
1195: if(-f $filename) {
1196: ($Y_set,$N_set,$S_set,$U_set,$u_set)= S_StudentLoginData($filename,$student_id);
1197: printf "%4d %4d %4d %4d %4d", $Y_set,$N_set,$S_set,$U_set,$u_set;
1198: $no_weblog = 0;
1199: } else {
1200: print "=" x 24;
1201: $no_weblog = 1;
1202: }
1203: print "\n";
1204: if( $no_log && $no_weblog ) { $done = 1; };
1205: } else { # $set_idx > $s_limit
1206: $done = 1;
1207: }
1208: }
1209:
1210: printf "Press RETURN to continue"; $tmp = <>;
1211: }
1212:
1213: # It pulls out the data base entry from setX.db files
1214: sub S_StudentSetAnalysis {
1215: local($classpath,$student_id,$s_limit)=@_;
1216: local($filename);
1217: local($set_idx,$done);
1218: local($line_cnt,$found,$input_line);
1219: local($s_num,$data,$ans_str,$try_str,$tmp);
1220:
1221: $set_idx=0; $student_id = uc($student_id);
1222: print " set #:\n";
1223: while(! $done) {
1224: $set_idx++;
1225: if( $set_idx <= $s_limit) {
1226: $filename= $classpath . "/records/set" . "$set_idx" . ".db";
1227: if(-f $filename) {
1228: printf " %2d: ", $set_idx;
1229: open(IN, "<$filename") || die "Cannot open file $filename!";
1230: $line_cnt=0; $found = 0; # for each file opened, initialize $line_cnt and $found
1231: while ( ($input_line = <IN>) && !$found) {
1232: $line_cnt++; # add one to line count
1233: if( $line_cnt > 3) { # start from line 4 is the student data
1234: chomp($input_line); # delete the trailing '\n' char
1235: $s_num = substr($input_line,0,9);
1236: $s_num = uc($s_num);
1237: if( $student_id eq $s_num ) {
1238: $found = 1;
1239: $data = substr($input_line,10);
1240: ($ans_str,$try_str) = split(/,/,$data,2);
1241: print "$ans_str\n $try_str\n";
1242: }
1243: } # $line_cnt > 3
1244: } # end while $input_line and ! $found
1245: close(IN) || die "Cannot close file $filename!";
1246: if(! $found ) { # student record entry not in the setX.db file ==> two empty lines
1247: print "\n\n";
1248: }
1249: } else { # $filename does not exist
1250: $done = 1;
1251: }
1252: } else { # $set_idx > $s_limit
1253: $done = 1;
1254: }
1255: }
1256: printf "Press RETURN to continue"; $tmp = <>;
1257: }
1258:
1259: #
1260: # INPUTS: class name with full path, set number
1261: #
1262: sub S_ItemAnalysis {
1263: local($classpath,$set)=@_;
1264: local($filename,$found,$classname);
1265: local($done)=0;
1266: local($line_cnt,$input_line);
1267: local($valid,$valid_cnt);
1268: local(@weights); # the wights array for individual set
1269: local($valid_weights); # the valid weights for a set
1270: local($total_weights); # the overall valid weights for all sets
1271: local(@set_weights); # the array storing all set valid weights
1272: local($score); # the valid score for a set
1273: local($total_scores); # the overall valid scores for all sets
1274: local(@set_scores); # the array storing all set scores
1275: local($diff,$disc);
1276: local($ii,$upper_percent,$lower_percent);
1277: local($s_num,$ans_str,$prefix,$rest);
1278: local(@ans_char,$ratio,$tmp);
1279: local($Y_cnt[100],$N_cnt[100]);
1280: local($Ycnt_upper[100],$Ycnt_lower[100],$tmp_total);
1281: local($Y_total,$N_total);
1282: local($upperpart_cnt,$lowerpart_limit);
1283: local(%s_db);
1284:
1285: $total_scores = 0; $total_weights = 0; # initialize the overall results
1286: $upper_percent = 0.0; $lower_percent = 0.0;
1287:
1288: for($ii=0;$ii<100;$ii++) {
1289: $Y_cnt[$ii] = 0; $N_cnt[$ii] = 0; $Ycnt_upper[$ii] = 0.0; $Ycnt_lower[$ii] = 0.0;
1290: }
1291: $filename = $classpath . "/records/set" . "$set" . ".db";
1292: if( -f $filename) { # file exists!
1293: open(IN, "<$filename") || die "Cannot open file $filename!";
1294: $valid_cnt = 0; # initialize $valid_cnt
1295: $line_cnt=0; # initialize $line_cnt
1296: while (<IN>) {
1297: $line_cnt++; # add one to line count
1298: if( $line_cnt == 2 ) { # second line is the weight for each problem
1299: chomp(); # delete the trailing '\n' char
1300: (@weights) = split(/ */); # split the line into each individual chars
1301: $valid_weights = 0;
1302: for($ii=0;$ii<=$#weights;$ii++) {
1303: $valid_weights += $weights[$ii]; # for now $valid_weights contains the sum
1304: }
1305: }
1306: if( $line_cnt > 3) { # start from line 4 is the student data
1307: chomp(); # delete the trailing '\n' char
1308: ($prefix,$rest) = split(/,/,$_,2); # split the whole line into two parts
1309: ($s_num,$ans_str) = split(/ /,$prefix,2); # split into two parts
1310: $s_num = uc($s_num);
1311:
1312: ### print "$ans_str\n";
1313: (@ans_char) = split(/ */,$ans_str); # split the answer string into in dividual ans chars
1314: for($valid = 'N', $ii=0;$ii<=$#ans_char;$ii++) { # from question 0, 1 , to last question -1
1315: $valid = 'Y' if $ans_char[$ii] ne '-'; # if ans char is different from '-', then
1316: }
1317: if( $valid eq 'Y' ) { # don't bother with the record full of '-'s
1318: $valid_cnt++;
1319: for($score=0,$ii=0;$ii<=$#ans_char;$ii++) { # initialize $score and index $ii
1320:
1321: if($ans_char[$ii] eq 'Y' || $ans_char[$ii] eq 'y') {
1322: $score += $weights[$ii];
1323: $Y_cnt[$ii]++;
1324: $Y_total++;
1325: }
1326: if( $ans_char[$ii] eq 'N' || $ans_char[$ii] eq 'n' ||
1327: $ans_char[$ii] eq '0' ) {
1328: $N_cnt[$ii]++;
1329: $N_total++;
1330: }
1331: if( $ans_char[$ii] gt '0' && $ans_char[$ii] le '9') {
1332: $score += $ans_char[$ii];
1333: if( $ans_char[$ii] eq $weights[$ii] ) {
1334: $Y_cnt[$ii]++;
1335: $Y_total++;
1336: } else {
1337: $N_cnt[$ii]++;
1338: $N_total++;
1339: }
1340: }
1341: if($ans_char[$ii] eq 'E') { # subtract the weight from execused problem
1342: $valid_weights -= $weights[$ii];
1343: }
1344: } # end of score calculation
1345:
1346: $sort_key = sprintf "%05d%s", $score,$s_num;
1347: $s_db{$sort_key} = "$ans_str";
1348:
1349: }
1350: } # end $line_cnt > 3
1351: } # end while <IN>
1352: close(IN) || die "Cannot close file $filename!";
1353:
1354: for($ii=0;$ii<100;$ii++) {
1355: ## $Y_cnt[$ii]=0; $N_cnt[$ii]=0;
1356: $Ycnt_upper[$ii] = 0; $Ycnt_lower[$ii] = 0;
1357: }
1358: $upperpart_cnt = int(0.27 * $valid_cnt); # upper 27 percent
1359: $lowerpart_limit = ($valid_cnt - $upperpart_cnt); # beyond 73 percent
1360: ### open(DBUG, ">/tmp/f.DBUG") || die "Cannot open /tmp/f.DBUG file!";
1361: $line_cnt=0;
1362: foreach $sort_key (reverse sort keys %s_db) {
1363: $line_cnt++;
1364: ### print DBUG "$sort_key\[$s_db{$sort_key}\]";
1365:
1366: $ans_str = "$s_db{$sort_key}";
1367: (@ans_char) = split(/ */,$ans_str);
1368: for($ii=0;$ii<=$#ans_char;$ii++) {
1369: if( ($ans_char[$ii] eq 'Y') || ($ans_char[$ii] eq 'y') ||
1370: ($ans_char[$ii] eq $weights[$ii] ) ) { ## only if they got a full credit that
1371: ## we count it as 'Y'
1372:
1373: if($line_cnt <= $upperpart_cnt) {
1374: $Ycnt_upper[$ii]++;
1375: } elsif ( $line_cnt > $lowerpart_limit ) {
1376: $Ycnt_lower[$ii]++;
1377: }
1378: }
1379: ### print DBUG " $Ycnt_upper[$ii]/$Ycnt_lower[$ii] ";
1380: } # end for $ii
1381: ### print DBUG "\n";
1382: } #end foreach
1383: ### close(DBUG);
1384: print " There are $valid_cnt entries in file $filename\n";
1385: printf " The upper 27%% has %d records, the lower 27%% has %d records\n", $upperpart_cnt, $valid_cnt-$lowerpart_limit;
1386: print " question \# DoDiff. Disc. Factor (%upper - %lower) [#records,#records]\n";
1387:
1388: for($ii=0;$ii<=$#ans_char;$ii++) {
1389: $tmp_total = $N_cnt[$ii] + $Y_cnt[$ii];
1390: if( $tmp_total > 0 ) {
1391: $diff = 100.0*($N_cnt[$ii] / ($N_cnt[$ii] + $Y_cnt[$ii]));
1392: } else {
1393: $diff = '-';
1394: }
1395: $upper_percent = 100.0 * ($Ycnt_upper[$ii] /$upperpart_cnt);
1396: $lower_percent = 100.0 * ($Ycnt_lower[$ii] /$upperpart_cnt);
1397: $disc = $upper_percent - $lower_percent;
1398: printf " %2d: ", $ii+1;
1399: printf "%6.1f %5.1f (% 5.1f - % 5.1f) [%4d,%4d]\n",
1400: $diff, $disc,$upper_percent,$lower_percent,$Ycnt_upper[$ii],$Ycnt_lower[$ii];
1401: }
1402: printf "Press RETURN to continue"; $tmp = <>;
1403: } else { # file does not exist!
1404: print "FILE: $filename does not exist!\n";
1405: printf "Press RETURN to continue"; $tmp = <>;
1406: }
1407: }
1408:
1409: #
1410: # INPUTS: class name with full path, set number
1411: #
1412: sub S_SetCorrelation {
1413: local($classpath,$set)=@_;
1414: local($filename);
1415: local($line_cnt);
1416: local($data,$ans_str,@ans_char,$try_str);
1417: local($ii,$jj,$question_cnt);
1418: local($index_key,@weights);
1419: local($first_char,$second_char);
1420: local(%corr,%valid_cnt,$ratio,$tmp,$tmp_len,$ratio_str);
1421:
1422: $filename= $classpath . "/records/set" . "$set" . ".db";
1423:
1424: if(-f $filename) {
1425: open(IN, "<$filename") || die "Cannot open file $filename!";
1426: $line_cnt=0;
1427: while(<IN>) {
1428: $line_cnt++;
1429: if( $line_cnt == 2 ) { # second line is the weight for each problem
1430: chomp(); # delete the trailing '\n' char
1431: (@weights) = split(/ */); # split the line into each individual chars
1432: }
1433: if( $line_cnt > 3) {
1434: chomp();
1435: $data = substr($_,10); # skip over student number
1436: ($ans_str,$try_str) = split(/,/,$data,2);
1437: (@ans_char) = split(/ */,$ans_str);
1438: $question_cnt = $#ans_char;
1439: for($ii=0;$ii<$#ans_char;$ii++) {
1440: for($jj=$ii+1;$jj<=$#ans_char;$jj++) {
1441: $index_key = "$ii" . "$jj";
1442: if( $ans_char[$ii] eq '-' || $ans_char[$ii] eq 'E' ) {
1443: # do nothing
1444: } else {
1445: if( $ans_char[$ii] gt '0' && $ans_char[$ii] le '9') {
1446: if( $ans_char[$ii] eq $weights[$ii] ) {
1447: $first_char = 'Y';
1448: } else {
1449: $first_char = 'N';
1450: }
1451: } elsif ($ans_char[$ii] eq '0') {
1452: $first_char = 'N';
1453: } elsif ($ans_char[$ii] eq 'y' || $ans_char[$ii] eq 'n') {
1454: $first_char = uc($ans_char[$ii]);
1455: } else {
1456: $first_char = $ans_char[$ii];
1457: }
1458: if( $ans_char[$jj] eq '-' || $ans_char[$jj] eq 'E' ) {
1459: # do nothing
1460: } else {
1461: if( $ans_char[$jj] gt '0' && $ans_char[$jj] le '9') {
1462: if( $ans_char[$jj] eq $weights[$jj] ) {
1463: $second_char = 'Y';
1464: } else {
1465: $second_char = 'N';
1466: }
1467: } elsif ($ans_char[$jj] eq '0') {
1468: $second_char = 'N';
1469: } elsif ($ans_char[$jj] eq 'y' || $ans_char[$jj] eq 'n') {
1470: $second_char = uc($ans_char[$jj]);
1471: } else {
1472: $second_char = $ans_char[$jj];
1473: }
1474: if( $first_char eq $second_char ) {
1475: if(defined $corr{$index_key} ) {
1476: $corr{$index_key}++;
1477: } else {
1478: $corr{$index_key} = 1;
1479: }
1480: } else {
1481: if(defined $corr{$index_key} ) {
1482: $corr{$index_key}--;
1483: } else {
1484: $corr{$index_key} = -1;
1485: }
1486: }
1487: # add one count to valid_count
1488: if(defined $valid_cnt{$index_key}) {
1489: $valid_cnt{$index_key}++;
1490: } else {
1491: $valid_cnt{$index_key} = 1;
1492: }
1493: }
1494: }
1495: } # end $jj loop
1496: } # end $ii loop
1497: } # end $line_cnt > 3
1498: } # end while <IN>
1499: close(IN) || die "Cannot close file $filename!";
1500: # print out the correlation matrix
1501:
1502: print " ";
1503: for($ii=1;$ii<=$question_cnt;$ii++) {
1504: print " " x 4;
1505: printf "%2d", $ii+1;
1506: }
1507: print "\n";
1508: # --------------------------------------
1509: for($ii=0;$ii<$question_cnt;$ii++) {
1510: printf " %2d:", $ii+1;
1511: print " " x ($ii);
1512: for($jj=$ii+1;$jj<=$question_cnt;$jj++) {
1513: $index_key = "$ii" . "$jj";
1514: if( defined $corr{$index_key} ) {
1515: $ratio = $corr{$index_key} / $valid_cnt{$index_key};
1516: printf " % .2f", $ratio;
1517: } else {
1518: print " ----";
1519: }
1520: }
1521: print "\n";
1522: }
1523: printf "Press RETURN to continue"; $tmp = <>;
1524: } else { # file exists!
1525: print "FILE: $filename does not exist!\n";
1526: printf "Press RETURN to continue"; $tmp = <>;
1527: }
1528: }
1529:
1530: # INPUTS: class name with full path, set number
1531: #
1532: # r = \frac{\sum{x_i y_i} - \frac{(\sum x_i)(\sum y_i)}{n}}{\sqrt{(\sum x_i^2 - \frac{}{}}}
1533: #
1534: # corr = (sum of prod_xy - (sum_x*sum_y / n) ) / sqrt( (sum of sqr_x - (sum_x*sum_x/n))*
1535: #
1536: sub S_SetCorrelationStatistics {
1537: local($classpath,$set)=@_;
1538: local($filename);
1539: local($line_cnt);
1540: local($data,$ans_str,@ans_char,$try_str);
1541: local($ii,$jj,$question_cnt);
1542: local($index_key,@weights);
1543: local($x_data,$y_data);
1544: local(%valid_cnt,$ratio,$tmp,$tmp_len,$ratio_str);
1545: local(%prod_xy,%sum_x,%sum_y,%sum_x2,%sum_y2);
1546: local($upper_part,$lower_part);
1547:
1548: $filename= $classpath . "/records/set" . "$set" . ".db";
1549:
1550: if(-f $filename) {
1551: open(IN, "<$filename") || die "Cannot open file $filename!";
1552: $line_cnt=0;
1553: while(<IN>) {
1554: $line_cnt++;
1555: if( $line_cnt == 2 ) { # second line is the weight for each problem
1556: chomp(); # delete the trailing '\n' char
1557: (@weights) = split(/ */); # split the line into each individual chars
1558: }
1559: if( $line_cnt > 3) {
1560: chomp();
1561: $data = substr($_,10); # skip over student number
1562: ($ans_str,$try_str) = split(/,/,$data,2);
1563: (@ans_char) = split(/ */,$ans_str);
1564: $question_cnt = $#ans_char;
1565: for($ii=0;$ii<$#ans_char;$ii++) {
1566: for($jj=$ii+1;$jj<=$#ans_char;$jj++) {
1567: $index_key = "$ii" . "$jj";
1568: if( $ans_char[$ii] eq '-' || $ans_char[$ii] eq 'E' ) {
1569: # do nothing
1570: } else { ## $ans_char[$ii] is one of 0 .. 9, Y, y, N, n
1571: if( $ans_char[$jj] eq '-' || $ans_char[$jj] eq 'E' ) {
1572: # do nothing
1573: } else {
1574: if( $ans_char[$ii] eq 'Y' || $ans_char[$ii] eq 'y' ) {
1575: $x_data = $weights[$ii];
1576: } elsif ( $ans_char[$ii] eq 'N' || $ans_char[$ii] eq 'n' ) {
1577: $x_data = 0;
1578: } else { ## must be in 0 .. 9
1579: $x_data = $ans_char[$ii];
1580: }
1581: if( $ans_char[$jj] eq 'Y' || $ans_char[$jj] eq 'y' ) {
1582: $y_data = $weights[$jj];
1583: } elsif ( $ans_char[$jj] eq 'N' || $ans_char[$jj] eq 'n' ) {
1584: $y_data = 0;
1585: } else { ## must be in 0 .. 9
1586: $y_data = $ans_char[$jj];
1587: }
1588: if(defined $prod_xy{$index_key}) {
1589: if ( $ii == 3 && $jj == 7 ) {
1590: printf "%f %f %f\n",$x_data,$y_data,$prod_xy{$index_key}
1591: }
1592: $prod_xy{$index_key} += ($x_data * $y_data);
1593: } else {
1594: if ( $ii == 3 && $jj == 7 ) {
1595: printf "%f %f %f\n",$x_data,$y_data,0.0
1596: }
1597: $prod_xy{$index_key} = 0.0;
1598: }
1599: if(defined $sum_x{$index_key} ) {
1600: $sum_x{$index_key} += $x_data;
1601: } else {
1602: $sum_x{$index_key} = 0;
1603: }
1604: if(defined $sum_y{$index_key}) {
1605: $sum_y{$index_key} += $y_data;
1606: } else {
1607: $sum_y{$index_key} = 0;
1608: }
1609: if(defined $sum_x2{$index_key} ) {
1610: $sum_x2{$index_key} += ($x_data * $x_data);
1611: } else {
1612: $sum_x2{$index_key} = 0;
1613: }
1614: if(defined $sum_y2{$index_key} ) {
1615: $sum_y2{$index_key} += ($y_data * $y_data);
1616: } else {
1617: $sum_y2{$index_key} = 0;
1618: }
1619: # add one count to valid_count
1620: if(defined $valid_cnt{$index_key}) {
1621: $valid_cnt{$index_key}++;
1622: } else {
1623: $valid_cnt{$index_key} = 1;
1624: }
1625: }
1626: }
1627: } # end $jj loop
1628: } # end $ii loop
1629: } # end $line_cnt > 3
1630: } # end while <IN>
1631: close(IN) || die "Cannot close file $filename!";
1632: # print out the correlation matrix
1633:
1634: print " ";
1635: for($ii=1;$ii<=$question_cnt;$ii++) {
1636: print " " x 4;
1637: printf "%2d", $ii+1;
1638: }
1639: print "\n";
1640: # --------------------------------------
1641: for($ii=0;$ii<$question_cnt;$ii++) {
1642: printf " %2d:", $ii+1;
1643: print " " x ($ii);
1644: for($jj=$ii+1;$jj<=$question_cnt;$jj++) {
1645: $index_key = "$ii" . "$jj";
1646: if( defined $valid_cnt{$index_key}) { ## there are at least one valid data
1647: $upper_part = $prod_xy{$index_key} - ( ($sum_x{$index_key} * $sum_y{$index_key}) / $valid_cnt{$index_key} );
1648: $lower_part = $sum_x2{$index_key} - ($sum_x{$index_key} * $sum_x{$index_key} / $valid_cnt{$index_key} );
1649: $lower_part = $lower_part * ( $sum_y2{$index_key} - ($sum_y{$index_key} * $sum_y{$index_key} / $valid_cnt{$index_key} ));
1650: $lower_part = sqrt($lower_part);
1651: if ($ii == 3 && $jj==7) {
1652: printf "%f %f %f %f",$prod_xy{$index_key},$sum_x{$index_key},$sum_y{$index_key},$valid_cnt{$index_key};
1653: }
1654: if( $lower_part != 0.0 ) {
1655: $ratio = $upper_part / $lower_part;
1656: printf " % .2f", $ratio;
1657: } else {
1658: print " inf ";
1659: }
1660: } else {
1661: print " ----";
1662: }
1663: }
1664: print "\n";
1665: }
1666: printf "Press RETURN to continue"; $tmp = <>;
1667: } else { # file exists!
1668: print "FILE: $filename does not exist!\n";
1669: print "Press RETURN to continue"; $tmp = <>;
1670: }
1671: }
1672: # -------------------------- Create a file contains all scores ----
1673: # it will
1674: sub S_CreateScores {
1675: local($sfilename)=@_;
1676: local($filename);
1677: local($c_scores,$c_max_scores,$c_abscent,$c_count,$c_summary);
1678: local($q_scores,$q_max_scores,$q_abscent,$q_count,$q_summary);
1679: local($e_scores,$e_max_scores,$e_abscent,$e_count,$e_summary);
1680: local($s_scores,$s_max_scores,$s_abscent,$s_count,$s_summary);
1681: local($o_scores,$o_max_scores,$o_abscent,$o_count,$o_summary);
1682: local($c_ratio,$q_ratio,$e_ratio,$s_ratio,$o_ratio);
1683: local($m_1,$m_2,$m_3,$f_score);
1684: local($m_max1,$m_max2,$m_max3,$f_max);
1685: local($mt1_ratio,$mt2_ratio,$mt3_ratio,$f_ratio);
1686: local($var_name);
1687: local($total_score,$day_str);
1688: local($e_entry);
1689: local($s_key,%f_entry,$pre_entry,$whole_entry,$tail_entry,$score_str);
1690: local($tmp);
1691:
1692: $day_str = &TimeString;
1693:
1694: $filename = "$ClassPath" . "/classl";
1695:
1696: open(CIN, "<$filename") || die "Cannot open file $filename!";
1697: while(<CIN>) {
1698: chomp();
1699: $s_id = substr($_,14,9); $s_id = uc($s_id);
1700:
1701: # $homework_scores_limit_set comes from capa.config
1702: ($c_scores,$c_max_scores,$c_abscent,$c_count,$c_summary) =
1703: &S_CollectSetScores($ClassPath,"$s_id",0,$homework_scores_limit_set);
1704:
1705: $c_ratio = $c_scores/$c_max_scores if $c_max_scores != 0;
1706: ## print "$c_scores/$c_max_scores,$c_abscent/$c_count\n";
1707:
1708: # $quiz_scores_limit_set comes from capa.config
1709: ($q_scores,$q_max_scores,$q_abscent,$q_count,$q_summary) =
1710: &S_CollectSetScores($QuizPath,"$s_id",0,$quiz_scores_limit_set) if -d "$QuizPath";
1711: $q_ratio = $q_scores/$q_max_scores if $q_max_scores != 0;
1712: ## print "$q_scores/$q_max_scores,$q_abscent/$q_count\n";
1713:
1714: # exam has different formula
1715:
1716: ($m_1,$m_max1,$m_2,$m_max2,$m_3,$m_max3,$f_score,$f_max,$e_count) = S_CollectExamScores($ExamPath,"$s_id") if -d "$ExamPath";
1717:
1718: # we can evaluate midterm1 when $e_count > 2
1719: # the perl code for midterm1 is stored in $P_code{'midterm1'}
1720: # FORMULA for exam scores
1721: if( $e_count < 1 ) { # 0 set, no extrapolated scores
1722: $e_scores = 0;
1723: $tail_entry = " --/-- --/-- --/-- --/-- ";
1724:
1725: } elsif ( ($e_count == 1) || ($e_count == 2) ) {
1726: $mt1_ratio = $m_1/$m_max1 if $m_max1 != 0;
1727: $e_scores = $mt1_percent * $mt1_ratio + $mt2_percent*$mt1_ratio + $mt3_percent * $mt1_ratio + $final_percent * $mt1_ratio;
1728: $e_entry = sprintf " %6.2f/%3d --/-- --/-- --/-- ", $m_1,$m_max1;
1729: } elsif ( ($e_count == 3) || ($e_count == 4) ) {
1730: $mt1_ratio = $m_1/$m_max1 if $m_max1 != 0;
1731: $mt2_ratio = $m_2/$m_max2 if $m_max2 != 0;
1732: $e_scores = $mt1_percent * $mt1_ratio + $mt2_percent*$mt2_ratio +
1733: (($mt1_percent * $mt1_ratio + $mt2_percent*$mt2_ratio)*0.5) +
1734: $final_percent * (($m_1 + $m_2)/($m_max1 + $m_max2));
1735: $e_entry = sprintf " %6.2f/%3d %6.2f/%3d --/-- --/-- ", $m_1,$m_max1,$m_2,$m_max2;
1736: } elsif ( ($e_count == 5) || ($e_count == 6) ) {
1737: $mt1_ratio = $m_1/$m_max1 if $m_max1 != 0;
1738: $mt2_ratio = $m_2/$m_max2 if $m_max2 != 0;
1739: $mt3_ratio = $m_3/$m_max3 if $m_max3 != 0;
1740: $e_scores = $mt1_percent * $mt1_ratio + $mt2_percent*$mt2_ratio + $mt3_percent * $mt3_ratio +
1741: $final_percent * (($m_1+$m_2+$m_3)/($m_max1+$m_max2+$m_max3));
1742: $e_entry = sprintf " %6.2f/%3d %6.2f/%3d %6.2f/%3d --/-- ", $m_1,$m_max1,$m_2,$m_max2,$m_3,$m_max3;
1743: } else { # suppose to be 7
1744: $mt1_ratio = $m_1/$m_max1 if $m_max1 != 0;
1745: $mt2_ratio = $m_2/$m_max2 if $m_max2 != 0;
1746: $mt3_ratio = $m_3/$m_max3 if $m_max3 != 0;
1747: $f_ratio = $f_score/$f_max if $f_max != 0;
1748: $e_scores = $mt1_percent * $mt1_ratio + $mt2_percent*$mt2_ratio + $mt3_percent * $mt3_ratio + $final_percent * $f_ratio;
1749: $e_entry = sprintf " %6.2f/%3d %6.2f/%3d %6.2f/%3d %3d/%3d ",$m_1,$m_max1,$m_2,$m_max2,$m_3,$m_max3,$f_score,$f_max;
1750: }
1751:
1752: # $supp_scores_limit_set comes from capa.config
1753: ($s_scores,$s_max_scores,$s_abscent,$s_count,$s_summary) =
1754: &S_CollectSetScores($SuppPath,"$s_id",0,$supp_scores_limit_set) if -d "$SuppPath";
1755: $s_ratio = $s_scores/$s_max_scores if $s_max_scores != 0;
1756: ## print "$s_scores/$s_max_scores,$s_abscent/$s_count\n";
1757:
1758: # $others_scores_limit_set comes from capa.config
1759: ($o_scores,$o_max_scores,$o_abscent,$o_count,$o_summary) =
1760: &S_CollectSetScores($OthersPath,"$s_id",0,$others_scores_limit_set) if -d "$OthersPath";
1761: $o_ratio = $o_scores/$o_max_scores if $o_max_scores != 0;
1762: ## print "$o_scores/$o_max_scores,$o_abscent/$o_count\n";
1763:
1764:
1765: $total_score = $hw_percent*$c_ratio + $qz_percent*$q_ratio + $e_scores;
1766:
1767: $score_str = sprintf "% 6.2f", $total_score;
1768: $s_key = sprintf "%06.2f %s", $total_score,$s_id;
1769: # # HW QZ QZ-N SUPP Mid 1 Mid 2 Mid 3 Final Total
1770: #
1771: # A12345678 123/123 123/123 123/123 123/123 123.45/123 123.45/123 123.45/123 123/123 123.45
1772: #
1773: # A23546721 335/341 45/ 45 0/ 15 76/ 81 30.00/ 30 28.60/ 30 30.00/ 30 56/ 57 100.39
1774: # A23778965 333/341 34/ 45 1/ 15 79/ 81 27.90/ 30 28.60/ 30 28.60/ 30 55/ 57 96.72
1775: # A11111111 0/341 0/ 45 14/ 15 0/ 81 0.00/ 30 0.00/ 30 0.00/ 30 0/ 57 0.00
1776: # 173533390 0/341 0/ 45 15/ 15 0/ 81 0.00/ 30 0.00/ 30 0.00/ 30 0/ 57 0.00
1777:
1778: $pre_entry = sprintf "%3d/%3d %3d/%3d %3d/%3d %3d/%3d",
1779: $c_scores,$c_max_scores,$q_scores,$q_max_scores,$q_abscent,$q_count,$s_scores,$s_max_scores;
1780:
1781:
1782: $tail_entry = sprintf "%6.2f", $total_score;
1783:
1784:
1785: $whole_entry = "$s_id " . "$pre_entry" . "$e_entry" . "$tail_entry\n";
1786:
1787: $f_entry{$s_key} = $whole_entry;
1788: print " $s_id $score_str \[$pre_entry\]\n";
1789: print "\t\t\[$e_entry $tail_entry\]\n";
1790: }
1791: close(CIN) || die "Cannot close file $filename!";
1792: # close the classl file and
1793:
1794: # open the set score report file
1795: if(-f $sfilename) { # if there is already a scores file, move it to something else
1796: system("mv $sfilename $sfilename.prior.$day_str");
1797: }
1798: open(OUT, ">$sfilename") || die "Cannot open file $sfilename!";
1799: print OUT "\# HW QZ QZ-N SUPP Mid 1 Mid 2 Mid 3 Final Total\n";
1800: foreach $s_key (reverse sort keys %f_entry) {
1801: print OUT "$f_entry{$s_key}";
1802: }
1803: close(OUT) || die "Cannot close file $sfilename!";
1804: }
1805:
1806: #
1807: # create all emails in the Mail/ directory
1808: # input is the master scores file name
1809: sub S_CreateEmails {
1810: local($sfilename)=@_;
1811: local($efilename);
1812: local($s_id);
1813: local($var_name,$s_sec,$email);
1814: local($q_scores,$q_max_scores,$q_absent,$q_count,$q_summary);
1815: local($last_n,$first_n,$first_part,$middle_n);
1816: local($day_str,$cat,$tmp);
1817:
1818: # variable $Email_templateFile comes from capa.config entry email_template_file
1819: &ScanMailTemplate("$Email_templateFile");
1820:
1821: # after scanning the email template file, $P_code{'email_perl'} and $P_code{'template'} are defined
1822: # in the code $P_code{'email_perl'}, we need to define
1823: # $final_grade and
1824: # $category_one_high, $category_one_low, .. comes from capa.config
1825: # output $Summary_sentence
1826:
1827: # in the code $P_code{'template'}
1828: $day_str = &TodayString;
1829:
1830: if(-f $sfilename) {
1831: open(SIN, "<$sfilename") || die "Cannot open file $sfilename!";
1832: while(<SIN>) {
1833: # 1 2 3 4 5 6 7 8 9
1834: # 0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
1835: # # HW QZ QZ-N SUPP Mid 1 Mid 2 Mid 3 Final Total
1836: # A23546721 335/341 45/ 45 0/ 15 76/ 81 30.00/ 30 28.60/ 30 30.00/ 30 56/ 57 100.39
1837: if(! /^\#/) { # non comments line
1838: $s_id = substr($_,0,9); $s_id = uc($s_id);
1839: $var_name = $Var_name{'Homework_total_score'};
1840: ${$var_name} = int( substr($_,10,3) ); # homework total score
1841: $var_name = $Var_name{'Homework_total_max'};
1842: ${$var_name} = int( substr($_,14,3) ); # max score
1843: $var_name = $Var_name{'Quiz_total_score'};
1844: ${$var_name} = int( substr($_,18,3) ); # quiz score
1845: $var_name = $Var_name{'Quiz_total_max'};
1846: ${$var_name} = int( substr($_,22,3) ); # quiz max
1847:
1848: $var_name = $Var_name{'Quiz_absent'};
1849: ${$var_name} = int( substr($_,26,3) ); # quiz absent
1850:
1851: $var_name = $Var_name{'Quiz_count'};
1852: ${$var_name} = int( substr($_,30,3) ); # quiz count
1853:
1854: # need to take care of '--'
1855:
1856: $midterm1 = substr($_,42,6);
1857: $midterm_max1 = int( substr($_,49,3));
1858:
1859: $midterm2 = substr($_,53,6);
1860: $midterm_max2 = int( substr($_,60,3));
1861:
1862: $midterm3 = substr($_,64,6);
1863: $midterm_max3 = int( substr($_,71,3));
1864:
1865: $final_exam = substr($_,75,3);
1866: $final_exam_max = int( substr($_,79,3));
1867:
1868: $final_grade = substr($_,85,6); # server as input to $P_code{'email_perl'}
1869:
1870: $final_grade = $final_grade * 1.0;
1871:
1872: ## print "PERL: $P_code{'email_perl'}\n";
1873: ## print "Press RETURN to continue"; $tmp = <>;
1874:
1875: ## print "SUMMARY: $Summary_sentence\n";
1876: ## print "Press RETURN to continue"; $tmp = <>;
1877:
1878: # now we know $Exam_sentence and $Summary_sentence
1879:
1880: # for $P_code{'template'}, we need to find
1881: # Global input
1882: # $student_name, $ClassName, there is already a $ClassName global variable
1883: # ${$Var_name{'Homework_total_score'}} ==> $HWtotal_scp
1884: # ${$Var_name{'Homework_total_max'}} ==> $HWtotal_max_scp
1885: # ${$Var_name{'Quiz_count'}} ==> $QZcount_scp
1886: # ${$Var_name{'Quiz_total_score'}} ==> $QZtotal_scp
1887: # ${$Var_name{'Quiz_total_max'}} ==> $QZtotal_max_scp
1888:
1889: # ${$Var_name{'Quiz_summary_string'}} ==> $QZsummary <-- must read from the qz/records/*.db files
1890:
1891: # $midterm1, $midterm2, $midterm3 and $final_exam
1892: #
1893: ## How to allow the format of $student_name customizable from capa.config file?
1894: ##
1895: ($student_name,$s_sec,$email) = S_Lookup_student_name("$s_id");
1896: ($last_n,$first_part) = split(/,/,$student_name);
1897: $first_part =~ s/^\s//g;
1898: ($first_n,$middle_n) = split(/ /,$first_part);
1899: $student_name = "$first_n" . " $last_n";
1900:
1901: # $quiz_scores_limit_set comes from capa.config
1902: ($q_scores,$q_max_scores,$q_absent,$q_count,$q_summary) =
1903: &S_CollectSetScores($QuizPath,"$s_id",0,$quiz_scores_limit_set) if -d "$QuizPath";
1904: ${$Var_name{'Quiz_summary_string'}} = "$q_summary";
1905: ${$Var_name{'Quiz_absent'}} = $q_absent;
1906: ${$Var_name{'Quiz_count'}} = $q_count;
1907: eval "$P_code{'email_perl'}";
1908: if( ($final_grade <= $category_one_high) && ($final_grade >= $category_one_low)) {
1909: $cat = 1;
1910: } elsif ( ($final_grade <= $category_two_high)&&($final_grade >= $category_two_low) ) {
1911:
1912: $cat = 2;
1913:
1914: } elsif ( ($final_grade <= $category_three_high)&&($final_grade >= $category_three_low) ) {
1915:
1916: $cat = 3;
1917:
1918: } elsif( ($final_grade <= $category_four_high)&&($final_grade >= $category_four_low) ) {
1919:
1920: $cat = 4;
1921:
1922: } else { # not in above category
1923:
1924: $cat = 5;
1925: }
1926:
1927: $efilename = "$ClassPath" . "/Mail/$s_id.$day_str.$cat";
1928:
1929: if(-f $efilename) { # remove the file with the same name, no warning!!
1930: system("rm $efilename");
1931: }
1932: open(EOUT,">$efilename") || die "Cannot create file $efilename!";
1933: eval "print EOUT \"$P_code{'template'}\" ";
1934: close(EOUT) || die "Cannot close file $efilename!";
1935:
1936: print " $s_id\t$final_grade,\tcategory $cat\n";
1937:
1938: }
1939: }
1940: close(SIN) || die "Cannot close file $sfilename!";
1941: print "=" x 45 . "\n";
1942: print "DONE creating all email files in $ClassPath/Mail/ directory.\n";
1943: print "Press RETURN to continue"; $tmp = <>;
1944: } else { # the master scores file does not exist
1945: print "File $sfilename does not exist!\n";
1946: print "Press RETURN to continue"; $tmp = <>;
1947: }
1948:
1949: }
1950: # ----------------------------------------------------------------
1951: sub ScanMailTemplate {
1952: local($filename) = @_;
1953: local($input_line);
1954: local($tmp);
1955:
1956:
1957: if(-f $filename) {
1958: open(IN, "<$filename") || die "Cannot open $filename\n";
1959: LINE: while( $input_line = <IN> ) {
1960: chomp($input_line);
1961: if($input_line =~ m|^//| ) { next LINE; } ## ignore comments
1962: if($input_line =~ m|^\#| ) { next LINE; } ## ignore comments
1963: if($input_line =~ m|^\s*BEGIN_perl| ) { ## Perl code
1964: $P_code{'email_perl'} = &E_CollectPerlCode;
1965: ## print "email_perl=$P_code{'email_perl'}";
1966: next LINE;
1967: }
1968: if($input_line =~ m|^\s*BEGIN_template| ) { ## template code
1969: $P_code{'template'} = &E_CollectTemplateCode;
1970: ## print "template = $P_code{'template'}";
1971: next LINE;
1972: }
1973: next LINE;
1974: }
1975: close(IN) || die "Cannot close $filename\n";
1976:
1977: } else {
1978: printf "File $filename does not exist!"; $tmp = <>;
1979: }
1980:
1981: }
1982:
1983: #
1984: # Randomly pick a file in Mail/ directory and display
1985: # it on screen
1986: #
1987: sub S_RandomlyPreview {
1988: local($filename);
1989: local(@all_files);
1990: local($upper_bound);
1991: local($pick_idx,$pick_filename);
1992: local($tmp);
1993:
1994: opendir(EDIR, "$ClassPath/Mail") || die "cannot opendir $ClassPath/Mail!";
1995: @all_files = grep !/^\.\.?$/, readdir EDIR;
1996: closedir EDIR;
1997: ## srand(time() ^ ($$+( $$ << 15)) );
1998:
1999: $upper_bound = $#all_files + 1;
2000: if( $upper_bound > 0 ) { # something to preview
2001: $pick_idx = ((rand $$) * 1000.0) % $upper_bound;
2002:
2003: # print "PICK: $pick_idx among $upper_bound\n";
2004:
2005: $pick_filename = $all_files[$pick_idx];
2006: print "Preview File: $pick_filename\n";
2007: print "Press RETURN to continue"; $tmp = <>; &C_ClearScreen;
2008: $filename = "$ClassPath/Mail/$pick_filename";
2009: open(IN,"<$filename") || die "Cannot open file $filename!";
2010: while(<IN>) {
2011: print;
2012: }
2013: close(IN) || die "cannot close file $filename!";
2014: print "Press RETURN to continue"; $tmp = <>;
2015: } else {
2016: print "No file in directory $ClassPath/Mail\n";
2017:
2018: print "Press RETURN to continue"; $tmp = <>;
2019:
2020: }
2021:
2022: }
2023:
2024:
2025: # The format of a classl file
2026: #
2027: # 1 2 3 4 5 6 7 8 9 0
2028: #0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678
2029: #PHY 183 001 A23745301 Abraham, Christopher Wil FS96
2030: #phy 111 001 A12345678 BUMSTEAD, Blondie blondie4@pilot.msu.edu 12345678
2031: #PHY 183 003 A24469315 Costigan, Timothy Patric costiga3@pilot.msu.edu costiga3
2032: #PHY 183 002 A25425738 Cacossa, Andrew Vincent cacossaa@pilot.msu.edu cacossaa
2033:
2034: # lookup the student id supplied in variable $student_id
2035: # and return the student name and the e-mail address if available
2036: sub S_Lookup_student_name {
2037: local($student_id)=@_;
2038: local($filename);
2039: local($found,$input_line);
2040: local($tmp_sn,$student_name);
2041: local($len,$s_sec,$email);
2042:
2043: $student_id = uc($student_id);
2044: $filename = $ClassPath . "/classl";
2045: open(CIN, "<$filename") || die "Cannot open file $filename!";
2046: $found = 0;
2047: while( ($input_line = <CIN>) && (! $found) ) {
2048: chomp($input_line);
2049: $tmp_sn = substr($input_line,14,9); $tmp_sn = uc($tmp_sn);
2050: if($tmp_sn =~ /^$student_id/ ) {
2051: $found=1;
2052: # student name begins at column 24 and has 30 chars max
2053: $s_sec = substr($input_line,10,3);
2054: $student_name = substr($input_line,24,30);
2055: $len = length($input_line);
2056: $email = "";
2057: if($len > 55 ) {
2058: $email = substr($input_line,55,32);
2059: $email =~ s/\s+//g;
2060: if( $email !~ /\@|\./ ) {
2061: $email = "";
2062: }
2063: }
2064: }
2065: }
2066: close(CIN) || die "Cannot close file $filename!";
2067: return ($student_name,$s_sec,$email);
2068: }
2069:
2070: # This routine accepts a string represent an absolute path to a class
2071: # it checks to see if
2072: # the directory specified by this path did actually exist
2073: # the records/ sub-directory did exist
2074: # the records/setX.db file exists
2075: # the classl file exists
2076:
2077: sub S_CheckClassPath {
2078: local($path)=@_;
2079: local($cfullpath,$rfullpath,$sfullpath);
2080: local($correct,$cfgfullpath,$cfgutilsfullpath);
2081:
2082: $correct = 0;
2083: if( $path =~ /\/$/ ) {
2084: $cfullpath = "$path" . "classl";
2085: $rfullpath = "$path" . "records";
2086: $sfullpath = "$path" . "records/set$set.db";
2087: $cfgfullpath = "$path" . "capa.config";
2088: $cfgutilsfullpath = "$path" . "capautils.config";
2089: } else {
2090: $cfullpath = "$path" . "/classl";
2091: $rfullpath = "$path" . "/records";
2092: $sfullpath = "$path" . "/records/set$set.db";
2093: $cfgfullpath = "$path" . "/capa.config";
2094: $cfgutilsfullpath = "$path" . "/capautils.config";
2095: }
2096: if( -d $path ) {
2097: if( -d $rfullpath ) {
2098: if(-f $cfgfullpath ) {
2099: if(-f $cfgutilsfullpath ) {
2100: $correct = 1;
2101: } else {
2102: print "File [$cfgutilsfullpath] does not exist!\n";
2103: }
2104: } else {
2105: print "File [$cfgfullpath] does not exist!\n";
2106: }
2107: } else {
2108: print "Directory [$rfullpath] does not exist!\n";
2109: }
2110: } else {
2111: print "Directory [$path] does not exist!\n";
2112: }
2113: return ($correct);
2114: }
2115:
2116: ##
2117: # display score file according to the order specified
2118: # by $key_str and the direction in $dir
2119: # $dir = 1 means ascending
2120: # 2 means descending
2121: #
2122: sub S_DisplayScoreFile {
2123: local($key_str,$dir,$sfilename)=@_;
2124: local(@a_keyidx);
2125: local($key_seq);
2126: local($s_id,$final_grade,$s_name,$s_sec,$s_email);
2127: local($sort_key,$s_display_name,$first_n,$first_part,$middle_n,$last_n);
2128: local(%sf_entry);
2129: local($line_cnt,$line_total,$len,$pad_len);
2130: local($tmp);
2131:
2132: $key_str =~ s/,//g;
2133: $key_str =~ s/1/\$final_grade/g;
2134: $key_str =~ s/2/\$s_id/g;
2135: if( $key_str =~ /3/ ) {
2136: $key_str =~ s/3/\$s_name/g;
2137: }
2138: if( $key_str =~ /4/ ) {
2139: $key_str =~ s/4/\$s_sec/g;
2140: }
2141: $key_seq = '"' . "$key_str" . '"';
2142:
2143: if(-f $sfilename) {
2144: open(SIN, "<$sfilename") || die "Cannot open file $sfilename!";
2145: $line_cnt = 0;
2146: while(<SIN>) {
2147: if(! /^\#/) { # non comments line
2148: chomp();
2149: $line_cnt++;
2150: $s_id = substr($_,0,9); $s_id = uc($s_id);
2151: $final_grade = substr($_,85,6); #
2152:
2153: $whole_entry = $_;
2154: ($s_name,$s_sec,$s_email) = S_Lookup_student_name("$s_id");
2155: # evaluate the code to a real key
2156: $sort_key = eval $key_seq;
2157:
2158: ($last_n,$first_part) = split(/,/,$s_name);
2159: $last_n = uc($last_n);
2160: $first_part =~ s/^\s//g;
2161: ($first_n,$middle_n) = split(/ /,$first_part);
2162: $s_display_name = "$last_n" . ", $first_n";
2163: $len = length($s_display_name);
2164: if( $len < 25 ) {
2165: $pad_len = 25 - $len;
2166: $s_display_name = "$s_display_name" . " " x $pad_len;
2167: } else {
2168: $s_display_name = substr($s_display_name,0,25);
2169: }
2170: $sf_entry{"$sort_key"} = "$s_display_name $s_sec $whole_entry";
2171: ### print "KEY:[$sort_key]:$whole_entry\n";
2172: } # end of if not comments
2173: } # end while <SIN>
2174: close(SIN) || die "Cannot close file $sfilename!";
2175: $line_total = $line_cnt; $line_cnt = 0;
2176: if($dir == 1 ) {
2177: foreach $sort_key (sort keys %sf_entry) {
2178: $line_cnt++;
2179: print $sf_entry{"$sort_key"} . "\n";
2180: if( ($line_cnt % $display_score_row_limit) == 0 ) { # $display_score_row_limit from capa.config
2181: print " --$line_cnt/$line_total-- Press RETURN to continue"; $tmp = <>;
2182: }
2183: }
2184: } else {
2185: foreach $sort_key (reverse sort keys %sf_entry) {
2186: $line_cnt++;
2187: print $sf_entry{"$sort_key"} . "\n";
2188: if( ($line_cnt % $display_score_row_limit) == 0 ) {
2189: print " --$line_cnt/$line_total-- Press RETURN to continue"; $tmp = <>;
2190: }
2191: }
2192: }
2193: } else {
2194: print "File [$sfilename] does not exist!";
2195: }
2196:
2197: }
2198:
2199: ##
2200: ## Input: file name to be printed through lpr command
2201: ##
2202: ##
2203: sub S_LPRFile {
2204: local($file)=@_;
2205: local($go_on)=0;
2206: local($select);
2207: local($printer_selected);
2208: local($emp);
2209: local($cmd);
2210: local($PS_file);
2211:
2212: print "Enter Y or <RETURN> to continue or N to cancel the operation: ";
2213: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2214: $go_on = 1 if $tmp =~ /^y/ || $tmp eq "\n";
2215:
2216: if( $go_on ) { # run lpr -P.... on the .ps file
2217: $select = C_MultipleChoice(4,10,$DialogWidth," Printers Available ",
2218: "Printer Name",@Printers);
2219: $Printer_selected = $Printers[$select-1];
2220:
2221: $go_on = 0;
2222: while( ! $go_on ) {
2223: print "Enter 1 for one sided or 2 for two sided printing (RETURN = 1 sided): ";
2224: $tmp=<>;
2225: if( ($tmp == 1) || ($tmp == 2) || ($tmp eq "\n") ) {
2226: $tmp = 1 if $tmp eq "\n";
2227: $go_on = 1;
2228: }
2229: }
2230: if( $tmp == 1 ) {
2231: $LpronesidedCMD =~ s/\$Printer_selected/$Printer_selected/e;
2232: $cmd = "$LpronesidedCMD $file";
2233: } else { # should be 2
2234: $PS_file = $file;
2235: print "$LprtwosidedCMD\n";
2236: $LprtwosidedCMD =~ s/\$Printer_selected/$Printer_selected/e;
2237: $LprtwosidedCMD =~ s/\$PS_file/$PS_file/e;
2238: $cmd = "$LprtwosidedCMD";
2239: }
2240: $go_on = 0;
2241: print "=" x 70 . "\n";
2242: print "CMD: $cmd\n";
2243: print "Enter Y or <RETURN> to continue or N to cancel the operation: ";
2244: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2245: $go_on = 1 if $tmp =~ /^y/ || $tmp eq "\n";
2246: if($go_on) {
2247: open(IN,"$cmd|");
2248: while($input_line = <IN>) {
2249: print "$input_line";
2250: }
2251: close(IN);
2252: print "=" x 70 . "\n";
2253: print " Your job has been sent to the print spooler. Press RETURN to continue"; $tmp = <>;
2254: }
2255: }
2256: }
2257:
2258:
2259:
2260: # <========================= Main program =======================>
2261:
2262: Getopts('c:s');
2263:
2264: if (! $opt_c) { ## class path option
2265: print "USAGE: capatools.pl -c Full_path_to_class\n";
2266: $ClassPath = &S_Enterpath;
2267: } else { # need to check the path entered by option -c
2268: if( S_CheckClassPath("$opt_c") ) {
2269: $ClassPath = $opt_c;
2270: if( $opt_s ) {
2271: S_ReadCAPAconfig($ClassPath);
2272: S_CreateScores("$Master_scoresFile");
2273: # print "run score report in silent background\n";
2274: # print "The $Master_scoresFile\n";
2275:
2276: exit (1);
2277: }
2278: } else {
2279: $ClassPath = &S_Enterpath;
2280: }
2281: }
2282:
2283: $DialogWidth = 48;
2284: $Quit = 0;
2285:
2286:
2287: $len = length($ClassPath);
2288: if( $len > ($DialogWidth-6) ) { ## class path too long, display the last portion instead
2289: $offset = $len - $DialogWidth +6;
2290: $DisplayPath = "-..." . substr($ClassPath, $offset,$DialogWidth-6);
2291: } else {
2292: $DisplayPath = $ClassPath;
2293: }
2294:
2295: S_ReadCAPAconfig($ClassPath);
2296:
2297: while(! $Quit ) {
2298: $What = C_MultipleChoice(1,8,$DialogWidth," Welcome to CAPA Utilities Ver 1.1 ",
2299: "$DisplayPath",@Main_menu);
2300:
2301: if( $What == 1 ) { # change class path
2302: $ClassPath = &S_Enterpath;
2303: $len = length($ClassPath);
2304: if( $len > ($DialogWidth-6) ) {
2305: $offset = $len - $DialogWidth +6;
2306: $DisplayPath = "-..." . substr($ClassPath, $offset,$DialogWidth-6);
2307: } else {
2308: $DisplayPath = $ClassPath;
2309: }
2310: S_ReadCAPAconfig($ClassPath);
2311: } elsif ($What == 2 ) { # run capastat.pl
2312: $Set = &S_InputSet;
2313: $Sfullpath = $ClassPath . "/records/set" . "$Set" . ".db";
2314: ## print "Running capastat.pl on $Sfullpath\n";
2315: ($Q_cnt,$L_cnt) = &S_ScanSetDB($Sfullpath);
2316: Percentage_Scores($Set,$L_cnt);
2317: S_Average($Q_cnt,$L_cnt);
2318:
2319: ## Large_Tries($opt_t,$opt_n,$Q_cnt,$L_cnt);
2320: } elsif ($What == 3 ) { # log analysis on S, U,
2321: $Set = &S_InputSet;
2322:
2323: $Lfullpath = $ClassPath . "/records/log" . "$Set" . ".db";
2324: if(-f $Lfullpath) {
2325: print "Log analysis for telnet session log$Set.db\n";
2326: print " This may take a while to calculate, please wait ...\n";
2327: ($Y_l,$N_l,$S_l,$U_l,$u_l) = S_ScanLogDB($Lfullpath);
2328: }
2329: $Wfullpath = $ClassPath . "/records/weblog" . "$Set" . ".db";
2330: if(-f $Wfullpath ) {
2331: print "=" x 79 . "\n";
2332: print "Log analysis for web session weblog$Set.db\n";
2333: print " This may take a while to calculate, please wait ...\n";
2334: ($Y_w,$N_w,$S_w,$U_w,$u_w) = S_ScanLogDB($Wfullpath);
2335: }
2336: $Telnet_total = $Y_l+$N_l+$S_l+$U_l+$u_l;
2337: $Web_total = $Y_w+$N_w+$S_w+$U_w+$u_w;
2338:
2339: print "============== SUMMARY ====================\n";
2340: print " #Y #N #S #U #u Total\n";
2341: printf "telnet: %6d %6d %6d %6d %6d %6d\n", $Y_l, $N_l, $S_l, $U_l, $u_l,$Telnet_total;
2342: printf " web: %6d %6d %6d %6d %6d %6d\n", $Y_w, $N_w, $S_w, $U_w, $u_w,$Web_total;
2343: $Y_sum = $Y_l + $Y_w;
2344: $Ratio_Y = 100.0 * ($Y_w / $Y_sum) if $Y_sum > 0;
2345: $N_sum = $N_l + $N_w;
2346: $Ratio_N = 100.0 * ($N_w / $N_sum) if $N_sum > 0;
2347: $S_sum = $S_l + $S_w;
2348: $Ratio_S = 100.0 * ($S_w / $S_sum) if $S_sum > 0;
2349: $U_sum = $U_l + $U_w;
2350: $Ratio_U = 100.0 * ($U_w / $U_sum) if $U_sum > 0;
2351: $u_sum = $u_l + $u_w;
2352: $Ratio_u = 100.0 * ($u_w / $u_sum) if $u_sum > 0;
2353: $overall_entries = $Telnet_total+$Web_total;
2354: $Ratio_web = 100.0*($Web_total/$overall_entries) if $overall_entries > 0;
2355: printf " %%web: % 6.1f % 6.1f % 6.1f % 6.1f % 6.1f % 6.1f\n",
2356: $Ratio_Y, $Ratio_N, $Ratio_S, $Ratio_U, $Ratio_u, $Ratio_web;
2357: printf "Press RETURN to continue"; $tmp = <>;
2358:
2359: } elsif ($What == 4 ) { # Student course profile
2360: # select either use student name or student number
2361: # if there are more than two students, display them in a table to select
2362: # by the user
2363: # use student id to find the scores
2364: # display set scores in each class, regular class goes first.
2365: # S_InputStudent;
2366: ($s_id,$s_nm) = S_InputStudent($ClassPath);
2367: if($s_id ne "" ) {
2368: print "$s_nm\n";
2369: &S_CollectSetScores($ClassPath,"$s_id",1,$homework_scores_limit_set);
2370: &S_CollectSetScores($QuizPath,"$s_id",1,$quiz_scores_limit_set) if -d "$QuizPath";
2371: &S_CollectSetScores($ExamPath,"$s_id",1,$exam_scores_limit_set) if -d "$ExamPath";
2372: &S_CollectSetScores($SuppPath,"$s_id",1,$supp_scores_limit_set) if -d "$SuppPath";
2373: &S_CollectSetScores($OthersPath,"$s_id",1,$others_scores_limit_set) if -d "$OthersPath";
2374:
2375:
2376: print "\nEnter Y or <RETURN> for Login analysis (may take a while)\n";
2377: print "Enter N => return to main menu: ";
2378: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2379: $go_on = 0;
2380: $go_on = 1 if $tmp =~ /^y/ || $tmp eq "\n";
2381:
2382: if($go_on) {
2383: # $homework_scores_limit_set comes from capa.config
2384: &S_LoginAnalysis($ClassPath,"$s_id",$homework_scores_limit_set);
2385: &S_StudentSetAnalysis($ClassPath,"$s_id",$homework_scores_limit_set);
2386: }
2387:
2388: }
2389: } elsif ($What == 5 ) { # CAPA IDs for one student
2390: ($s_id,$s_nm) = S_InputStudent($ClassPath);
2391: if($s_id ne "" ) {
2392: $go_on = 0;
2393: print "$s_nm, $Allcapaid\n";
2394: ($S_from, $S_to) = S_EnterSets;
2395:
2396: print "\nCMD: $AllcapaidCMD -i -stu $s_id -s $S_from -e $S_to\n";
2397: print "Enter Y or <RETURN> to continue or N to cancel the operation: ";
2398: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2399: $go_on = 1 if $tmp =~ /^y/ || $tmp eq "\n";
2400: if( $go_on ) {
2401: open(IN,"$AllcapaidCMD -i -stu $s_id -s $S_from -e $S_to -c $ClassPath|");
2402: while($input_line = <IN>) {
2403: print "$input_line";
2404: }
2405: close(IN);
2406: printf "Press RETURN to continue"; $tmp = <>;
2407: }
2408: }
2409: } elsif ($What == 6 ) { # All CAPA IDs
2410: $go_on = 0;
2411: ($S_from, $S_to) = S_EnterSets;
2412: print "\nCMD: $AllcapaidCMD -s $S_from -e $S_to\n";
2413: print "Enter Y or <RETURN> to continue or N to cancel the operation: ";
2414: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2415: $go_on = 1 if $tmp =~ /^Y/ || $tmp eq "\n";
2416: if( $go_on ) {
2417: open(IN,"$AllcapaidCMD -s $S_from -e $S_to -c $ClassPath|");
2418: while($input_line = <IN>) {
2419: print "$input_line";
2420: }
2421: close(IN);
2422: print "Press RETURN to continue"; $tmp = <>;
2423: }
2424:
2425: } elsif ($What == 7 ) { # Item analysis
2426: $u_path = C_MultipleChoice(4,10,$DialogWidth,"Select a Class path","",@MainPath);
2427:
2428: $Set = &S_InputSet;
2429: print "Item analysis for $MainPath[$u_path-1], Set $Set\n";
2430: print "This may take a while to calculate, please wait ...\n";
2431: S_ItemAnalysis($MainPath[$u_path-1],$Set);
2432: } elsif ($What == 8 ) { # Correlation chart
2433: ## TO DO:
2434: ## Let user specify how many categories to calculate correlation
2435: ## For each category, the user can specify problem numbers to
2436: ## be in that category
2437: ## Then, the correlations between each category is calculated
2438: ##
2439: $u_path = C_MultipleChoice(4,10,$DialogWidth,"Select a Class path","",@MainPath);
2440: $Set = &S_InputSet;
2441: print "Correlation calculation for $MainPath[$u_path-1], Set $Set\n";
2442: print "This may take a while to calculate, please wait ...\n";
2443: S_SetCorrelationStatistics($MainPath[$u_path-1],$Set);
2444: } elsif ($What == 9 ) { # E-Mail
2445: $done_email = 0;
2446: while(! $done_email ) {
2447: $select = C_MultipleChoice(2,10,$DialogWidth+15," CAPA E-mail facilities ",
2448: "$DisplayPath",@Email_menu);
2449: if($select == 1 ) { # Create scores file
2450: # the variable $Master_scoresFile comes from capa.config entry master_scores_file = ...
2451: print "Create a file containing scores of all students:\n";
2452: print " $Master_scoresFile\n";
2453: print "This may take a while to complete, please wait ...\n";
2454: S_CreateScores("$Master_scoresFile");
2455: } elsif ($select == 2 ) { # create all e-mail files in Mail/ dir
2456: print "Create e-mail files in $ClassPath/Mail/ directory\n";
2457: print " based on scores file $Master_scoresFile\n";
2458: print "This action will REPLACE the original file(s) in the Mail/ directory!\n";
2459: $go_on = 0;
2460: print "Enter Y or <RETURN> to continue or N to cancel the operation: ";
2461: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2462: $go_on = 1 if $tmp =~ /^Y/ || $tmp eq "\n";
2463: if( $go_on ) {
2464: print "This may take a while to complete, please wait ...\n";
2465:
2466: S_CreateEmails("$Master_scoresFile");
2467: }
2468: } elsif ($select == 3 ) { # Preview e-mail
2469: # randomly pick a student
2470: #
2471: &S_RandomlyPreview;
2472:
2473: } elsif ($select == 4 ) { # Send e-mail to a group of students
2474: $entered_cat = &S_EnterCategory;
2475:
2476: $go_on = 0;
2477: print "Entered category: $entered_cat\n";
2478: print "Enter Y or <RETURN> to continue or N to cancel the operation: ";
2479: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2480: $go_on = 1 if $tmp =~ /^y/ || $tmp eq "\n";
2481:
2482: if( $go_on ) {
2483: S_MailtoCategory($entered_cat);
2484: }
2485:
2486:
2487: # 1. Whole class
2488: # 2. Category ---> specify 1, 2, 3, or 4
2489: } else { # 4. Cancel
2490: $done_email = 1;
2491: }
2492: }
2493: } elsif ($What == 10 ) { # Print one assignment for a student
2494: ($s_id,$s_nm) = S_InputStudent($ClassPath);
2495: if($s_id ne "" ) { # non-empty student id
2496: $s_id = uc($s_id); # uppercase
2497:
2498: ## $Set = &S_InputSet;
2499: ($From_set,$To_set) = &S_EnterSets;
2500: print "Printing Set(s) $From_set to $To_set for STUDENT: $s_nm\n";
2501: $go_on = 0;
2502: print "\nEnter Y or <RETURN> to continue or N to cancel the operation: ";
2503: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2504: $go_on = 1 if $tmp =~ /^y/ || $tmp eq "\n";
2505:
2506: if($go_on) {
2507: $go_on = 0;
2508: print "CMD: $QzparseCMD -c $ClassPath -set $From_set:$To_set -stu $s_id\n";
2509: open(IN,"$QzparseCMD -c $ClassPath -set $From_set:$To_set -stu $s_id|");
2510: while($input_line = <IN>) {
2511: print "$input_line";
2512: }
2513: close(IN);
2514: print "=" x 70 . "\n";
2515: $tex_file = "$ClassPath" . "/TeX/" . "$s_id" . ".tex";
2516: print "CMD: $LatexCMD $tex_file\n";
2517: print "Enter Y or <RETURN> to continue or N to cancel the operation: ";
2518: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2519: $go_on = 1 if $tmp =~ /^y/ || $tmp eq "\n";
2520:
2521: }
2522: # run qzparse on the student and the set
2523: # qzparse -c $path -set $set -stu $s_id
2524: if( $go_on ) { # run latex on the .tex file, latex will create a .dvi file in cwd()
2525: $dir = cwd();
2526: $go_on = 0;
2527:
2528: open(IN,"$LatexCMD $tex_file|");
2529: while($input_line = <IN>) {
2530: print "$input_line";
2531: }
2532: close(IN);
2533: $cwd_dvi_file = "$dir/" . "$s_id" . ".dvi";
2534: $dvi_file = "$ClassPath" . "/TeX/" . "$s_id" . ".dvi";
2535: $cmd = "mv $cwd_dvi_file $dvi_file";
2536: system($cmd);
2537: print "=" x 70 . "\n";
2538: $ps_file = "$ClassPath" . "/TeX/" . "$s_id" . ".ps";
2539: print "CMD: $DvipsCMD $dvi_file -o $ps_file\n";
2540: print "\nEnter Y or <RETURN> to continue or N to cancel the operation: ";
2541: $tmp=<>; $tmp =~ tr/A-Z/a-z/;
2542: $go_on = 1 if $tmp =~ /^y/ || $tmp eq "\n";
2543: }
2544: if( $go_on ) { # run dvips on the .dvi file
2545:
2546:
2547: open(IN,"$DvipsCMD $dvi_file -o $ps_file|");
2548: while($input_line = <IN>) {
2549: print "$input_line";
2550: }
2551: close(IN);
2552: print "=" x 70 . "\n";
2553:
2554: S_LPRFile($ps_file);
2555:
2556: }
2557: }
2558:
2559: } elsif ($What == 11 ) { # view score file
2560: $entered_key = S_EnterSortKey;
2561:
2562: $display_key = $entered_key;
2563: $display_key =~ s/,/, /g;
2564: $display_key =~ s/1/Grade/g;
2565: $display_key =~ s/2/Student number/g;
2566: $display_key =~ s/3/Student name/g;
2567: $display_key =~ s/4/Section/g;
2568: print "Entered sorting key: $display_key\n";
2569: $go_on = 0;
2570: while(! $go_on) {
2571: print "Enter 1 for ascending or 2 for decending order (RETURN = 1 ascending): ";
2572: $tmp=<>;
2573: if( ($tmp == 1) || ($tmp == 2) || ($tmp eq "\n") ) {
2574: $tmp = 1 if $tmp eq "\n";
2575: $go_on = 1;
2576: }
2577: }
2578:
2579: S_DisplayScoreFile($entered_key,$tmp,$Master_scoresFile);
2580: print "Finish displaying score file. Press RETURN to continue"; $tmp = <>;
2581: } elsif ($What == 12 ) { # list student responses
2582: ($s_id,$s_nm) = S_InputStudent($ClassPath);
2583: if($s_id ne "" ) {
2584: $go_on = 0;
2585: print "$s_nm, grepping submissions\n";
2586: ($S_from, $S_to) = S_EnterSets;
2587: for( $i=$S_from;$i<=$S_to;$i++) {
2588: print "Telnet Submissions for $s_nm for set $i\n";
2589: open(IN,"grep -i $s_id $ClassPath/records/submissions$i.db |");
2590: while($input_line = <IN>) {
2591: print "$input_line";
2592: }
2593: close(IN);
2594: printf "Press RETURN to continue"; $tmp = <>;
2595: print "WWW Submissions for $s_nm for set $i\n";
2596: open(IN,"grep -i $s_id $ClassPath/records/websubmissions$i.db|");
2597: while($input_line = <IN>) {
2598: print "$input_line";
2599: }
2600: close(IN);
2601: printf "Press RETURN to continue"; $tmp = <>;
2602: }
2603: }
2604: } elsif ($What == 13 ) { # quit
2605: $Quit = 1;
2606: }
2607: }
2608:
2609:
2610:
2611:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to capautils.1.1.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / CapaTools