Add column non web does not call for weight recalculation

This is done at higher level function

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 } {