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

Diff for /loncom/auth/lonlogin.pm between versions 1.106.2.3 and 1.106.4.5

version 1.106.2.3, 2009/01/05 17:39:43 version 1.106.4.5, 2010/02/09 17:49:15
Line 46  sub handler { Line 46  sub handler {
  (join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'},   (join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'},
       $ENV{'REDIRECT_QUERY_STRING'}),        $ENV{'REDIRECT_QUERY_STRING'}),
  ['interface','username','domain','firsturl','localpath','localres',   ['interface','username','domain','firsturl','localpath','localres',
   'token']);    'token','role','symb']);
     if (!defined($env{'form.firsturl'})) {      if (!defined($env{'form.firsturl'})) {
         &Apache::lonacc::get_posted_cgi($r,['firsturl']);          &Apache::lonacc::get_posted_cgi($r,['firsturl']);
     }      }
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.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]logout[_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 179  sub handler { Line 183  sub handler {
     if ($uextkey>2147483647) { $uextkey-=4294967296; }      if ($uextkey>2147483647) { $uextkey-=4294967296; }
   
 # -------------------------------------------------------- Store away log token  # -------------------------------------------------------- Store away log token
       my $tokenextras;
       if ($env{'form.role'}) {
           $tokenextras = '&role='.&escape($env{'form.role'});
       }
       if ($env{'form.symb'}) {
           if (!$tokenextras) {
               $tokenextras = '&';
           }
           $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 283  sub handler { Line 297  sub handler {
     my $now=time;      my $now=time;
     my $js = (<<ENDSCRIPT);      my $js = (<<ENDSCRIPT);
   
  <script language="JavaScript">   <script type="text/javascript">
    // <![CDATA[
     function send()      function send()
     {      {
         this.document.server.elements.uname.value          this.document.server.elements.uname.value
Line 327  sub handler { Line 342  sub handler {
         this.document.server.submit();          this.document.server.submit();
         return false;          return false;
     }      }
    // ]]>
  </script>   </script>
   
 ENDSCRIPT  ENDSCRIPT
Line 358  my %lt=&Apache::lonlocal::texthash( Line 374  my %lt=&Apache::lonlocal::texthash(
                   'userload' => 'User Load',                    'userload' => 'User Load',
                   'about'  => 'About LON-CAPA',                    'about'  => 'About LON-CAPA',
                   'access' => 'Accessibility Options',                    'access' => 'Accessibility Options',
                   'catalog' => 'Course Catalog',                    'catalog' => 'Course/Community Catalog',
   'log' => 'Log in',    'log' => 'Log in',
   'help' => 'Log-in Help',    'help' => 'Log-in Help',
   'serv' => 'Server',    'serv' => 'Server',
Line 386  my %lt=&Apache::lonlocal::texthash( Line 402  my %lt=&Apache::lonlocal::texthash(
   
     if ($fullgraph) {      if ($fullgraph) {
  $r->print(   $r->print(
   '<table width="100%" cellpadding=0 cellspacing=0 border=0>');    '<table width="100%" cellpadding="0" cellspacing="0" border="0">');
     }      }
   
     $r->print(<<ENDSERVERFORM);      $r->print(<<ENDSERVERFORM);
Line 426  ENDSERVERFORM Line 442  ENDSERVERFORM
    <td width="100%" height=75 colspan=4 align="left" valign="top" bgcolor="$pgbg">     <td width="100%" height=75 colspan=4 align="left" valign="top" bgcolor="$pgbg">
 HEADER  HEADER
         if ($showbanner) {          if ($showbanner) {
             $r->print(<<ENDBANNER);               $r->print(<<ENDBANNER);
 <img src="$img" border=0 alt="The Learning Online Network with CAPA" />  <img src="$img" border="0" alt="The Learning Online Network with CAPA" />
 ENDBANNER  ENDBANNER
         }          }
         $r->print(<<ENDSTART);          $r->print(<<ENDSTART);
Line 500  ENDTOP Line 516  ENDTOP
                  .'<h2>'.&mt('Text-based Interface Login').'</h2>'                   .'<h2>'.&mt('Text-based Interface Login').'</h2>'
                  .$announcements);                   .$announcements);
     }      }
     $r->print('<form name="client" onsubmit="return(send())">');      $r->print('<form name="client" action="" onsubmit="return(send())">');
     unless ($fullgraph) {      unless ($fullgraph) {
         $r->print(<<ENDACCESSOPTIONS);          $r->print(<<ENDACCESSOPTIONS);
 <h3>$lt{'options_headline'}</h3>  <h3>$lt{'options_headline'}</h3>
Line 534  ENDNOOPT Line 550  ENDNOOPT
                         .&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.')                          .&mt('Use of LON-CAPA requires Javascript to be enabled in your web browser.')
                         .'</font></div></noscript></td>';                          .'</font></div></noscript></td>';
     $r->print(<<ENDLOGIN);      $r->print(<<ENDLOGIN);
      <input type="hidden" name="lextkey" value="$lextkey">       <input type="hidden" name="lextkey" value="$lextkey" />
      <input type="hidden" name="uextkey" value="$uextkey">       <input type="hidden" name="uextkey" value="$uextkey" />
   
      <!-- Start the sub-table for text and input alignment -->       <!-- Start the sub-table for text and input alignment -->
      <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 593  ENDLOGIN Line 609  ENDLOGIN
    <!-- Row 5 Column 1 -->     <!-- Row 5 Column 1 -->
    <td bgcolor="$sidebg" valign="middle" align="left">     <td bgcolor="$sidebg" valign="middle" align="left">
      <br />       <br />
      <table border=0 cellspacing=0 cellpadding=0>       <table border="0" cellspacing="0" cellpadding="0">
       <tr>        <tr>
        <td bgcolor="$sidebg" align="left" valign="top">         <td bgcolor="$sidebg" align="left" valign="top">
         <small><b>&nbsp;&nbsp;&nbsp;$lt{'dom'}:&nbsp;</b></small>          <small><b>&nbsp;&nbsp;&nbsp;$lt{'dom'}:&nbsp;</b></small>
Line 659  $domainlogo Line 675  $domainlogo
  </table>   </table>
   
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 // the if prevents the script error if the browser can not handle this  // the if prevents the script error if the browser can not handle this
 if ( document.client.uname ) { document.client.uname.focus(); }  if ( document.client.uname ) { document.client.uname.focus(); }
   // ]]>
 </script>  </script>
 $helpdeskscript  $helpdeskscript
   
Line 688  sub contactdisplay { Line 706  sub contactdisplay {
         my $thisurl = &escape('/adm/login');          my $thisurl = &escape('/adm/login');
         $$helpdeskscript = <<"ENDSCRIPT";          $$helpdeskscript = <<"ENDSCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function helpdesk() {  function helpdesk() {
     var codedom = document.client.udom.value;      var codedom = document.client.udom.value;
     if (codedom == '') {      if (codedom == '') {
Line 697  function helpdesk() { Line 716  function helpdesk() {
     document.location.href = "/adm/helpdesk?"+querystr;      document.location.href = "/adm/helpdesk?"+querystr;
     return;      return;
 }  }
   // ]]>
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     }      }
Removed from v.1.106.2.3  
changed lines
  Added in v.1.106.4.5

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