diff options
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 8 |
1 files 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 } { |