diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 0389cb0..4eb7973 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -25,6 +25,8 @@ set password [::ncgi::cookie password] set action [::ncgi::value action defaultview] # end of read cookies +# get hostname +if { [catch {set host_name $env(SERVER_NAME)} errStat] } { set request_uri unknown} # script uri if { [catch {set script_name $env(SCRIPT_NAME)} errStat] } { set script_name unknown} # figure out course db filename |