[system] / trunk / webwork2 / lib / WeBWorK / ContentGenerator / ProblemSets.pm Repository:
ViewVC logotype

View of /trunk/webwork2/lib/WeBWorK/ContentGenerator/ProblemSets.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 443 - (download) (as text) (annotate)
Wed Jul 31 18:14:05 2002 UTC (11 years, 8 months ago) by sh002i
File size: 1226 byte(s)
converted CGI calls to "CGI->" style to avoid import conflicts with
&title and &body.
-sam

    1 package WeBWorK::ContentGenerator::ProblemSets;
    2 our @ISA = qw(WeBWorK::ContentGenerator);
    3 
    4 use strict;
    5 use warnings;
    6 use WeBWorK::ContentGenerator;
    7 use WeBWorK::DB::WW;
    8 use Apache::Constants qw(:common);
    9 use CGI qw();
   10 
   11 sub initialize {
   12   my $self = shift;
   13   my $courseEnvironment = $self->{courseEnvironment};
   14 
   15   # Open a database connection that we can use for the rest of
   16   # the content generation.
   17 
   18   my $wwdb = new WeBWorK::DB::WW $courseEnvironment;
   19   $self->{wwdb} = $wwdb;
   20 }
   21 
   22 sub title {
   23   my $self = shift;
   24   my $r = $self->{r};
   25   my $courseEnvironment = $self->{courseEnvironment};
   26   my $user = $r->param('user');
   27 
   28   return "Problem Sets for $user";
   29 }
   30 
   31 sub body {
   32   my $self = shift;
   33   my $r = $self->{r};
   34   my $courseEnvironment = $self->{courseEnvironment};
   35   my $user = $r->param('user');
   36   my $wwdb = $self->{wwdb};
   37 
   38   if (!defined $wwdb->getSets($user)) {
   39     print "undefined".CGI->br();
   40   }
   41 
   42   my @setNames = $wwdb->getSets($user);
   43 
   44   print "Set Names", CGI->br(), "\n";
   45   print join(CGI->br()."\n", @setNames);
   46   print CGI->p();
   47 
   48   print CGI->startform({-method=>"POST", -action=>$r->uri."set0/"});
   49   print $self->hidden_authen_fields;
   50   print CGI->input({-type=>"submit", -value=>"Do Set 0"});
   51   print CGI->endform();
   52   "";
   53 }
   54 
   55 1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9