[BACK]Return to lonlogin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonlogin.pm between versions 1.44 and 1.44.2.1

version 1.44, 2003/08/05 12:52:23 version 1.44.2.1, 2003/08/26 19:47:33
Line 73  sub handler { Line 73  sub handler {
     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');
       if (($ENV{'form.domain'}) && 
    ($Apache::lonnet::domaindescription{$ENV{'form.domain'}})) {
    $domain=$ENV{'form.domain'};
       }
     my $role    = $r->dir_config('lonRole');      my $role    = $r->dir_config('lonRole');
     my $loadlim = $r->dir_config('lonLoadLim');      my $loadlim = $r->dir_config('lonLoadLim');
     my $servadm = $r->dir_config('lonAdmEMail');      my $servadm = $r->dir_config('lonAdmEMail');
Line 183  ENDHEADER Line 187  ENDHEADER
   
 # ----------------------------------------------------------- Front page design  # ----------------------------------------------------------- Front page design
     my $pgbg=      my $pgbg=
       ($fullgraph?&Apache::loncommon::designparm('login.pgbg'):'#FFFFFF');        ($fullgraph?&Apache::loncommon::designparm('login.pgbg',$domain):'#FFFFFF');
     my $font=      my $font=
       ($fullgraph?&Apache::loncommon::designparm('login.font'):'#000000');        ($fullgraph?&Apache::loncommon::designparm('login.font',$domain):'#000000');
     my $link=      my $link=
       ($fullgraph?&Apache::loncommon::designparm('login.link'):'#0000FF');        ($fullgraph?&Apache::loncommon::designparm('login.link',$domain):'#0000FF');
     my $vlink=      my $vlink=
       ($fullgraph?&Apache::loncommon::designparm('login.vlink'):'#0000FF');        ($fullgraph?&Apache::loncommon::designparm('login.vlink',$domain):'#0000FF');
     my $alink=&Apache::loncommon::designparm('login.alink');      my $alink=&Apache::loncommon::designparm('login.alink',$domain);
     my $mainbg=      my $mainbg=
       ($fullgraph?&Apache::loncommon::designparm('login.mainbg'):'#FFFFFF');        ($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF');
     my $sidebg=      my $sidebg=
       ($fullgraph?&Apache::loncommon::designparm('login.sidebg'):'#FFFFFF');        ($fullgraph?&Apache::loncommon::designparm('login.sidebg',$domain):'#FFFFFF');
     my $logo=&Apache::loncommon::designparm('login.logo');      my $logo=&Apache::loncommon::designparm('login.logo',$domain);
     my $img=&Apache::loncommon::designparm('login.img');      my $img=&Apache::loncommon::designparm('login.img',$domain);
   
   
 # ---------------------------------------------------------- Serve rest of page  # ---------------------------------------------------------- Serve rest of page
Removed from v.1.44  
changed lines
  Added in v.1.44.2.1

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>