version 1.38, 2003/03/10 14:29:37
|
version 1.40, 2003/04/03 21:53:51
|
Line 50 sub handler {
|
Line 50 sub handler {
|
|
|
|
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['interface','username','domain','firsturl']); |
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'}, |
|
['interface','username','domain','firsturl']); |
|
|
# ----------------------------------------------------------- Process Interface |
# ----------------------------------------------------------- Process Interface |
$ENV{'form.interface'}=~s/\W//g; |
$ENV{'form.interface'}=~s/\W//g; |
|
|
Line 65 sub handler {
|
Line 66 sub handler {
|
} |
} |
|
|
my $fullgraph=($ENV{'form.interface'} ne 'textual'); |
my $fullgraph=($ENV{'form.interface'} ne 'textual'); |
|
my $port_to_use=$r->dir_config('lonhttpdPort'); |
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':8080'. |
if (!defined($port_to_use)) { |
|
$port_to_use='8080'; |
|
} |
|
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use. |
$r->dir_config('lonIconsURL'); |
$r->dir_config('lonIconsURL'); |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
my $role = $r->dir_config('lonRole'); |
my $role = $r->dir_config('lonRole'); |