Subversion Repositories wimsdev

Rev

Rev 7395 | Rev 10234 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7395 Rev 10034
Line 1279... Line 1279...
1279 
sub linewidth { my ($line,$w)= @_ ;
 1279 
sub linewidth { my ($line,$w)= @_ ;
1280 
  $line =~ s/1\.[0]\s*\\(line|text)width/100\%/g;
 1280 
  $line =~ s/1\.[0]\s*\\(line|text)width/100\%/g;
1281 
  $line =~ s/0?\.([0-9])\s*\\(line|text)width/$1 0\%/g;
 1281 
  $line =~ s/0?\.([0-9])\s*\\(line|text)width/$1 0\%/g;
1282 
  $line =~ s/0?\.([0-9]{2})[0-9]?\s*\\(line|text)width/$1\%/g;
 1282 
  $line =~ s/0?\.([0-9]{2})[0-9]?\s*\\(line|text)width/$1\%/g;
1283 
  $line =~ s/ //g;
 1283 
  $line =~ s/ //g;
1284 
  $line = "$w=\"$line\"" if ($w) ;
 1284 
  $line = "$w=\"$line\"" if ($w);
1285 
  $line ;
 1285 
  $line ;
1286 
}
 1286 
}
1287 
sub store_sheet { my ($ad1,$ad2,$titre,$worksheet) = @_ ;
 1287 
sub store_sheet { my ($ad1,$ad2,$titre,$worksheet) = @_;
1288 
   $ad2 =~ s/worksheet=(\d)+//g ;
 1288 
   $ad2 =~ s/worksheet=(\d)+//g;
1289 
   $SHEET .= ":$ad1\n$ad2\n$titre\n\n" ;
 1289 
   $SHEET .= ":$ad1\n$ad2\n$titre\n\n";
- 
 
 1290 
   if ($worksheet) {
1290 
   "\\exercise\{module=$ad1\&$ad2\&worksheet=$worksheet\}\{$titre\}" ;
 1291 
     "\\exercise\{module=$ad1\&$ad2\&worksheet=$worksheet\}\{$titre\}"
- 
 
 1292 
   }
- 
 
 1293 
   else {
- 
 
 1294 
      "\\exercise\{module=$ad1\&$ad2\}\{$titre\}"
- 
 
 1295 
   };
1291 
 }
 1296 
}
1292 
 
 1297 
 
1293 
sub traite_preambule { my ($TEXT, $ref_env, $ref_command, $ref) = @_;
 1298 
sub traite_preambule { my ($TEXT, $ref_env, $ref_command, $ref) = @_;
1294 
  if ($TEXT=~ s/\\usepackage\[([^]]+)\]\{algorithmic\}//) {
 1299 
  if ($TEXT=~ s/\\usepackage\[([^]]+)\]\{algorithmic\}//) {
1295 
       $algo_noend = 1  if ($1 =~ /noend/);
 1300 
       $algo_noend = 1  if ($1 =~ /noend/);
1296 
  };
 1301 
  };