[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.1497 and 1.1499

version 1.1497, 2022/10/22 17:24:55 version 1.1499, 2022/10/22 21:13:47
Line 12485  sub count_supptools { Line 12485  sub count_supptools {
 }  }
   
 sub has_unhidden_suppfiles {  sub has_unhidden_suppfiles {
     my ($cnum,$cdom,$ignorecache,$possdell)=@_;      my ($cnum,$cdom,$ignorecache,$possdel)=@_;
     my $hashid=$cnum.':'.$cdom;      my $hashid=$cnum.':'.$cdom;
     my ($showsupp,$cached);      my ($showsupp,$cached);
     unless ($ignorecache) {      unless ($ignorecache) {
Line 12527  sub get_supplemental { Line 12527  sub get_supplemental {
     unless (defined($cached)) {      unless (defined($cached)) {
         my $chome=&homeserver($cnum,$cdom);          my $chome=&homeserver($cnum,$cdom);
         unless ($chome eq 'no_host') {          unless ($chome eq 'no_host') {
               my @order = @LONCAPA::map::order;
               my @resources = @LONCAPA::map::resources;
               my @resparms = @LONCAPA::map::resparms;
               my @zombies = @LONCAPA::map::zombies;
             my ($errors,%ids,%hidden);              my ($errors,%ids,%hidden);
             $errors =              $errors =
                 &Apache::loncommon::recurse_supplemental($cnum,$cdom,                  &Apache::loncommon::recurse_supplemental($cnum,$cdom,
                                                          'supplemental.sequence',                                                           'supplemental.sequence',
                                                          $errors,$possdel,\%ids,\%hidden);                                                           $errors,$possdel,\%ids,\%hidden);
               @LONCAPA::map::order = @order;
               @LONCAPA::map::resources = @resources;
               @LONCAPA::map::resparms = @resparms;
               @LONCAPA::map::zombies = @zombies;
             $set_httprefs = 1;              $set_httprefs = 1;
             if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {              if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
                 &Apache::lonnet::appenv({'request.course.suppupdated' => time});                  &Apache::lonnet::appenv({'request.course.suppupdated' => time});
Removed from v.1.1497  
changed lines
  Added in v.1.1499

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