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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 441 Revision 443
4use strict; 4use strict;
5use warnings; 5use warnings;
6use WeBWorK::ContentGenerator; 6use WeBWorK::ContentGenerator;
7use WeBWorK::DB::WW; 7use WeBWorK::DB::WW;
8use Apache::Constants qw(:common); 8use Apache::Constants qw(:common);
9use CGI qw(-compile :html :form); 9use CGI qw();
10 10
11sub initialize { 11sub initialize {
12 my $self = shift; 12 my $self = shift;
13 my $courseEnvironment = $self->{courseEnvironment}; 13 my $courseEnvironment = $self->{courseEnvironment};
14 14
34 my $courseEnvironment = $self->{courseEnvironment}; 34 my $courseEnvironment = $self->{courseEnvironment};
35 my $user = $r->param('user'); 35 my $user = $r->param('user');
36 my $wwdb = $self->{wwdb}; 36 my $wwdb = $self->{wwdb};
37 37
38 if (!defined $wwdb->getSets($user)) { 38 if (!defined $wwdb->getSets($user)) {
39 print "undefined".br; 39 print "undefined".CGI->br();
40 } 40 }
41 41
42 my @setNames = $wwdb->getSets($user); 42 my @setNames = $wwdb->getSets($user);
43 43
44 print "Set Names<br>\n"; 44 print "Set Names", CGI->br(), "\n";
45 print join(br."\n", @setNames); 45 print join(CGI->br()."\n", @setNames);
46 print p; 46 print CGI->p();
47 47
48 print startform({-method=>"POST", -action=>$r->uri."set0/"}); 48 print CGI->startform({-method=>"POST", -action=>$r->uri."set0/"});
49 print $self->hidden_authen_fields; 49 print $self->hidden_authen_fields;
50 print input({-type=>"submit", -value=>"Do Set 0"}); 50 print CGI->input({-type=>"submit", -value=>"Do Set 0"});
51 print endform; 51 print CGI->endform();
52 ""; 52 "";
53} 53}
54 54
551; 551;

Legend:
Removed from v.441  
changed lines
  Added in v.443

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9