|
version 1.163, 2015/06/06 14:08:58
|
version 1.164, 2015/06/06 14:39:42
|
|
Line 395 ENDSCRIPT
|
Line 395 ENDSCRIPT
|
| alink => "$alink",
|
alink => "$alink",
|
| onload => 'javascript:enableInput();',);
|
onload => 'javascript:enableInput();',);
|
|
|
|
| my ($lonhost_in_use,$headextra);
|
my ($lonhost_in_use,$headextra,$headextra_exempt,@hosts,%defaultdomconf);
|
| my @hosts = &Apache::lonnet::current_machine_ids();
|
@hosts = &Apache::lonnet::current_machine_ids();
|
| my $lonhost_in_use = $lonhost;
|
$lonhost_in_use = $lonhost;
|
| if (@hosts > 1) {
|
if (@hosts > 1) {
|
| foreach my $hostid (@hosts) {
|
foreach my $hostid (@hosts) {
|
| if (&Apache::lonnet::host_domain($hostid) eq $defdom) {
|
if (&Apache::lonnet::host_domain($hostid) eq $defdom) {
|
|
Line 406 ENDSCRIPT
|
Line 406 ENDSCRIPT
|
| }
|
}
|
| }
|
}
|
| }
|
}
|
| my %defaultdomconf = &Apache::loncommon::get_domainconf($defdom);
|
%defaultdomconf = &Apache::loncommon::get_domainconf($defdom);
|
| my $headextra = $defaultdomconf{$defdom.'.login.headtag_'.$lonhost_in_use};
|
$headextra = $defaultdomconf{$defdom.'.login.headtag_'.$lonhost_in_use};
|
| my $headextra_exempt = $defaultdomconf{$domain.'.login.headtag_exempt_'.$lonhost_in_use};
|
$headextra_exempt = $defaultdomconf{$domain.'.login.headtag_exempt_'.$lonhost_in_use};
|
| if ($headextra) {
|
if ($headextra) {
|
| my $omitextra;
|
my $omitextra;
|
| if ($headextra_exempt ne '') {
|
if ($headextra_exempt ne '') {
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth