diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-12-04 16:23:22 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2013-12-04 16:23:22 -0500 |
| commit | 33d2d051f3a3c46b085e70d39391e1d98c225278 (patch) | |
| tree | 2a336662dac9e3abb4700cfd5cac67ae08f78517 /GradeBook_lib.tcl | |
| parent | d1331bd091adbf9ec926dc35a5a0d6c3bed46170 (diff) | |
| download | GradeBook-33d2d051f3a3c46b085e70d39391e1d98c225278.tar.gz GradeBook-33d2d051f3a3c46b085e70d39391e1d98c225278.zip | |
Add column non web does not call for weight recalculation
This is done at higher level function
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 } { |