version 1.152, 2012/08/27 00:52:45
|
version 1.155, 2013/01/28 02:00:58
|
Line 289 sub handler {
|
Line 289 sub handler {
|
if (defined(&Apache::loncommon::designparm('login.showlogo_logo',$domain))) { |
if (defined(&Apache::loncommon::designparm('login.showlogo_logo',$domain))) { |
$showmainlogo = &Apache::loncommon::designparm('login.showlogo_logo',$domain); |
$showmainlogo = &Apache::loncommon::designparm('login.showlogo_logo',$domain); |
} |
} |
my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain); |
my $showadminmail; |
|
my @possdoms = &Apache::lonnet::current_machine_domains(); |
|
if (grep(/^\Q$domain\E$/,@possdoms)) { |
|
$showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain); |
|
} |
my $showcoursecat = |
my $showcoursecat = |
&Apache::loncommon::designparm('login.coursecatalog',$domain); |
&Apache::loncommon::designparm('login.coursecatalog',$domain); |
my $shownewuserlink = |
my $shownewuserlink = |
&Apache::loncommon::designparm('login.newuser',$domain); |
&Apache::loncommon::designparm('login.newuser',$domain); |
|
my $showhelpdesk = |
|
&Apache::loncommon::designparm('login.helpdesk',$domain); |
my $now=time; |
my $now=time; |
my $js = (<<ENDSCRIPT); |
my $js = (<<ENDSCRIPT); |
|
|
Line 424 ENDSERVERFORM
|
Line 430 ENDSERVERFORM
|
.'</b></span></noscript>'; |
.'</b></span></noscript>'; |
my $helpdeskscript; |
my $helpdeskscript; |
my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, |
my $contactblock = &contactdisplay(\%lt,$servadm,$showadminmail, |
$authdomain,\$helpdeskscript); |
$authdomain,\$helpdeskscript, |
|
$showhelpdesk,\@possdoms); |
|
|
my $loginform=(<<LFORM); |
my $loginform=(<<LFORM); |
<form name="client" action="" onsubmit="return(send())"> |
<form name="client" action="" onsubmit="return(send())"> |
Line 617 sub redirect_page {
|
Line 624 sub redirect_page {
|
} |
} |
|
|
sub contactdisplay { |
sub contactdisplay { |
my ($lt,$servadm,$showadminmail,$authdomain,$helpdeskscript) = @_; |
my ($lt,$servadm,$showadminmail,$authdomain,$helpdeskscript,$showhelpdesk, |
|
$possdoms) = @_; |
my $contactblock; |
my $contactblock; |
my $showhelpdesk = 0; |
my $origmail; |
my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
if (ref($possdoms) eq 'ARRAY') { |
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
if (grep(/^\Q$authdomain\E$/,@{$possdoms})) { |
$showhelpdesk = 1; |
$origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; |
|
} |
|
} |
|
my $requestmail = |
|
&Apache::loncommon::build_recipient_list(undef,'helpdeskmail', |
|
$authdomain,$origmail); |
|
unless ($showhelpdesk eq '0') { |
|
if ($requestmail =~ m/[^\@]+\@[^\@]+/) { |
|
$showhelpdesk = 1; |
|
} else { |
|
$showhelpdesk = 0; |
|
} |
} |
} |
if ($servadm && $showadminmail) { |
if ($servadm && $showadminmail) { |
$contactblock .= $$lt{'servadm'}.':<br />'. |
$contactblock .= $$lt{'servadm'}.':<br />'. |
Line 635 sub contactdisplay {
|
Line 654 sub contactdisplay {
|
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
function helpdesk() { |
function helpdesk() { |
var codedom = document.client.udom.value; |
var possdom = document.client.udom.value; |
|
var codedom = possdom.replace( new RegExp("[^A-Za-z0-9.\\-]","g"),''); |
if (codedom == '') { |
if (codedom == '') { |
codedom = "$authdomain"; |
codedom = "$authdomain"; |
} |
} |