[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.1172.2.146.2.27 and 1.1172.2.146.2.29

version 1.1172.2.146.2.27, 2025/01/16 22:22:40 version 1.1172.2.146.2.29, 2025/06/06 21:18:46
Line 7292  sub set_adhoc_privileges { Line 7292  sub set_adhoc_privileges {
         if (&allowed('adv') eq 'F') { $tadv=1; }          if (&allowed('adv') eq 'F') { $tadv=1; }
         &appenv({'request.role.adv'    => $tadv});          &appenv({'request.role.adv'    => $tadv});
     }      }
       if ($role eq 'ca') {
           my @ca_settings = ('authoreditors','coauthorlist');
           my %info = &userenvironment($dcdom,$pickedcourse,@ca_settings);
           foreach my $item (@ca_settings) {
               if (exists($info{$item})) {
                   my $name = $item;
                   if ($item eq 'authoreditors') {
                       $name = 'editors';
                       unless ($info{'authoreditors'}) {
                           my %domdefs = &get_domain_defaults($dcdom);
                           if ($domdefs{$name} ne '') {
                               $info{'authoreditors'} = $domdefs{$name};
                           } else {
                               $info{'authoreditors'} = 'edit,xml';
                           }
                       }
                   }
                   &appenv({"environment.internal.$name./$dcdom/$pickedcourse" => $info{$item}});
               }
           }
       }
 }  }
   
 # --------------------------------------------------------------- get interface  # --------------------------------------------------------------- get interface
Line 14280  sub receipt { Line 14301  sub receipt {
 }  }
   
 sub whichuser {  sub whichuser {
     my ($passedsymb)=@_;      my ($passedsymb,$ignorecachednull)=@_;
     my ($symb,$courseid,$domain,$name,$publicuser);      my ($symb,$courseid,$domain,$name,$publicuser);
     if (defined($env{'form.grade_symb'})) {      if (defined($env{'form.grade_symb'})) {
  my ($tmp_courseid)=&get_env_multiple('form.grade_courseid');   my ($tmp_courseid)=&get_env_multiple('form.grade_courseid');
Line 14300  sub whichuser { Line 14321  sub whichuser {
  }   }
     }      }
     if (!$passedsymb) {      if (!$passedsymb) {
  $symb=&symbread();   $symb=&symbread('','',$ignorecachednull);
     } else {      } else {
  $symb=$passedsymb;   $symb=$passedsymb;
     }      }
Removed from v.1.1172.2.146.2.27  
changed lines
  Added in v.1.1172.2.146.2.29

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