[LON-CAPA-cvs] cvs: modules /gerd/educause printcorrels.pl

[www]

www		Tue Mar 23 15:17:09 2004 EDT

  Modified files:              
    /modules/gerd/educause	printcorrels.pl 
  Log:
  Recognize gt3 etc
  
  
Index: modules/gerd/educause/printcorrels.pl
diff -u modules/gerd/educause/printcorrels.pl:1.2 modules/gerd/educause/printcorrels.pl:1.3
--- modules/gerd/educause/printcorrels.pl:1.2	Mon Mar 22 17:27:49 2004
+++ modules/gerd/educause/printcorrels.pl	Tue Mar 23 15:17:09 2004
@@ -39,6 +39,10 @@
 		    if ($sopt eq $fopt) { next; }
 		    foreach (split(/\&/,$correlwith{$sopt})) {
 			my ($snum,$sanswer)=split(/\:/,$_);
+			if (($sanswer eq 'gt3') && ($answer>3)) { next; }
+			if (($sanswer eq 'lt3') && ($answer<3)) { next; }
+			if (($answer eq 'gt3') && ($sanswer>3)) { next; }
+			if (($answer eq 'lt3') && ($sanswer<3)) { next; }
 			if (($snum==$num) && ($sanswer ne $answer)) {
 			    print "\n".$fopt.'->'.$num.':'.$answer.' while '.$sopt.'->'.$sanswer; 
 			}