Update of /cvsroot/aimmath/AIM/WEB-INF/maple
In directory sc8-pr-cvs1:/tmp/cvs-serv20655/WEB-INF/maple
Modified Files:
Aim.mpl
Log Message:
Have added an optional parameter "SeedPassword". If this is set equal to the subject password then the seed is set to the value given in the "Seed" parameter.
Index: Aim.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/Aim.mpl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Aim.mpl 1 Sep 2003 05:53:28 -0000 1.4
--- Aim.mpl 6 Sep 2003 10:41:15 -0000 1.5
***************
*** 365,369 ****
"idnote" = DefaultZone['IDNote'],
"emaillink" = subj['AdminEmailLink'],
! "servleturl" = Config['ServletURL'],
copy(`aim/SendReminder/Template/Unregistered`))));
fi;
--- 365,369 ----
"idnote" = DefaultZone['IDNote'],
"emaillink" = subj['AdminEmailLink'],
! "servleturl" = Config['ServletURL'],
copy(`aim/SendReminder/Template/Unregistered`))));
fi;
***************
*** 658,661 ****
--- 658,673 ----
evalb(command = "NewQuizVersion");
# END KM
+
+ # GWD: If the optional parameter "SeedPassword" is set to
+ # the subject password then the seed given by the parameter
+ # "Seed" should be used.
+ if (assigned(param["SeedPassword"]) and assigned(param["Seed"])) then
+ if (subj['AdminPassword'] = param["SeedPassword"]) then
+ quizcontext['UseRecordedSeed'] := false;
+ quizcontext['UseSeedParameter'] := true;
+ quizcontext['GenerateSeed'] := false;
+ end if;
+ end if;
+
###########
quizcontext['InviteAnswers'] := not(showsol);
***************
*** 842,848 ****
quizinstance :=
eval(quizversion['MakeInstance',
! eval(rawtable),
! eval(history),
! eval(quizcontext)]);
if quizcontext['SaveHistory'] then
--- 854,860 ----
quizinstance :=
eval(quizversion['MakeInstance',
! eval(rawtable),
! eval(history),
! eval(quizcontext)]);
if quizcontext['SaveHistory'] then
***************
*** 882,884 ****
######################################################################
-
--- 894,895 ----
|
