[BACK]Return to scorer.anon.tcl CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/scorer.anon.tcl between versions 1.4 and 1.5

version 1.4, 2000/08/07 20:47:29 version 1.5, 2000/09/26 13:34:48
Line 91  proc pickAnonHighest { num answerStructV Line 91  proc pickAnonHighest { num answerStructV
     $studentNumber]      $studentNumber]
     }      }
 #    puts $scores  #    puts $scores
     set scores [lsort -index 0 -integer $scores]      set scores [lsort -decreasing -index 0 -integer $scores]
 #    puts $scores  #    puts $scores
 #    puts [lindex [lindex $scores 0] 1]  #    puts [lindex [lindex $scores 0] 1]
     return [lindex [lindex $scores 0] 1]          return [lindex [lindex $scores 0] 1]    
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>