[LON-CAPA-cvs] cvs: lonline / convert.pl

[www]

www		Thu Jan  9 17:06:00 2003 EDT

  Modified files:              
    /lonline	convert.pl 
  Log:
  Does essay responses now
  
  
Index: lonline/convert.pl
diff -u lonline/convert.pl:1.27 lonline/convert.pl:1.28
--- lonline/convert.pl:1.27	Wed Dec 19 12:26:15 2001
+++ lonline/convert.pl	Thu Jan  9 17:06:00 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Converter Program for LectureOnline Problems
 #
-# $Id: convert.pl,v 1.27 2001/12/19 17:26:15 albertel Exp $
+# $Id: convert.pl,v 1.28 2003/01/09 22:06:00 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,7 +34,7 @@
 my $fileroot=$ARGV[0];
 if ($fileroot eq '') { exit(1); }
 #my $hwkres='./material/hwkres/';
-my $hwkres='/home/albertel/public_html/lg_biomols/';
+my $hwkres='./hwkres/';
 my $prefix='/res/msu';
 
 # -----------------------------------------------------------------------------
@@ -118,6 +118,17 @@
 REJECTED:
 
 exit 0;
+
+# -------------------------------------------------------------- Essay Response
+
+sub essres {
+    $converted.='<startouttext />';
+    &textout($FORM{'htext'});
+    $converted.=
+      '<endouttext /><essayresponse><textfield>';
+    &textout($FORM{'hprogram'});
+    $converted.='</textfield></essayresponse>';
+}
 
 # ========================================================== Numerical Resource