[Aimmath-commit] AIM/WEB-INF/maple Aim.mpl,1.4,1.5

[<gus...@us...>]

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