[system] / trunk / webwork-modperl / lib / WeBWorK / ProblemSet.pm Repository:
ViewVC logotype

View of /trunk/webwork-modperl/lib/WeBWorK/ProblemSet.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 323 - (download) (as text) (annotate)
Thu May 30 20:34:46 2002 UTC (17 years, 7 months ago) by malsyned
File size: 629 byte(s)
-Fixed a few interfaces so that they make more sense (I hope)
-Added preliminary templating code to ContentGenerator
-Added a lot of logic to the dispatcher (WeBWorK.pm).  More to come, too.
-Moved lots of things over to CGI.pm, for my convenience while prototyping
-Added preliminary examples of ProblemSets, ProblemSet, and Problem.
 Problem.pm will some day go on to do what ProcessProblem8 does right now,
 so keep your eyes on that one.
--Dennis

    1 package WeBWorK::ProblemSet;
    2 our @ISA = qw(WeBWorK::ContentGenerator);
    3 
    4 use WeBWorK::ContentGenerator;
    5 use Apache::Constants qw(:common);
    6 use CGI qw(-compile :html :form);
    7 
    8 sub go() {
    9   my ($self, $problem_set) = @_;
   10   my $r = $self->{r};
   11   my $courseEnvironment = $self->{courseEnvironment};
   12   my $user = $r->param('user');
   13 
   14   $self->header; return OK if $r->header_only;
   15   $self->top("Problem set $problem_set for $user");
   16   print startform({-method=>"POST", -action=>$r->uri."/prob2"});
   17   print $self->hidden_authen_fields;
   18   print input({-type=>"submit", -value=>"Do Problem 2"});
   19   print endform;
   20   $self->bottom;
   21 
   22   return OK;
   23 }
   24 
   25 1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9