--- loncom/homework/CAPA-converter/capaCommon.c	2000/07/06 21:06:22	1.4
+++ loncom/homework/CAPA-converter/capaCommon.c	2000/10/25 20:25:09	1.5
@@ -277,7 +277,7 @@ 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_SCRIPT: send("<script type=\"loncapa/perl\">\n"); break;
   case MODE_OUTTEXT: send("<outtext>\n"); break;
   case MODE_ANSWER: send("<answergroup>\n"); break;
   case MODE_NONE: break;