*** TWikiDrawPlugin.bak.pm	Mon Dec 15 12:39:34 2003
--- TWikiDrawPlugin.pm	Mon Dec 15 13:47:26 2003
***************
*** 77,82 ****
--- 77,88 ----
      }
      $nameVal =~ s/[^A-Za-z0-9_\.\-]//go; # delete special characters

+     # Fix line breaks in drawing file.
+     my $drawFile = TWiki::Func::getPubDir() . "/$web/$topic/$nameVal.draw";
+     my $drawFileText = TWiki::Func::readFile($drawFile);
+     $drawFileText =~ s/[\n\r]*\\n/\\n/g;
+     TWiki::Func::saveFile($drawFile, $drawFileText);
+
      # should really use TWiki server-side include mechanism....
      my $mapFile = TWiki::Func::getPubDir() . "/$web/$topic/$nameVal.map";
      my $img = "src=\"%ATTACHURLPATH%/$nameVal.gif\"";