From 33d2d051f3a3c46b085e70d39391e1d98c225278 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Wed, 4 Dec 2013 16:23:22 -0500 Subject: Add column non web does not call for weight recalculation This is done at higher level function --- GradeBook_lib.tcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 2b7c184..c9c4ccb 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -1708,10 +1708,6 @@ proc AddColumnNonWeb { columnname2add column_category maxpointpossible {sql_type UpdateColValue4UserNameNonWeb $columnname2add _Col_Category_ $column_category UpdateColValue4UserNameNonWeb $columnname2add _Max_Points_ $maxpointpossible - - if { $column_category ne "weighted_column" } { - calculteWeightedTotals - } } else { htmlErrorMsg "empty column names are not permitted" } @@ -1724,6 +1720,10 @@ proc AddColumn { permission_list user } { set maxpointpossible [::ncgi::value maxpointpossible {}] set columnname2add [ColName2SqlSafeForm $columnname2add] AddColumnNonWeb $columnname2add $column_category $maxpointpossible + + if { $column_category ne "weighted_column" } { + calculteWeightedTotals + } } proc AddColumnRequest { permission_list user } { -- cgit v1.2.3