diff options
| -rwxr-xr-x | GradeBook.tcl | 3 |
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" />} |