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

Diff for /modules/gci/lonlogin.pm between versions 1.3 and 1.16

version 1.3, 2009/09/24 14:42:27 version 1.16, 2023/03/22 16:32:51
Line 30  package Apache::lonlogin; Line 30  package Apache::lonlogin;
   
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::File ();  use Apache::File();
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonauth();  use Apache::lonauth();
Line 38  use Apache::lonlocal; Line 38  use Apache::lonlocal;
 use Apache::migrateuser();  use Apache::migrateuser();
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA;  use LONCAPA;
   use HTML::Entities();
     
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 62  sub handler { Line 63  sub handler {
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
   
 # Are we re-routing?  # Are we re-routing?
     if (-e '/home/httpd/html/lon-status/reroute.txt') {      if (-e '/home/httpd/html/lon-status/reroute.txt') {
  &Apache::lonauth::reroute($r);   &Apache::lonauth::reroute($r);
Line 81  sub handler { Line 81  sub handler {
     &Apache::loncommon::start_page('Already logged in');      &Apache::loncommon::start_page('Already logged in');
  my $end_page =    my $end_page = 
     &Apache::loncommon::end_page();      &Apache::loncommon::end_page();
           my $dest = '/adm/roles';
           if ($env{'form.role'}) {
               $dest .= '?selectrole=1&'.$env{'form.role'}.'=1';
           }
           if ($env{'form.symb'}) {
               $dest .= ($dest =~ /\?/) ? '&' : '?'; 
               $dest .= 'destinationurl='.&HTML::Entities::encode($env{'form.symb'},'"&<>');
           }
           if ($env{'form.firsturl'} ne '') {
               $dest = $env{'form.firsturl'};
           }
  $r->print(   $r->print(
                   $start_page                    $start_page
                  .'<h1>'.&mt('You are already logged in!').'</h1>'                   .'<h1>'.&mt('You are already logged in!').'</h1>'
                  .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].',                   .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].',
                   '<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').'</p>'                    '<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>').'</p>'
                  .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'                   .'<p><a href="/adm/loginproblems.html">'.&mt('Login problems?').'</a></p>'
                  .$end_page                   .$end_page
                  );                   );
Line 121  sub handler { Line 132  sub handler {
  (&Apache::lonnet::domain($env{'form.domain'},'description'))) {   (&Apache::lonnet::domain($env{'form.domain'},'description'))) {
  $domain=$env{'form.domain'};   $domain=$env{'form.domain'};
     }      }
       my %longname = (
                        GCI  => 'Geoscience Concept Inventory',
                        SLCI => 'Science Literacy Concept Inventory',
                      );
       my %allnums = &Apache::loncommon::get_faculty_cnums();
       my ($inventory,$uc_inventory,$testdom);
       if ($domain =~ /^(\w+ci)test$/) {
           $inventory = $1;
           $testdom = $domain;
       } else {
           $inventory = $domain;
           $testdom = $domain.'test';
       }
       $uc_inventory = uc($inventory);
       my $sitename; = $uc_inventory.' WebCenter';
       my $shortsitename = 'WebCenter';
       my $existing = 'Existing WebCenter user?';
       my $sitedesc = &mt('The [_1]WebCenter[_2] is a place to comment on existing concept questions, or submit new ones, and is also a place to build and manage Concept Tests which your students will complete via the [_3]Testing Center[_2].',$longname{$inventory}.' ('.$uc_inventory.') <a href="http://'.$inventory.'.lite.msu.edu/">','</a>','<a href="http://'.$testdom.'.lite.msu.edu/adm/login">');
     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 130  sub handler { Line 159  sub handler {
     my $expire  = $r->dir_config('lonExpire');      my $expire  = $r->dir_config('lonExpire');
     my $version = $r->dir_config('lonVersion');      my $version = $r->dir_config('lonVersion');
     my $host_name = &Apache::lonnet::hostname($lonhost);      my $host_name = &Apache::lonnet::hostname($lonhost);
       if ($domain =~ /^(\w+ci)test$/) {
           $lonhost = $domain.'l1';
           $host_name = $domain.'.lite.msu.edu';
           $sitename = $inventory.' Testing Center';
           $shortsitename = 'Testing Center';
           $existing = 'Student with Testing Center account?';
           $sitedesc = &mt('The [_1] Testing Center is used by [_2]students[_3] to complete online concept tests created by their instructors using questions available in the [_4].',$inventory,'<i>','</i>',$longname{$inventory});
       }
   
 # --------------------------------------------- Default values for login fields  # --------------------------------------------- Default values for login fields
   
Line 183  sub handler { Line 220  sub handler {
     if ($env{'form.role'}) {      if ($env{'form.role'}) {
         $tokenextras = '&role='.&escape($env{'form.role'});          $tokenextras = '&role='.&escape($env{'form.role'});
     }      }
       if ($domain !~ /^\w+citest$/) {
           unless ($env{'form.symb'} eq '/adm/statistics') {
               $env{'form.symb'} = '/adm/ci_info';
           }
       }
     if ($env{'form.symb'}) {      if ($env{'form.symb'}) {
         if (!$tokenextras) {          if (!$tokenextras) {
             $tokenextras = '&';              $tokenextras = '&';
Line 190  sub handler { Line 232  sub handler {
         $tokenextras .= '&symb='.&escape($env{'form.symb'});          $tokenextras .= '&symb='.&escape($env{'form.symb'});
     }      }
     my $logtoken=Apache::lonnet::reply(      my $logtoken=Apache::lonnet::reply(
        'tmpput:'.$ukey.$lkey.'&'.$firsturl,         'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras,
        $lonhost);         $lonhost);
   
 # ------------------- If we cannot talk to ourselves, we are in serious trouble  # ------------------- If we cannot talk to ourselves, we are in serious trouble
Line 239  sub handler { Line 281  sub handler {
           .'<body bgcolor="#FFFFFF">'            .'<body bgcolor="#FFFFFF">'
           .'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>'            .'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>'
           .'<img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />'            .'<img src="/adm/lonKaputt/lonlogo_broken.gif" align="right" />'
           .'<h3>'.&mt('The GCI WebCenter server is temporarily not available for login.').'</h3>'            .'<h3>'.&mt("The $sitename server is temporarily not available for login.").'</h3>'
           .'</body>'            .'</body>'
           .'</html>'            .'</html>'
         );          );
Line 292  sub handler { Line 334  sub handler {
     my $js = (<<ENDSCRIPT);      my $js = (<<ENDSCRIPT);
   
  <script type="text/javascript" language="JavaScript">   <script type="text/javascript" language="JavaScript">
 // <![CDATA[   // <![CDATA[
   
     function send(caller)      function send(caller)
     {      {
   
Line 350  sub handler { Line 393  sub handler {
         this.document.server.submit();          this.document.server.submit();
         return false;          return false;
     }      }
 // ]]>   // ]]>
  </script>   </script>
   
 ENDSCRIPT  ENDSCRIPT
   
 # --------------------------------------------------- Print login screen header  # --------------------------------------------------- Print login screen header
Line 368  ENDSCRIPT Line 412  ENDSCRIPT
                        onload       => "if ( document.client.uname ) { document.client.uname.focus(); }",                         onload       => "if ( document.client.uname ) { document.client.uname.focus(); }",
                        marginheight => "0",);                         marginheight => "0",);
   
     $js .= "\n".'<link type="text/css" rel="stylesheet" href="/css/login.css">'."\n";      my $css_url = "/css/$domain/login.css";
     $r->print(&Apache::loncommon::start_page('GCI WebCenter Login',$js,      $js .= "\n".'<link type="text/css" rel="stylesheet" href="'.$css_url.'">'."\n";
       $r->print(&Apache::loncommon::start_page($uc_inventory.' WebCenter Login',$js,
                                        { 'redirect'       => [$expire,'/adm/roles'],                                          { 'redirect'       => [$expire,'/adm/roles'], 
                                          'add_entries' => \%add_entries,                                           'add_entries' => \%add_entries,
                                          'only_body'   => 1,}));                                           'only_body'   => 1,}));
Line 420  my %lt=&Apache::lonlocal::texthash( Line 465  my %lt=&Apache::lonlocal::texthash(
         $newuserlink = &newuser_link($lt{'newuser'});          $newuserlink = &newuser_link($lt{'newuser'});
     }      }
     if ($fullgraph) {      if ($fullgraph) {
         $r->print(<<"END_OF_BLOCK2");          $r->print(<<"END_OF_BLOCK1");
 <br />  <br />
 <div align="center">  <div align="center">
 <table class="LC_loginbox">  <table class="LC_loginbox">
   <tr>    <tr>
     <td align="left" valign="top" width="12">      <td align="left" valign="top" width="11">
      <img name="login_r1_c1" src="/images/login/lclogin_r1_c1.gif" width="12" height="10" border="0" alt="">       <img name="login_r1_c1" src="/images/login/$domain/r1_c1.png" width="11" height="11" border="0" alt="">
     </td>      </td>
     <td width="450" valign="top">      <td width="450" valign="top">
       <table class="LC_loginbox_left">        <table class="LC_loginbox_left">
         <tr>          <tr>
           <td width="411" align="left"><br /><img src="/images/login/gcilogo_smrnd.png" width="411" height="51" align="left"></td>            <td width="411" align="left"><br /><img src="/images/login/$domain/logo_smrnd.png" width="411" height="51" alt="$uc_inventory" align="left"></td>
         </tr>          </tr>
         <tr>          <tr>
          <td>           <td>
           <div align="left" style="display:block; margin-top:5px; margin-bottom:5px; margin-left:0px; margin-right:0px; width:440px; height:5px;">            <div align="left" style="display:block; margin-top:5px; margin-bottom:5px; margin-left:0px; margin-right:0px; width:440px; height:5px;">
            <div style="display:block; background-color:#4C6C84; width:100%; height:5px; color:#000000; margin:0px;">             <div class="divider">
             </div>              </div>
           </div>            </div>
         </td>          </td>
Line 449  my %lt=&Apache::lonlocal::texthash( Line 494  my %lt=&Apache::lonlocal::texthash(
        <tr>         <tr>
         <td width="10">&nbsp;</td>          <td width="10">&nbsp;</td>
         <td valign="top" class="bodyblue" width="430" align="left">          <td valign="top" class="bodyblue" width="430" align="left">
          <span style="font-size: 18px; line-height: 22px; "><font style="font-size: 18px; line-height: 22px;"><br />New to the WebCenter?</font></span><br>           <span style="font-size: 18px; line-height: 22px; "><font style="font-size: 18px; line-height: 22px;"><br />New to the $sitename?</font></span><br />
           <font class="bodyblue">The Geoscience Concept Inventory (GCI) <a href="http://gci.lite.msu.edu/">WebCenter</a> is a place to comment on existing concept questions and submit new ones.<br /><br />The WebCenter runs on <a href="http://loncapa.org/">LON-CAPA</a> - an open source freeware distributed learning content management and assessment system.</font><br /><br />            <font class="bodyblue">$sitedesc<br /><br />The $shortsitename runs on <a href="http://loncapa.org/">LON-CAPA</a> - an open source freeware distributed learning content management and assessment system.</font><br /><br />
           <font class="bodyblue"><b>Create a GCI WebCenter ID</b> &#150; use your ID to submit comments or new content.  If you are already a GCI WebCenter user, please log-in.</font><br /><br /><br />  END_OF_BLOCK1
          <form name="signup" method="post" action="/adm/createaccount?courseid=gci_9615072b469884921gcil1"><input type="hidden" name="process" value="signup"/>      if ($domain !~ /^\w+citest$/) {
           my $review;
           if (ref($allnums{$domain}) eq 'HASH') {
               $review = $domain.'_'.$allnums{$domain}{'review'};
           }
           $r->print(<<"END_OF_BLOCK2"); 
             <font class="bodyblue"><b>Create a $uc_inventory WebCenter ID</b> &#150; use your ID to submit comments or new content, or to create a new test.  If you are already a $uc_inventory WebCenter user, please log-in.</font><br /><br /><br />
            <form name="signup" method="post" action="/adm/createaccount?courseid=$review"><input type="hidden" name="process" value="signup"/>
          <table class="LC_signup">           <table class="LC_signup">
            <tr>             <tr>
              <td align="left" valign="top" width="10" height="9"><img src="/images/login/lclogin_r2_c4.png" width="11" height="11" border="0" alt=""></td>               <td align="left" valign="top" width="11" height="11"><img src="/images/login/$domain/r2_c4.png" width="11" height="11" border="0" alt=""></td>
              <td>&nbsp;</td>               <td>&nbsp;</td>
              <td align="right" valign="top" width="9" height="10"><img src="/images/login/lclogin_r2_c6.png" width="11 height="11" border="0" alt=""></td>               <td align="right" valign="top" width="11" height="11"><img src="/images/login/$domain/r2_c6.png" width="11" height="11" border="0" alt=""></td>
            </tr>             </tr>
            <tr>             <tr>
              <td align="center" valign="top" colspan="3">New to GCI WebCenter: <a href="javascript:send('newaccount')" style="color: #ffffff">Click here to sign up</a><br /></td>               <td>&nbsp;</td>
                <td align="center" valign="middle"><span style="white-space: nowrap;">New to $uc_inventory WebCenter:&nbsp;<a href="javascript:send('newaccount')" style="color: #ffffff">Click here to sign up</a></span></td>
                <td>&nbsp;</td>
            </tr>             </tr>
            <tr>             <tr>
              <td align="left" valign="bottom" width="10" height="10"><img src="/images/login/lclogin_r8_c4.png" width="11" height="11" border="0" alt=""></td>               <td align="left" valign="bottom" width="11" height="11"><img src="/images/login/$domain/r8_c4.png" width="11" height="11" border="0" alt=""></td>
              <td>&nbsp;</td>               <td>&nbsp;</td>
              <td align="right" valign="bottom" width="9" height="10"><img src="/images/login/lclogin_r8_c6.png" width="11" height="11" border="0" alt=""></td>               <td align="right" valign="bottom" width="11" height="11"><img src="/images/login/$domain/r8_c6.png" width="11" height="11" border="0" alt=""></td>
            </tr>             </tr>
          </table>           </table>
          </form>           </form>
   END_OF_BLOCK2
       } else {
           $r->print('<font class="bodyblue">'.
                     &mt("If you are already a $sitename user, please log-in.").' '.&mt('If not, contact your instructor to request a username and password.').
                    '</font><br /><br /><br />');
       }
       $r->print(<<"END_OF_BLOCK3");
         </td>          </td>
        </tr>         </tr>
       </table>        </table>
      </td>       </td>
      <td width="10">&nbsp;</td>       <td width="10">&nbsp;</td>
      <td valign="top">       <td valign="top">
       <form name="client" method="post" action="" onsubmit="return(send());">        <form name="client" method="post" onsubmit="return(send());">
       <table class="LC_loginbox_right">        <table class="LC_loginbox_right">
        <tr>         <tr>
         <td colspan="3" height="23" class="LC_loginbox_strip">&nbsp;</td>          <td colspan="3" height="23" class="LC_loginbox_strip">&nbsp;</td>
        </tr>         </tr>
        <tr>         <tr>
         <td align="left" valign="top" width="10" height="9"><img src="/images/login/lclogin_r2_c4.png" width="11" height="11" border="0" alt=""></td>          <td align="left" valign="top" width="11" height="11"><img src="/images/login/$domain/r2_c4.png" width="11" height="11" border="0" alt=""></td>
         <td>&nbsp;</td>          <td>&nbsp;</td>
         <td align="right" valign="top" width="9" height="10"><img src="/images/login/lclogin_r2_c6.png" width="11 height="11" border="0" alt=""></td>          <td align="right" valign="top" width="11" height="11"><img src="/images/login/$domain/r2_c6.png" width="11" height="11" border="0" alt=""></td>
        </tr>         </tr>
        <tr>         <tr>
         <td width="10">&nbsp;</td>          <td width="10">&nbsp;</td>
Line 492  my %lt=&Apache::lonlocal::texthash( Line 553  my %lt=&Apache::lonlocal::texthash(
           <tr>            <tr>
            <td align="right" class="bodywhite" height=50><br>             <td align="right" class="bodywhite" height=50><br>
             <span style="font-size: 15px; line-height: 17px; font-weight: bold;">              <span style="font-size: 15px; line-height: 17px; font-weight: bold;">
              Existing WebCenter user?</span>               $existing</span>
              <br />Please log-in.<br>               <br />Please log-in.<br>
              <hr size=1 noshade color="#FFFFBB"><br /><br />               <hr class="login"><br /><br />
             </td>              </td>
            </tr>             </tr>
            <tr>             <tr>
Line 506  my %lt=&Apache::lonlocal::texthash( Line 567  my %lt=&Apache::lonlocal::texthash(
                </tr>                 </tr>
                <tr>                 <tr>
                 <td align="right" class="bodywhite"><label for="upass$now">$lt{'pw'}</label>:</td>                  <td align="right" class="bodywhite"><label for="upass$now">$lt{'pw'}</label>:</td>
                 <td align="right"><input name="upass$now" size="17" value="" type="password"><input type="hidden" name="udom" value="gci" /></td>                  <td align="right"><input name="upass$now" size="17" value="" type="password"><input type="hidden" name="udom" value="$domain" /></td>
                </tr>                 </tr>
                <tr><td>&nbsp;</td></tr>                 <tr><td>&nbsp;</td></tr>
                <tr>                 <tr>
Line 519  my %lt=&Apache::lonlocal::texthash( Line 580  my %lt=&Apache::lonlocal::texthash(
              <td align="right" valign="top" class="bodywhite">               <td align="right" valign="top" class="bodywhite">
               <br />                <br />
               <br /><br />                <br /><br />
               <hr size="1" noshade color="#FFFFBB" />                <hr class="login" />
               <br />                <br />
               <a href="/adm/resetpw" style="color: #ffffff">Forgot your password?</a><br>                <a href="/adm/resetpw" style="color: #ffffff">Forgot your password?</a><br>
               <br />                <br />
Line 530  my %lt=&Apache::lonlocal::texthash( Line 591  my %lt=&Apache::lonlocal::texthash(
           <td width="9">&nbsp;</td>            <td width="9">&nbsp;</td>
         </tr>          </tr>
         <tr>          <tr>
           <td align="left" valign="bottom" width="10" height="10"><img src="/images/login/lclogin_r8_c4.png" width="11" height="11" border="0" alt=""></td>            <td align="left" valign="bottom" width="11" height="11"><img src="/images/login/$domain/r8_c4.png" width="11" height="11" border="0" alt=""></td>
           <td>&nbsp;</td>            <td>&nbsp;</td>
           <td align="right" valign="bottom" width="9" height="10"><img src="/images/login/lclogin_r8_c6.png" width="11" height="11" border="0" alt=""></td>            <td align="right" valign="bottom" width="11" height="11"><img src="/images/login/$domain/r8_c6.png" width="11" height="11" border="0" alt=""></td>
         </tr>          </tr>
         <tr>          <tr>
           <td colspan="3" height="10" class="LC_loginbox_strip">&nbsp;</td>            <td colspan="3" height="10" class="LC_loginbox_strip">&nbsp;</td>
         </tr>          </tr>
       </table>        </table>
     </td>      </td>
     <td align="right" valign="top" width="10"><img src="/images/login/lclogin_r1_c7.gif" width="10" height="10" border="0" alt=""></td>      <td align="right" valign="top" width="11"><img src="/images/login/$domain/r1_c7.png" width="11" height="11" border="0" alt=""></td>
   </tr>    </tr>
   <tr>    <tr>
     <td colspan="4">      <td colspan="4">
         <div align="left">
       <table border="0" cellspacing="0" cellpadding="0">        <table border="0" cellspacing="0" cellpadding="0">
         <tr>          <tr>
           <td width="10">&nbsp;</td>            <td width="10">&nbsp;</td>
        <td><font size="-1">         <td><font size="-1">
      <b>Note</b>:<br>       <b>Note</b>:<br />
       If log-in fails, it may be because your browser is not accepting session cookies, or javascript is disabled. <a href="http://loncapa.msu.edu/student/cookies.html">Learn more</a>.        If log-in fails, it may be because your browser is not accepting session cookies, or javascript is disabled. <a href="http://loncapa.msu.edu/student/cookies.html">Learn more</a>.
      </font>       </font>
          </td>           </td>
          <td width="10">&nbsp;</td>           <td width="10">&nbsp;</td>
        </tr>         </tr>
      </table>       </table>
        </div>
    </td>     </td>
   </tr>    </tr>
   <tr>    <tr>
     <td align="left" valign="bottom" width="12"><img src="/images/login/lclogin_r9_c1.gif" width="12" height="10" border="0" alt=""></td>      <td align="left" valign="bottom" width="11"><img src="/images/login/$domain/r9_c1.png" width="11" height="11" border="0" alt=""></td>
     <td colspan="3" width="698">&nbsp;</td>      <td colspan="3" width="698">&nbsp;</td>
     <td align="right" valign="bottom" width="10"><img src="/images/login/lclogin_r9_c7.gif" width="10" height="10" border="0" alt=""></td>      <td align="right" valign="bottom" width="11"><img src="/images/login/$domain/r9_c7.png" width="11" height="11" border="0" alt=""></td>
   </tr>    </tr>
 </table>  </table>
 </div>  </div>
Line 568  my %lt=&Apache::lonlocal::texthash( Line 631  my %lt=&Apache::lonlocal::texthash(
  Javascript must be enabled in your web browser in order to use this web site.   Javascript must be enabled in your web browser in order to use this web site.
  </font></noscript>   </font></noscript>
 <p>&nbsp;</p>  <p>&nbsp;</p>
 <input type="hidden" name="imagesuppress"  value="" />  <input type="hidden" name="imagesuppress" value="" />
 <input type="hidden" name="embedsuppress"  value="" />  <input type="hidden" name="embedsuppress" value="" />
 <input type="hidden" name="appletsuppress"  value="" />  <input type="hidden" name="appletsuppress" value="" />
 <input type="hidden" name="fontenhance"  value="" />  <input type="hidden" name="fontenhance" value="" />
 <input type="hidden" name="blackwhite"  value="" />  <input type="hidden" name="blackwhite" value="" />
 <input type="hidden" name="remember"  value="" />  <input type="hidden" name="remember" value="" />
 END_OF_BLOCK2  END_OF_BLOCK3
     } else {      } else {
         $r->print(<<ENDACCESSOPTIONS);          $r->print(<<ENDACCESSOPTIONS);
 <h1>The Learning<i>Online</i> Network with CAPA</h1>  <h1>The Learning<i>Online</i> Network with CAPA</h1>
Line 608  ENDACCESSOPTIONS Line 671  ENDACCESSOPTIONS
                             .'</font></div></noscript></td>';                              .'</font></div></noscript></td>';
         $r->print(<<ENDTEXTUAL);          $r->print(<<ENDTEXTUAL);
      <hr />       <hr />
      <table border=0 cellspacing="0" cellpadding="0">       <table border="0" cellspacing="0" cellpadding="0">
       <tr>$logintitle</tr>        <tr>$logintitle</tr>
       <tr>$noscript_warning</tr>        <tr>$noscript_warning</tr>
       <tr>        <tr>
Line 624  ENDACCESSOPTIONS Line 687  ENDACCESSOPTIONS
        <td bgcolor="$mainbg" valign="bottom" align="center">         <td bgcolor="$mainbg" valign="bottom" align="center">
         <br />          <br />
         <input type="submit" value="$lt{'log'}" />          <input type="submit" value="$lt{'log'}" />
         <input type="hidden" name="udom" value="'gci'" />          <input type="hidden" name="udom" value="$domain" />
        </td>         </td>
       </tr>        </tr>
       <tr>        <tr>
Line 650  ENDTEXTUAL Line 713  ENDTEXTUAL
    <input type="hidden" name="upass1" value="" />     <input type="hidden" name="upass1" value="" />
    <input type="hidden" name="upass2" value="" />     <input type="hidden" name="upass2" value="" />
    <input type="hidden" name="udom" value="" />     <input type="hidden" name="udom" value="" />
    <input type="hidden" name="imagesuppress"  value="" />     <input type="hidden" name="imagesuppress" value="" />
    <input type="hidden" name="appletsuppress"  value="" />     <input type="hidden" name="appletsuppress" value="" />
    <input type="hidden" name="embedsuppress"  value="" />     <input type="hidden" name="embedsuppress" value="" />
    <input type="hidden" name="fontenhance"  value="" />     <input type="hidden" name="fontenhance" value="" />
    <input type="hidden" name="blackwhite"  value="" />     <input type="hidden" name="blackwhite" value="" />
    <input type="hidden" name="remember"  value="" />     <input type="hidden" name="remember" value="" />
    <input type="hidden" name="localpath" value="$env{'form.localpath'}" />     <input type="hidden" name="localpath" value="$env{'form.localpath'}" />
    <input type="hidden" name="localres" value="$env{'form.localres'}" />     <input type="hidden" name="localres" value="$env{'form.localres'}" />
   </form>    </form>
Line 702  function helpdesk() { Line 765  function helpdesk() {
 ENDSCRIPT  ENDSCRIPT
     }      }
     $contactblock .= <<"ENDBLOCK";      $contactblock .= <<"ENDBLOCK";
      &nbsp;&nbsp;&nbsp;$version      &nbsp;&nbsp;&nbsp;$version
 ENDBLOCK  ENDBLOCK
     return $contactblock;      return $contactblock;
 }  }
   
 sub forgotpwdisplay {  sub forgotpwdisplay {
     my (%lt) = @_;      my (%lt) = @_;
     my $prompt_for_resetpw = 1;       my $prompt_for_resetpw = 1;
     if ($prompt_for_resetpw) {      if ($prompt_for_resetpw) {
         return '<br />&nbsp;&nbsp;&nbsp;<a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />';          return '<br />&nbsp;&nbsp;&nbsp;<a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />';
     }      }
Removed from v.1.3  
changed lines
  Added in v.1.16

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