version 1.66, 2005/06/07 13:42:03
|
version 1.69, 2005/11/23 20:46:04
|
Line 60 sub handler {
|
Line 60 sub handler {
|
my $handle=$lonid->value; |
my $handle=$lonid->value; |
$handle=~s/\W//g; |
$handle=~s/\W//g; |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
my $lonidsdir=$r->dir_config('lonIDsDir'); |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '')) { |
if ((-e "$lonidsdir/$handle.id") && ($handle ne '') && ($handle!~/^publicuser\_/)) { |
# Indeed, a valid token is found |
# Indeed, a valid token is found |
my $bodytag=&Apache::loncommon::bodytag('Already logged in'); |
my $bodytag=&Apache::loncommon::bodytag('Already logged in'); |
$r->print(<<ENDFAILED); |
$r->print(<<ENDFAILED); |
Line 108 ENDFAILED
|
Line 108 ENDFAILED
|
my $iconpath= 'http://'.$ENV{'HTTP_HOST'}.':'.$port_to_use. |
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 $testdomain=(split(/\./,$ENV{'HTTP_HOST'}))[0]; |
|
foreach my $posdom (&Apache::lonnet::current_machine_domains()) { |
|
if ($posdom eq $testdomain) { $domain=$testdomain; } |
|
} |
if (($env{'form.domain'}) && |
if (($env{'form.domain'}) && |
($Apache::lonnet::domaindescription{$env{'form.domain'}})) { |
($Apache::lonnet::domaindescription{$env{'form.domain'}})) { |
$domain=$env{'form.domain'}; |
$domain=$env{'form.domain'}; |
Line 420 ENDTOP
|
Line 424 ENDTOP
|
unless ($fullgraph) { |
unless ($fullgraph) { |
$r->print(<<ENDACCESSOPTIONS); |
$r->print(<<ENDACCESSOPTIONS); |
<h3>Select Accessibility Options</h3> |
<h3>Select Accessibility Options</h3> |
<input type="checkbox" name="imagesuppress" /> Suppress rendering of images<br /> |
<label><input type="checkbox" name="imagesuppress" /> Suppress rendering of images</label><br /> |
<input type="checkbox" name="appletsuppress" /> Suppress Java applets<br /> |
<label><input type="checkbox" name="appletsuppress" /> Suppress Java applets</label><br /> |
<input type="checkbox" name="embedsuppress" /> Suppress rendering of embedded multimedia<br /> |
<label><input type="checkbox" name="embedsuppress" /> Suppress rendering of embedded multimedia</label><br /> |
<input type="checkbox" name="fontenhance" /> Increase font size<br /> |
<label><input type="checkbox" name="fontenhance" /> Increase font size</label><br /> |
<input type="checkbox" name="blackwhite" /> Switch to black and white mode<br /> |
<label><input type="checkbox" name="blackwhite" /> Switch to black and white mode</label><br /> |
<p>If you have accessibility needs that are not addressed by this interface, |
<p>If you have accessibility needs that are not addressed by this interface, |
please |
please |
contact the system administrator at <tt>$sysadm</tt>.</p><br /> |
contact the system administrator at <tt>$sysadm</tt>.</p><br /> |