Diff for /rat/map.pm between versions 1.2 and 1.4

version 1.2, 2006/12/04 14:59:55 version 1.4, 2007/01/03 20:46:04
Line 476  sub loadmap { Line 476  sub loadmap {
     if ($instr eq -2) {      if ($instr eq -2) {
         $errtext.='Map not loaded: An error occured while trying to load the map.';          $errtext.='Map not loaded: An error occured while trying to load the map.';
     } elsif ($instr eq '-1') {      } elsif ($instr eq '-1') {
         $errtext.=&mt('Map not loaded: The file [_1] does not exist.',$fn);   # Map doesn't exist 
     } elsif ($instr) {      } elsif ($instr) {
         my $parser = HTML::TokeParser->new(\$instr);          my $parser = HTML::TokeParser->new(\$instr);
         my $token;          my $token;
Line 690  sub savemap { Line 690  sub savemap {
     }      }
         }          }
         $outstr.="</map>\n";          $outstr.="</map>\n";
  if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\/(.*)$/) {   if ($fn=~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::courseid_re)/(.*)$}) {
     $env{'form.output'}=$outstr;      $env{'form.output'}=$outstr;
             my $result=&Apache::lonnet::finishuserfileupload($2,$1,              my $result=&Apache::lonnet::finishuserfileupload($2,$1,
      'output',$3);       'output',$3);

Removed from v.1.2  
changed lines
  Added in v.1.4


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