[LON-CAPA-cvs] cvs: loncom /imspackages imsprocessor.pm

[raeburn]

raeburn		Wed Apr  5 19:36:53 2006 EDT

  Modified files:              
    /loncom/imspackages	imsprocessor.pm 
  Log:
  Removing >:utf8 directive when writing problems to file, as spanish characters were not being saved correctly.  Apparently need either both <:utf8 when reading in from source xml AND >:utf8 when writing to source or neither of them (tests run by Guy).  Adopting second of these for now. 
  
  
Index: loncom/imspackages/imsprocessor.pm
diff -u loncom/imspackages/imsprocessor.pm:1.38 loncom/imspackages/imsprocessor.pm:1.39
--- loncom/imspackages/imsprocessor.pm:1.38	Wed Apr  5 15:45:53 2006
+++ loncom/imspackages/imsprocessor.pm	Wed Apr  5 19:36:52 2006
@@ -3684,7 +3684,7 @@
             $title =~ s/\s/_/g;
             $title =~ s/\W//g;
             $title .= '_'.$id;
-            open(PROB,">:utf8", "$newdir/$title.problem");
+            open(PROB,">$newdir/$title.problem");
             print PROB $output;
             close PROB;
         } else {
@@ -4278,7 +4278,7 @@
             $title =~ s/\s/_/g;
             $title =~ s/\W//g;
             $title .= '_'.$id; 
-            open(PROB,">:utf8", "$destdir/problems/$probdir/$title.problem");
+            open(PROB,">$destdir/problems/$probdir/$title.problem");
             print PROB $output;
             close PROB;
         } else {
@@ -4676,7 +4676,7 @@
             $title =~ s/\s/_/g;
             $title =~ s/\W//g;
             $title .= '_'.$id;
-            open(PROB,">:utf8", "$newdir/$title.problem");
+            open(PROB,">$newdir/$title.problem");
             print PROB $output;
             close PROB;
         } else {