login fill info from cookie

Ignore-this: 8b1bb2979b5238fab9a53856b2aafbe3

darcs-hash:20110124024724-067c0-f2f754dbacb92bef402cf2ef90e6bcb00bdc611c.gz

1 files changed, 2 insertions, 1 deletions

diff --git a/GradeBook.tcl b/GradeBook.tcl
index 24dfdbd..9292cd3 100755
--- a/GradeBook.tcl
+++ b/GradeBook.tcl
@@ -302,11 +302,12 @@ proc Greetings {} {
 
 proc askToLogin {} {
 	global script_name
+	global user password
 	puts "<div class=\"login\">"
 	puts "Either you are here first time or you password and user name does not match. <br>"
 	puts "Please login <br>"
 	puts "<form name=\"input\" action=\"$script_name\" method=\"post\" />"
-	puts {Login: <input type="text" name="user"><br>}
+	puts "Login: <input type=\"text\" name=\"user\" value=\"$user\"><br>"
 	puts {Password: <input type="password" name="password"><br>}
 	puts {<input type="hidden" name="action" value="logon"/>}
 	puts {<input type="submit" value="Submit" />}