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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.894 and 1.898

version 1.894, 2007/06/25 18:12:24 version 1.898, 2007/07/20 23:16:19
Line 1396  sub ssi { Line 1396  sub ssi {
     my $request;      my $request;
   
     $form{'no_update_last_known'}=1;      $form{'no_update_last_known'}=1;
       &Apache::lonenc::check_encrypt(\$fn);
     if (%form) {      if (%form) {
       $request=new HTTP::Request('POST',&absolute_url().$fn);        $request=new HTTP::Request('POST',&absolute_url().$fn);
       $request->content(join('&',map { &escape($_).'='.&escape($form{$_}) } keys %form));        $request->content(join('&',map { &escape($_).'='.&escape($form{$_}) } keys %form));
Line 2113  sub userrolelog { Line 2113  sub userrolelog {
          {$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}           {$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}
                     =$tend.':'.$tstart;                      =$tend.':'.$tstart;
     }      }
       if (($env{'request.role'} =~ /dc\./) &&
    (($trole=~/^au/) || ($trole=~/^in/) ||
    ($trole=~/^cc/) || ($trole=~/^ep/) ||
    ($trole=~/^cr/) || ($trole=~/^ta/))) {
          $userrolehash
            {$trole.':'.$username.':'.$domain.':'.$env{'user.name'}.':'.$env{'user.domain'}.':'}
                       =$tend.':'.$tstart;
       }
     if (($trole=~/^dc/) || ($trole=~/^ad/) ||      if (($trole=~/^dc/) || ($trole=~/^ad/) ||
         ($trole=~/^li/) || ($trole=~/^li/) ||          ($trole=~/^li/) || ($trole=~/^li/) ||
         ($trole=~/^au/) || ($trole=~/^dg/) ||          ($trole=~/^au/) || ($trole=~/^dg/) ||
Line 2122  sub userrolelog { Line 2130  sub userrolelog {
          {$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}           {$trole.':'.$username.':'.$domain.':'.$runame.':'.$rudom.':'.$rsec}
                     = $tend.':'.$tstart;                      = $tend.':'.$tstart;
     }      }
       &flushcourselogs();
 }  }
   
 sub get_course_adv_roles {  sub get_course_adv_roles {
Line 3807  sub customaccess { Line 3816  sub customaccess {
  my ($effect,$realm,$role,$type)=split(/\:/,$right);   my ($effect,$realm,$role,$type)=split(/\:/,$right);
  if ($type eq 'user') {   if ($type eq 'user') {
     foreach my $scope (split(/\s*\,\s*/,$realm)) {      foreach my $scope (split(/\s*\,\s*/,$realm)) {
  my ($tdom,$tcrs)=split(/\_/,$scope);   my ($tdom,$tuname)=split(m{/},$scope);
  if ($tdom) {   if ($tdom) {
     if ($tdom ne $env{'user.domain'}) { next; }      if ($tdom ne $env{'user.domain'}) { next; }
  }   }
  if ($tcrs) {   if ($tuname) {
     if ($tcrs ne $env{'user.name'}) { next; }      if ($tuname ne $env{'user.name'}) { next; }
  }   }
  $access=($effect eq 'allow');   $access=($effect eq 'allow');
  last;   last;
Line 7098  sub getCODE { Line 7107  sub getCODE {
 sub rndseed {  sub rndseed {
     my ($symb,$courseid,$domain,$username)=@_;      my ($symb,$courseid,$domain,$username)=@_;
     my ($wsymb,$wcourseid,$wdomain,$wusername)=&whichuser();      my ($wsymb,$wcourseid,$wdomain,$wusername)=&whichuser();
     if (!$symb) {      if (!defined($symb)) {
  unless ($symb=$wsymb) { return time; }   unless ($symb=$wsymb) { return time; }
     }      }
     if (!$courseid) { $courseid=$wcourseid; }      if (!$courseid) { $courseid=$wcourseid; }
Line 7884  sub get_dns { Line 7893  sub get_dns {
     }      }
           
     sub reset_hosts_info {      sub reset_hosts_info {
    &purge_remembered();
  &reset_domain_info();   &reset_domain_info();
  &reset_hosts_ip_info();   &reset_hosts_ip_info();
  undef(%name_to_host);   undef(%name_to_host);
Removed from v.1.894  
changed lines
  Added in v.1.898

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