version 1.160, 2014/12/05 12:03:20
|
version 1.161, 2015/03/03 22:06:55
|
Line 126 sub handler {
|
Line 126 sub handler {
|
|
|
my $lonhost = $r->dir_config('lonHostID');
|
my $lonhost = $r->dir_config('lonHostID');
|
my $domain = &Apache::lonnet::default_login_domain();
|
my $domain = &Apache::lonnet::default_login_domain();
|
|
my $defdom = $domain;
|
if ($lonhost ne '') {
|
if ($lonhost ne '') {
|
unless ($sessiondata{'sessionserver'}) {
|
unless ($sessiondata{'sessionserver'}) {
|
my $redirect = &check_loginvia($domain,$lonhost);
|
my $redirect = &check_loginvia($domain,$lonhost);
|
Line 385 ENDSCRIPT
|
Line 386 ENDSCRIPT
|
alink => "$alink",
|
alink => "$alink",
|
onload => 'javascript:enableInput();',);
|
onload => 'javascript:enableInput();',);
|
|
|
|
my %defaultdomconf = &Apache::loncommon::get_domainconf($defdom);
|
|
my $headextra = $defaultdomconf{$defdom.'.login.headtag_'.$lonhost};
|
|
my $headextra_exempt = $defaultdomconf{$domain.'.login.headtag_exempt_'.$lonhost};
|
|
if ($headextra) {
|
|
my $omitextra;
|
|
if ($headextra_exempt ne '') {
|
|
my @exempt = split(',',$headextra_exempt);
|
|
my $ip = $ENV{'REMOTE_ADDR'};
|
|
if (grep(/^\Q$ip\E$/,@exempt)) {
|
|
$omitextra = 1;
|
|
}
|
|
}
|
|
unless ($omitextra) {
|
|
my $confname = $defdom.'-domainconfig';
|
|
if ($headextra =~ m{^\Q/res/$defdom/$confname/login/headtag/$lonhost/\E}) {
|
|
my $extra = &Apache::lonnet::getfile(&Apache::lonnet::filelocation("",$headextra));
|
|
unless ($extra eq '-1') {
|
|
$js .= "\n".$extra."\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
$r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js,
|
$r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js,
|
{ 'redirect' => [$expire,'/adm/roles'],
|
{ 'redirect' => [$expire,'/adm/roles'],
|
'add_entries' => \%add_entries,
|
'add_entries' => \%add_entries,
|