[BACK]Return to map.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/map.pm between versions 1.15 and 1.16

version 1.15, 2014/06/14 19:05:00 version 1.16, 2022/10/22 17:24:55
Line 678  sub savemap { Line 678  sub savemap {
     }      }
         }          }
         $outstr.="</map>\n";          $outstr.="</map>\n";
           my ($cdom,$cnum,$mapname);
  if ($fn=~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::courseid_re)/(.*)$}) {   if ($fn=~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::courseid_re)/(.*)$}) {
               ($cdom,$cnum,$mapname) = ($1,$2,$3);
     $env{'form.output'}=$outstr;      $env{'form.output'}=$outstr;
             my $result=&Apache::lonnet::finishuserfileupload($2,$1,              my $result=&Apache::lonnet::finishuserfileupload($cnum,$cdom,
      'output',$3);       'output',$mapname);
     if ($result != m|^/uploaded/|) {      if ($result != m|^/uploaded/|) {
  $errtext.='Map not saved: A network error occurred when trying to save the map. ';   $errtext.='Map not saved: A network error occurred when trying to save the map. ';
     }      }
Line 696  sub savemap { Line 698  sub savemap {
         if ($dotimeupdate) {          if ($dotimeupdate) {
             unless ($errtext) {              unless ($errtext) {
                 if ($env{'request.course.id'}) {                  if ($env{'request.course.id'}) {
                     my $now = time;                      if (($cdom eq $env{'course.'.$env{'request.course.id'}.'.domain'}) &&
                     &Apache::lonnet::put('environment',{'internal.contentchange' => $now},                          ($cnum eq $env{'course.'.$env{'request.course.id'}.'.num'}) &&
                                          $env{'course.'.$env{'request.course.id'}.'.domain'},                          ($mapname =~ /^supplemental(|_\d+)\.sequence$/)) {
                                          $env{'course.'.$env{'request.course.id'}.'.num'});                          &Apache::lonnet::update_supp_caches($cdom,$cnum);
                     &Apache::lonnet::appenv(                      } else {
                         {'course.'.$env{'request.course.id'}.'.internal.contentchange' => $now});                          my $now = time;
                     &Apache::lonnet::do_cache_new('crschange',$env{'request.course.id'},$now,600);                          &Apache::lonnet::put('environment',{'internal.contentchange' => $now},
                                                $env{'course.'.$env{'request.course.id'}.'.domain'},
                                                $env{'course.'.$env{'request.course.id'}.'.num'});
                           &Apache::lonnet::appenv(
                               {'course.'.$env{'request.course.id'}.'.internal.contentchange' => $now});
                           &Apache::lonnet::do_cache_new('crschange',$env{'request.course.id'},$now,600);
                       }
                 }                  }
             }              }
         }          }
Removed from v.1.15  
changed lines
  Added in v.1.16

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