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

version 1.14, 2012/07/21 21:20:19 version 1.16, 2022/10/22 17:24:55
Line 303  sub startfinish { Line 303  sub startfinish {
     }      }
  }   }
     }      }
   # Make sure this has at least start and finish
       if ($#order==-1) {
           $resources[&getresidx()]='::false';
           $order[0]=$#resources;
       }
 # Put in a start resource  # Put in a start resource
     my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]);      my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]);
     $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res';      $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res';
 # Make sure this has at least start and finish  
     if ($#order==0) {      if ($#order==0) {
  $resources[&getresidx()]='::false';   $resources[&getresidx()]='::false';
  $order[1]=$#resources;   $order[1]=$#resources;
Line 674  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 692  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.14  
changed lines
  Added in v.1.16


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