[LON-CAPA-cvs] cvs: lonline / convert.pl
www
lon-capa-cvs@mail.lon-capa.org
Thu, 09 Jan 2003 22:06:00 -0000
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