Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv5574
Modified Files:
Tag: develop_2_1
Quiz.mpl
Log Message:
Fixes bug in `Results' link of admin. - GG
Index: Quiz.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/Quiz.mpl,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -C2 -d -r1.3.2.1 -r1.3.2.2
*** Quiz.mpl 10 Jul 2003 20:10:03 -0000 1.3.2.1
--- Quiz.mpl 27 Jul 2003 20:22:13 -0000 1.3.2.2
***************
*** 1817,1832 ****
['Method','MarkCode'::`aim/MarkCode`,
"",
! proc(this,questionname::string,partlabel::string)
! local markcode;
!
! markcode := this['MarkCodeTable'][questionname,partlabel];
! # next block for backwards compatibility with analysis objects
! # created with earlier versions of AIM.
! if not(type([markcode],[`aim/MarkCode`])) and
! partlabel = "" then
! markcode := this['MarkCodeTable'][questionname];
fi;
- markcode;
end
],
--- 1817,1834 ----
['Method','MarkCode'::`aim/MarkCode`,
"",
! proc(this,questionname::string,partlabel_::string)
! local t,partlabel;
! t := this['MarkCodeTable'];
! partlabel := `if`(evalb(nargs = 3), partlabel_, "");
! if assigned(t[questionname,partlabel]) then
! t[questionname,partlabel];
! elif assigned(t[questionname]) then
! # for backwards compatibility with analysis objects
! # created with earlier versions of AIM
! t[questionname];
! else
! " ";
fi;
end
],
|
