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

Diff for /loncom/auth/lonauth.pm between versions 1.100 and 1.101

version 1.100, 2009/07/22 20:24:07 version 1.101, 2009/07/22 21:51:03
Line 40  use Apache::lonmenu(); Line 40  use Apache::lonmenu();
 use Apache::createaccount;  use Apache::createaccount;
 use Fcntl qw(:flock);  use Fcntl qw(:flock);
 use Apache::lonlocal;  use Apache::lonlocal;
   use HTML::Entities;
     
 # ------------------------------------------------------------ Successful login  # ------------------------------------------------------------ Successful login
 sub success {  sub success {
Line 85  sub success { Line 86  sub success {
             &Apache::lonnet::role_status($envkey,$then,$refresh,$now,\$role,\$where,              &Apache::lonnet::role_status($envkey,$then,$refresh,$now,\$role,\$where,
                                          \$trolecode,\$tstatus,\$tstart,\$tend);                                           \$trolecode,\$tstatus,\$tstart,\$tend);
             if ($tstatus eq 'is') {              if ($tstatus eq 'is') {
                 if ($destination =~ /\?/) {                  $destination  .= ($destination =~ /\?/) ? '&' : '?';
                     $destination .= '&';                  my $newrole = &HTML::Entities::encode($form->{role},'"<>&');
                 } else {                  $destination .= 'selectrole=1&'.$newrole.'=1';
                     $destination .= '?';  
                 }  
                 $destination .= 'selectrole=1&'.$form->{role}.'=1';  
                 if (defined($form->{symb})) {  
                     my $destsymb = $form->{symb};  
                     if ($destsymb =~ /___/) {  
                         # FIXME Need to deal with encrypted symbs and urls as needed.  
                         my ($map,$resid,$desturl)=split(/___/,$destsymb);  
                         unless ($desturl=~/^(adm|uploaded|editupload|public)/) {  
                             $desturl = &Apache::lonnet::clutter($desturl);  
                         }  
                         $destination .= '&destinationurl='.$desturl.  
                                         '&destsymb='.$destsymb;  
                     } else {  
                         $destination .= '&destinationurl='.$destsymb;  
                     }  
                 }  
             }              }
         }          }
     }      }
       if (defined($form->{symb})) {
           my $destsymb = $form->{symb};
           $destination  .= ($destination =~ /\?/) ? '&' : '?';
           if ($destsymb =~ /___/) {
               # FIXME Need to deal with encrypted symbs and urls as needed.
               my ($map,$resid,$desturl)=split(/___/,$destsymb);
               unless ($desturl=~/^(adm|uploaded|editupload|public)/) {
                   $desturl = &Apache::lonnet::clutter($desturl);
               }
               $desturl = &HTML::Entities::encode($desturl,'"<>&');
               $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
               $destination .= '&destinationurl='.$desturl.
                               '&destsymb='.$destsymb;
           } else {
               $destsymb = &HTML::Entities::encode($destsymb,'"<>&');
               $destination .= '&destinationurl='.$destsymb;
           }
       }
   
     my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});      my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});
     my $startupremote=&Apache::lonmenu::startupremote($destination);      my $startupremote=&Apache::lonmenu::startupremote($destination);
Removed from v.1.100  
changed lines
  Added in v.1.101

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