version 1.155, 2013/01/28 02:00:58
|
version 1.156, 2013/09/13 21:28:18
|
Line 111 sub handler {
|
Line 111 sub handler {
|
# ----------------------------------------------------------- Process Interface |
# ----------------------------------------------------------- Process Interface |
$env{'form.interface'}=~s/\W//g; |
$env{'form.interface'}=~s/\W//g; |
|
|
my $httpbrowser=$ENV{"HTTP_USER_AGENT"}; |
(undef,undef,undef,undef,undef,undef,my $clientmobile) = |
|
&Apache::loncommon::decode_user_agent(); |
|
|
my $iconpath= |
my $iconpath= |
&Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL')); |
&Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL')); |
Line 433 ENDSERVERFORM
|
Line 434 ENDSERVERFORM
|
$authdomain,\$helpdeskscript, |
$authdomain,\$helpdeskscript, |
$showhelpdesk,\@possdoms); |
$showhelpdesk,\@possdoms); |
|
|
|
my $mobileargs; |
|
if ($clientmobile) { |
|
$mobileargs = 'autocapitalize="off" autocorrect="off"'; |
|
} |
my $loginform=(<<LFORM); |
my $loginform=(<<LFORM); |
<form name="client" action="" onsubmit="return(send())"> |
<form name="client" action="" onsubmit="return(send())"> |
<input type="hidden" name="lextkey" value="$lextkey" /> |
<input type="hidden" name="lextkey" value="$lextkey" /> |
<input type="hidden" name="uextkey" value="$uextkey" /> |
<input type="hidden" name="uextkey" value="$uextkey" /> |
<b><label for="uname">$lt{'un'}</label>:</b><br /> |
<b><label for="uname">$lt{'un'}</label>:</b><br /> |
<input type="text" name="uname" id="uname" size="15" value="$authusername" readonly="readonly" /><br /> |
<input type="text" name="uname" id="uname" size="15" value="$authusername" readonly="readonly" $mobileargs /><br /> |
<b><label for="upass$now">$lt{'pw'}</label>:</b><br /> |
<b><label for="upass$now">$lt{'pw'}</label>:</b><br /> |
<input type="password" name="upass$now" id="upass$now" size="15" readonly="readonly" /><br /> |
<input type="password" name="upass$now" id="upass$now" size="15" readonly="readonly" /><br /> |
<b><label for="udom">$lt{'dom'}</label>:</b><br /> |
<b><label for="udom">$lt{'dom'}</label>:</b><br /> |
<input type="text" name="udom" id="udom" size="15" value="$authdomain" readonly="readonly" /><br /> |
<input type="text" name="udom" id="udom" size="15" value="$authdomain" readonly="readonly" $mobileargs /><br /> |
<input type="submit" value="$lt{'log'}" /> |
<input type="submit" value="$lt{'log'}" /> |
</form> |
</form> |
LFORM |
LFORM |