--- loncom/auth/lonlogin.pm	2004/11/11 22:18:23	1.60
+++ 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.60 2004/11/11 22:18:23 raeburn 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))) {
@@ -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,7 +448,8 @@ ENDNOOPT
     </form>
 ENDLOGIN
     if ($fullgraph) {
-        my $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version);
+        my $helpdeskscript;
+        my $contactblock = &contactdisplay(\%lt,$sysadm,$servadm,$version,$authdomain,\$helpdeskscript);
 	$r->print(<<ENDDOCUMENT);
    </td>
 
@@ -534,6 +536,7 @@ $domainlogo
 // the if prevents the script error if the browser can not handle this
 if ( document.client.uname ) { document.client.uname.focus(); }
 </script>
+$helpdeskscript
 
 ENDDOCUMENT
 }
@@ -542,11 +545,15 @@ ENDDOCUMENT
 }
 
 sub contactdisplay {
-    my ($lt,$sysadm,$servadm,$version) = @_;
+    my ($lt,$sysadm,$servadm,$version,$authdomain,$helpdeskscript) = @_;
     my $contactblock;
     my $showsysadm = 1;
     my $showservadm = 1;
-    my $showhelpdesk = 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 />';
@@ -556,7 +563,21 @@ sub contactdisplay {
                          '<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$servadm.'</tt><br />&nbsp;<br />';
     }
     if ($showhelpdesk) {
-        $contactblock .= '<b>&nbsp;&nbsp;&nbsp;<a href="/adm/helpdesk">'.$$lt{'helpdesk'}.'</a></b><br />';
+        $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