Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v diff -u -r1.7.2.62 -r1.7.2.63 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 2 Jun 2020 13:43:01 -0000 1.7.2.62 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 2 Jun 2020 13:43:26 -0000 1.7.2.63 @@ -53,7 +53,7 @@ } return $valid } - + ########################################################### # # ::xowiki::formfield::test_item @@ -1155,8 +1155,8 @@ # - grade # - participants_table # - # - get_duration - # - get_IPs + # - get_duration + # - get_IPs # - revisions_up_to # - last_time_in_state # - state_periods @@ -1321,7 +1321,7 @@ set first [lindex $revision_sets 0] set last [lindex $revision_sets end] - set fromClock [clock scan [::xo::db::tcl_date [ns_set get $first creation_date] tz]] + set fromClock [clock scan [::xo::db::tcl_date [ns_set get $first creation_date] tz]] set toClock [clock scan [::xo::db::tcl_date [ns_set get $last creation_date] tz]] dict set r fromClock $fromClock dict set r toClock $toClock @@ -1396,11 +1396,11 @@ set to_time "" } if {$to_day eq ""} { - set period "$from_day, $from_time -" + set period "$from_day, $from_time -" } elseif {$from_day eq $to_day} { set period "$from_day, $from_time - $to_time" } else { - set period "$from_day, $from_time - $to_day, $to_time" + set period "$from_day, $from_time - $to_day, $to_time" } return $period } @@ -1815,7 +1815,7 @@ # if {[$ff_obj exists test_item_minutes]} { #ns_log notice "[$ff_obj name]: grading_score <$r>, test_item_minutes <[$ff_obj set test_item_minutes]>" - + set minutes [$ff_obj set test_item_minutes] set total_score [expr {$total_score + ($minutes * [$ff_obj set grading_score])}] set total_points [expr {$total_points + $minutes}]