[Aimmath-commit] AIM/WEB-INF/maple/aim Quiz.mpl,1.3.2.1,1.3.2.2

[<gr...@us...>]

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
   ],