Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv14043/WEB-INF/maple/aim
Modified Files:
Tag: develop_2_1
Compile.mpl
Log Message:
Fixed bug that prevented PostPrompt from being set
Index: Compile.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/Compile.mpl,v
retrieving revision 1.2.2.4
retrieving revision 1.2.2.5
diff -C2 -d -r1.2.2.4 -r1.2.2.5
*** Compile.mpl 17 Jul 2003 13:52:41 -0000 1.2.2.4
--- Compile.mpl 23 Aug 2003 16:27:43 -0000 1.2.2.5
***************
*** 599,603 ****
RETURN([cat(__("Problem while parsing answer test:"),
sprintf("\n<br/>\n%s\n<br/><br/>\n%s\n<br/><br/>\n",
! err[1],err[3])),
nam,atestflagnum,lines]);
fi;
--- 599,603 ----
RETURN([cat(__("Problem while parsing answer test:"),
sprintf("\n<br/>\n%s\n<br/><br/>\n%s\n<br/><br/>\n",
! err[1],err[3])),
nam,atestflagnum,lines]);
fi;
***************
*** 706,710 ****
fi;
! iproc := iproc,setans,setnote,setprompt,settype;
elif qtype = 'MATRIX' then
--- 706,710 ----
fi;
! iproc := iproc,setans,setnote,setprompt,setpost,settype;
elif qtype = 'MATRIX' then
***************
*** 715,719 ****
question['ForbiddenWords'] := forbidden;
! iproc := iproc,setans,setnote,setprompt,setdim;
elif member(qtype,{'MC','MR'}) then
--- 715,719 ----
question['ForbiddenWords'] := forbidden;
! iproc := iproc,setans,setnote,setprompt,setpost,setdim;
elif member(qtype,{'MC','MR'}) then
***************
*** 922,927 ****
##########
elif member(flag, {"value>","penalty>","answer>","answertest>",
! "answervariable>","prompt>","postprompt>",
! "mapletype>","forbid>"}) then
RETURN([sprintf(__("%s flag is not allowed for multipart questions."),flag)
,nam,flagnum,lines]);
--- 922,927 ----
##########
elif member(flag, {"value>","penalty>","answer>","answertest>",
! "answervariable>","prompt>","postprompt>",
! "mapletype>","forbid>"}) then
RETURN([sprintf(__("%s flag is not allowed for multipart questions."),flag)
,nam,flagnum,lines]);
|
