version 1.49, 2003/09/11 20:54:11
|
version 1.50, 2003/09/16 18:15:43
|
Line 41 use Apache::File ();
|
Line 41 use Apache::File ();
|
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonauth(); |
use Apache::lonauth(); |
|
use Apache::lonlocal; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 60 sub handler {
|
Line 61 sub handler {
|
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'}, |
($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'}, |
['interface','username','domain','firsturl','localpath','localres']); |
['interface','username','domain','firsturl','localpath','localres']); |
|
|
|
# -------------------------------------------------------------------- Language |
|
|
|
&Apache::lonlocal::get_language_handle(); |
|
|
# ----------------------------------------------------------- Process Interface |
# ----------------------------------------------------------- Process Interface |
$ENV{'form.interface'}=~s/\W//g; |
$ENV{'form.interface'}=~s/\W//g; |
|
|