--- loncom/homework/CAPA-converter/capaCommon.c	2000/07/06 21:06:22	1.4
+++ loncom/homework/CAPA-converter/capaCommon.c	2001/07/11 23:00:57	1.7
@@ -263,7 +263,7 @@ void end_mode()
   case MODE_COMMENT: send("</comment>\n"); break;
   case MODE_BLOCK: send("</block>\n"); break;
   case MODE_SCRIPT: send("</script>\n"); break;
-  case MODE_OUTTEXT: send("</outtext>\n"); break;
+  case MODE_OUTTEXT: send("<endouttext />\n"); break;
   case MODE_ANSWER: send("</answergroup>\n"); break;
   case MODE_NONE: break;
   }
@@ -277,8 +277,8 @@ void start_mode(int newmode,char* args)
   switch (newmode) {
   case MODE_COMMENT: send("<comment>\n"); break;
   case MODE_BLOCK: send("<block %s>\n",args); break;
-  case MODE_SCRIPT: send("<script>\n"); break;
-  case MODE_OUTTEXT: send("<outtext>\n"); break;
+  case MODE_SCRIPT: send("<script type=\"loncapa/perl\">\n"); break;
+  case MODE_OUTTEXT: send("<startouttext />\n"); break;
   case MODE_ANSWER: send("<answergroup>\n"); break;
   case MODE_NONE: break;
   }