--- loncom/auth/lonlogin.pm	2004/08/10 18:55:13	1.58
+++ loncom/auth/lonlogin.pm	2005/02/21 18:29:25	1.62.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.58 2004/08/10 18:55:13 matthew Exp $
+# $Id: lonlogin.pm,v 1.62.2.1 2005/02/21 18:29:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -141,6 +141,7 @@ ENDFAILED
     my $otherserver='http://'.$ENV{'SERVER_NAME'};
     my $firsturl=
     ($ENV{'request.firsturl'}?$ENV{'request.firsturl'}:$ENV{'form.firsturl'});
+    my $escfirsturl=&Apache::lonnet::escape($firsturl);
 # ---------------------------------------- Are we access server and overloaded?
     if (($role eq 'access') &&
 	(($userloadpercent>100.0)||($loadpercent>100.0))) {
@@ -263,8 +264,8 @@ my %lt=&Apache::lonlocal::texthash(
 		  'help' => 'Help',
 		  'serv' => 'Server',
                   'servadm' => 'Server Administration',
-                  'sysadm' => 'System Administration');
-
+                  'sysadm' => 'System Administration',
+                  'helpdesk' => 'Contact Helpdesk');
 
 # ---------------------------------------------------------- Serve rest of page
     $r->print(<<ENDSCRIPT);
@@ -340,7 +341,7 @@ ENDSERVERFORM
   <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%" colspan=4 bgcolor="$sidebg"><h1><font color="$pgbg">Welcome to the LON-CAPA NSDL Gateway</font></h1><a href="/cgi-bin/signon.pl?$escfirsturl"><h3><font color="$pgbg">Sign up for a Guest Login</font></h3></a></td>
   </tr>
 
   <!-- The gray bar that starts the two table frames -->
@@ -447,6 +448,8 @@ ENDNOOPT
     </form>
 ENDLOGIN
     if ($fullgraph) {
+        my $helpdeskscript;
+        my $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version,$authdomain,\$helpdeskscript);
 	$r->print(<<ENDDOCUMENT);
    </td>
 
@@ -499,13 +502,7 @@ ENDLOGIN
       </tr>
      </table>
      <br />
-    <small>
-     <b>&nbsp;&nbsp;&nbsp;$lt{'sysadm'}:</b><br />
-     <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$sysadm</tt><br />
-     <b>&nbsp;&nbsp;&nbsp;$lt{'servadm'}:</b><br />
-     <tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$servadm</tt><br />&nbsp;<br />
-     &nbsp;&nbsp;&nbsp;$version
-    </small>
+    $contactblock
    </td>
 
    <!-- Row 5 Column 2 -->
@@ -535,16 +532,59 @@ $domainlogo
   </tr>
  </table>
 
-<script>
-// the if prevents the script error if the browser can't handle this
+<script type="text/javascript">
+// the if prevents the script error if the browser can not handle this
 if ( document.client.uname ) { document.client.uname.focus(); }
 </script>
+$helpdeskscript
 
 ENDDOCUMENT
 }
     $r->print('</body></html>');
     return OK;
-} 
+}
+
+sub contactdisplay {
+    my ($lt,$sysadm,$servadm,$version,$authdomain,$helpdeskscript) = @_;
+    my $contactblock;
+    my $showsysadm = 1;
+    my $showservadm = 1;
+    my $showhelpdesk = 0;
+    my $requestmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
+    if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
+        $showhelpdesk = 1;
+    }
+    if ($showsysadm) {
+        $contactblock .= '<b>&nbsp;&nbsp;&nbsp;'.$$lt{'sysadm'}.':</b><br />'.
+                         '<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$sysadm.'</tt><br />';
+    }
+    if ($showservadm) {
+        $contactblock .= '<b>&nbsp;&nbsp;&nbsp;'.$$lt{'servadm'}.':</b><br />'.
+                         '<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$servadm.'</tt><br />&nbsp;<br />';
+    }
+    if ($showhelpdesk) {
+        $contactblock .= '<b>&nbsp;&nbsp;&nbsp;<a href="javascript:helpdesk()">'.$$lt{'helpdesk'}.'</a></b><br />';
+        my $thisurl = &Apache::lonnet::escape('/adm/login');
+        $$helpdeskscript = <<"ENDSCRIPT";
+<script type="text/javascript">
+function helpdesk() {
+    var codedom = document.client.udom.value;
+    if (codedom == '') {
+        codedom = "$authdomain";
+    }
+    var querystr = "origurl=$thisurl&codedom="+codedom;
+    document.location.href = "/adm/helpdesk?"+querystr;
+    return;
+}
+</script>
+ENDSCRIPT
+    }
+    $contactblock .= <<"ENDBLOCK";
+     &nbsp;&nbsp;&nbsp;$version
+ENDBLOCK
+    return $contactblock;
+}
+ 
 
 1;
 __END__