From f704eda583a930195bb0e5725aebd329d32a67fe Mon Sep 17 00:00:00 2001
From: "Eugeniy E. Mikhailov" <evgmik@gmail.com>
Date: Sun, 9 Feb 2020 20:49:51 -0500
Subject: UserName is forced to be uniq

---
 GradeBook_lib.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'GradeBook_lib.tcl')

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index 17e0b0d..bcfb235 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -674,7 +674,7 @@ proc GetDefaultGradesTableColumn {} {
 	set l [list \
 		FirstName text\
 		LastName text\
-		UserName text\
+		UserName [list text NOT NULL UNIQUE]\
 		GroupName text\
 		UserHiddenColums text\
 		UserHiddenGroups text\
-- 
cgit v1.2.3