added code for the single user grade value modification

1 files changed, 49 insertions, 2 deletions

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 37db949..f548f44 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -1193,14 +1193,18 @@ proc htmlFormatColVal { col_value columnname user user_shown permission_list {fo
 	set col_str_value ${font_style_strt}${col_str_value}${font_style_end}
 
 	# embedded actions on values assignment
-	set embeded_actions_special_columns [ list \
+	set embeded_actions_excluded_special_columns [ list \
 		PasswordHash GroupName UserHiddenColums \
+		FirstName \
+		LastName  \
 		UserName \
+		IdNum \
+		SectionNum \
 		UserHiddenGroups \
 		UserHiddenGradeCategories \
 		]
 	
-	if { ([SelectColValue4User GroupName $user_shown] ne "inforow") && ($user ni $special_user_names) && ($category ne "weighted_column") && ($columnname ni $embeded_actions_special_columns) } {
+	if { ([SelectColValue4User GroupName $user_shown] ne "inforow") && ($user ni $special_user_names) && ($category ne "weighted_column") && ($columnname ni $embeded_actions_excluded_special_columns) } {
 		if { [isActionGranted edit_user_grade $permission_list $user] && ($user_shown ne "_UNSET_") } {
 			set col_str_value "<a href=\"$script_name?action=edit_user_grade_request&user2modify=$user_shown&column2modify=$columnname\">${col_str_value}</a>"
 		}
@@ -1628,6 +1632,9 @@ proc ChoseAction {action permission_list user} {
 				           htmlDefaultView    $permission_list  $user }
 			update_grades_stats { UpdateGradesTableStatistic $permission_list  $user
 				           htmlDefaultView    $permission_list  $user }
+			edit_user_grade_request   { htmlEditUserGradeValue  $permission_list  $user }
+			edit_user_grade  { EditUserGradeValue  $permission_list  $user 
+				           htmlDefaultView    $permission_list  $user }
 			defaultview      { htmlDefaultView    $permission_list  $user }
 			default          { htmlErrorMsg "requested action <b>$action</b> is granted but not implemented yet" }
 		}	
@@ -1638,6 +1645,46 @@ proc ChoseAction {action permission_list user} {
 	}
 }
 
+proc EditUserGradeValue {permission_list user } {
+	global script_name
+	set subaction       [::ncgi::value subaction {}]
+	set modified_user   [::ncgi::value user2modify {}]
+	set modified_column [::ncgi::value column2modify {}]
+	set new_value [::ncgi::value newcolumnvalue {}]
+
+	if { $subaction eq "Cancel" } {
+		return
+	}
+
+	if { $subaction eq "Submit" } {
+		UpdateColValue4UserNameNonWeb $modified_column $modified_user $new_value
+		UpdateGradesTableStatistic $permission_list  $user
+	}
+}
+
+proc htmlEditUserGradeValue {permission_list user } {
+	global script_name
+	set modified_user [::ncgi::value user2modify {}]
+	set modified_column [::ncgi::value column2modify {}]
+
+	set current_group_name [SelectColValue4User GroupName $modified_user]
+	set FirstName [SelectColValue4User FirstName $modified_user]
+	set LastName [SelectColValue4User LastName $modified_user]
+	set old_value [SelectColValue4User $modified_column $modified_user]
+	puts "<div class=edit_user_grade_request>"
+	puts "Change grade for student <b>$FirstName $LastName</b> with user name $modified_user"
+	puts "<form name=\"input\" action=\"$script_name\" method=\"post\" >"
+	puts "<b>$modified_column</b> old value: \{$old_value\},"
+	puts "new value:  <input name=\"newcolumnvalue\" value=\"$old_value\" ><br>"
+	puts {<input type="hidden" name="action" value="edit_user_grade">}
+	puts [join [ list {<input type="hidden" name="user2modify" value="} $modified_user {">} ] ""]
+	puts [join [ list {<input type="hidden" name="column2modify" value="} $modified_column {">} ] "" ]
+	puts {<input type="submit" name="subaction" value="Submit" >}
+	puts {<input type="submit" name="subaction" value="Cancel" >}
+	puts {</form>}
+	puts "</div>"
+}
+
 proc ChangeGroupName {permission_list user } {
 	global script_name
 	set modified_user [::ncgi::value user2modify {}]