[LON-CAPA-cvs] cvs: loncom(version_2_8_X) /auth lonlogin.pm

[raeburn]

raeburn		Wed Dec 10 17:45:29 2008 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/auth	lonlogin.pm 
  Log:
  - Backport 1.109.
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.106 loncom/auth/lonlogin.pm:1.106.2.1
--- loncom/auth/lonlogin.pm:1.106	Thu Oct  2 11:28:49 2008
+++ loncom/auth/lonlogin.pm	Wed Dec 10 17:45:29 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.106 2008/10/02 11:28:49 bisitz Exp $
+# $Id: lonlogin.pm,v 1.106.2.1 2008/12/10 17:45:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -266,6 +266,14 @@
     if ($login eq '') {
         $login = $iconpath.'/'.&mt('userauthentication.gif');
     }
+    my $showbanner = 1;
+    my $showmainlogo = 1;
+    if (defined(&Apache::loncommon::designparm('login.showlogo_img',$domain))) {
+        $showbanner = &Apache::loncommon::designparm('login.showlogo_img',$domain);
+    }
+    if (defined(&Apache::loncommon::designparm('login.showlogo_logo',$domain))) {
+        $showmainlogo = &Apache::loncommon::designparm('login.showlogo_logo',$domain);
+    }
     my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain);
     my $showcoursecat =
         &Apache::loncommon::designparm('login.coursecatalog',$domain);
@@ -410,12 +418,21 @@
     if ($shownewuserlink) {
         $newuserlink = &newuser_link($lt{'newuser'});
     }
-    if ($fullgraph) { $r->print(<<ENDTOP);
+    if ($fullgraph) {
+        $r->print(<<HEADER);
   <!-- The LON-CAPA Header -->
   <tr>
 
    <!-- Row 1 Columns 2-4 -->
-   <td width="100%" height=75 colspan=4 align="left" valign="top" bgcolor="$pgbg"><img src="$img" border=0 alt="The Learning Online Network with CAPA" /></td>
+   <td width="100%" height=75 colspan=4 align="left" valign="top" bgcolor="$pgbg">
+HEADER
+        if ($showbanner) {
+            $r->print(<<ENDBANNER); 
+<img src="$img" border=0 alt="The Learning Online Network with CAPA" />
+ENDBANNER
+        }
+        $r->print(<<ENDSTART);
+   </td>
   </tr>
 
   <!-- The gray bar that starts the two table frames -->
@@ -459,9 +476,15 @@
    <!-- The right main column holding the large LON-CAPA logo-->
    <!-- Rows 3-4 Column 3 -->
    <td align="center" valign="top" width="100%" height="100%" bgcolor="$mainbg">
+ENDSTART
+        if ($showmainlogo) {
+            $r->print(<<ENDLOGO);
     <center>
      <img src="$logo" alt="" />
     </center>
+ENDLOGO
+        }
+        $r->print(<<ENDTOP);
    </td>
 
    <!-- Row 3 Column 4 -->
@@ -473,11 +496,11 @@
    <!-- Row 4 Column 1 -->
    <td align="center" valign="middle" bgcolor="$sidebg">
 ENDTOP
-} else {
-    $r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1>'
-             .'<h2>'.&mt('Text-based Interface Login').'</h2>'
-             .$announcements);
-}
+    } else {
+        $r->print('<h1>The Learning<i>Online</i> Network with CAPA</h1>'
+                 .'<h2>'.&mt('Text-based Interface Login').'</h2>'
+                 .$announcements);
+    }
     $r->print('<form name="client" onsubmit="return(send())">');
     unless ($fullgraph) {
         $r->print(<<ENDACCESSOPTIONS);
@@ -490,8 +513,8 @@
 <br />
 <input type="checkbox" name="remember" /> $lt{'remember'}<hr />
 ENDACCESSOPTIONS
-} else {
-    $r->print(<<ENDNOOPT);
+    } else {
+        $r->print(<<ENDNOOPT);
 <input type="hidden" name="imagesuppress"  value="" />
 <input type="hidden" name="embedsuppress"  value="" />
 <input type="hidden" name="appletsuppress"  value="" />
@@ -499,7 +522,7 @@
 <input type="hidden" name="blackwhite"  value="" />
 <input type="hidden" name="remember"  value="" />
 ENDNOOPT
-}
+    }
     my $logintitle;
     if ($loginheader eq 'text') {
         $logintitle = '<td bgcolor="'.$bgcol.'" colspan="2">&nbsp;&nbsp;&nbsp;<b><font size="+1" color="'.$textcol.'">'.$lt{'log'}.'</font></b></td>';