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

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

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

Revision 737 Revision 919
… …
2# WeBWorK mod_perl (c) 2000-2002 WeBWorK Project 2# WeBWorK mod_perl (c) 2000-2002 WeBWorK Project
3# $Id$ 3# $Id$
4################################################################################ 4################################################################################
5 5
6package WeBWorK::ContentGenerator::ProblemSet; 6package WeBWorK::ContentGenerator::ProblemSet;
7use base qw(WeBWorK::ContentGenerator);
7 8
8=head1 NAME 9=head1 NAME
9 10
10WeBWorK::ContentGenerator::ProblemSet - display an index of the problems in a 11WeBWorK::ContentGenerator::ProblemSet - display an index of the problems in a
11problem set. 12problem set.
12 13
13=cut 14=cut
14 15
15use strict; 16use strict;
16use warnings; 17use warnings;
17use base qw(WeBWorK::ContentGenerator);
18use Apache::Constants qw(:common);
19use CGI qw(); 18use CGI qw();
20use WeBWorK::ContentGenerator;
21use WeBWorK::DB::WW;
22use WeBWorK::DB::Classlist;
23 19
24sub initialize { 20sub initialize {
25 my $self = shift; 21 my ($self, $setName) = @_;
26 my $courseEnvironment = $self->{courseEnvironment}; 22 my $courseEnvironment = $self->{ce};
23 my $r = $self->{r};
24 my $db = $self->{db};
25 my $userName = $r->param("user");
26 my $effectiveUserName = $r->param("effectiveUser");
27 27
28 # Open a database connection that we can use for the rest of 28 my $user = $db->getUser($userName);
29 # the content generation. 29 my $effectiveUser = $db->getUser($effectiveUserName);
30 my $set = $db->getGlobalUserSet($effectiveUserName, $setName);
31 my $permissionLevel = $db->getPermissionLevel($userName)->permission();
30 32
31 $self->{wwdb} = WeBWorK::DB::WW->new($courseEnvironment); 33 $self->{userName} = $userName;
32 $self->{cldb} = WeBWorK::DB::Classlist->new($courseEnvironment); 34 $self->{user} = $user;
35 $self->{effectiveUser} = $effectiveUser;
36 $self->{set} = $set;
37 $self->{permissionLevel} = $permissionLevel;
38
39 ##### permissions #####
40
41 $self->{isOpen} = time >= $set->open_date || $permissionLevel > 0;
33} 42}
34 43
35sub path { 44sub path {
36 my ($self, $setName, $args) = @_; 45 my ($self, $setName, $args) = @_;
37 46
38 my $ce = $self->{courseEnvironment}; 47 my $ce = $self->{ce};
39 my $root = $ce->{webworkURLs}->{root}; 48 my $root = $ce->{webworkURLs}->{root};
40 my $courseName = $ce->{courseName}; 49 my $courseName = $ce->{courseName};
41 return $self->pathMacro($args, 50 return $self->pathMacro($args,
42 "Home" => "$root", 51 "Home" => "$root",
43 $courseName => "$root/$courseName", 52 $courseName => "$root/$courseName",
44 $setName => "", 53 $setName => "",
45 ); 54 );
46} 55}
47 56
57sub nav {
58 my ($self, $setName, $args) = @_;
59
60 my $ce = $self->{ce};
61 my $root = $ce->{webworkURLs}->{root};
62 my $courseName = $ce->{courseName};
63 my @links = ("Problem Sets" , "$root/$courseName", "navUp");
64 my $tail = "";
65
66 return $self->navMacro($args, $tail, @links);
67}
68
69
48sub siblings { 70sub siblings {
49 my ($self, $setName) = @_; 71 my ($self, $setName) = @_;
50 72
51 my $ce = $self->{courseEnvironment}; 73 my $ce = $self->{ce};
74 my $db = $self->{db};
52 my $root = $ce->{webworkURLs}->{root}; 75 my $root = $ce->{webworkURLs}->{root};
53 my $courseName = $ce->{courseName}; 76 my $courseName = $ce->{courseName};
54 77
55 print CGI::strong("Problem Sets"), CGI::br(); 78 print CGI::strong("Problem Sets"), CGI::br();
56 79
57 my $wwdb = $self->{wwdb};
58 my $effectiveUser = $self->{r}->param("effectiveUser"); 80 my $effectiveUser = $self->{r}->param("effectiveUser");
59 my @sets; 81 my @sets;
60 push @sets, $wwdb->getSet($effectiveUser, $_) foreach ($wwdb->getSets($effectiveUser)); 82 push @sets, $db->getGlobalUserSet($effectiveUser, $_)
83 foreach ($db->listUserSets($effectiveUser));
61 foreach my $set (sort { $a->open_date <=> $b->open_date } @sets) { 84 foreach my $set (sort { $a->open_date <=> $b->open_date } @sets) {
62 if (time >= $set->open_date) { 85 if (time >= $set->open_date) {
63 print CGI::a({-href=>"$root/$courseName/".$set->id."/?" 86 print CGI::a({-href=>"$root/$courseName/".$set->set_id."/?"
64 . $self->url_authen_args}, $set->id), CGI::br(); 87 . $self->url_authen_args}, $set->set_id), CGI::br();
65 } else { 88 } else {
66 print $set->id, CGI::br(); 89 print $set->set_id, CGI::br();
67 } 90 }
68 } 91 }
69} 92}
70 93
71sub title { 94sub title {
… …
76 99
77sub info { 100sub info {
78 my ($self, $setName) = @_; 101 my ($self, $setName) = @_;
79 102
80 my $r = $self->{r}; 103 my $r = $self->{r};
81 my $ce = $self->{courseEnvironment}; 104 my $ce = $self->{ce};
82
83 my $wwdb = $self->{wwdb}; 105 my $db = $self->{db};
84 my $cldb = $self->{cldb}; 106
107 return "" unless $self->{isOpen};
108
85 my $effectiveUser = $cldb->getUser($r->param("effectiveUser")); 109 my $effectiveUser = $db->getUser($r->param("effectiveUser"));
86 my $set = $wwdb->getSet($effectiveUser->id, $setName); 110 my $set = $db->getGlobalUserSet($effectiveUser->user_id, $setName);
87 my $psvn = $wwdb->getPSVN($effectiveUser->id, $setName); 111 my $psvn = $set->psvn();
88 112
89 my $screenSetHeader = $set->problem_header || $ce->{webworkFiles}->{screenSnippets}->{setHeader}; 113 my $screenSetHeader = $set->problem_header || $ce->{webworkFiles}->{screenSnippets}->{setHeader};
90 my $displayMode = $ce->{pg}->{options}->{displayMode}; 114 my $displayMode = $ce->{pg}->{options}->{displayMode};
91 115
92 return "" unless defined $screenSetHeader and $screenSetHeader; 116 return "" unless defined $screenSetHeader and $screenSetHeader;
93 117
94 # decide what to do about problem number 118 # decide what to do about problem number
95 my $problem = WeBWorK::Problem->new( 119 my $problem = WeBWorK::DB::Record::UserProblem->new(
96 id => 0, 120 problem_id => 0,
97 set_id => $set->id, 121 set_id => $set->set_id,
98 login_id => $effectiveUser->id, 122 login_id => $effectiveUser->user_id,
99 source_file => $screenSetHeader, 123 source_file => $screenSetHeader,
100 # the rest of Problem's fields are not needed, i think 124 # the rest of Problem's fields are not needed, i think
101 ); 125 );
102 126
103 my $pg = WeBWorK::PG->new( 127 my $pg = WeBWorK::PG->new(
… …
125} 149}
126 150
127sub body { 151sub body {
128 my ($self, $setName) = @_; 152 my ($self, $setName) = @_;
129 my $r = $self->{r}; 153 my $r = $self->{r};
130 my $courseEnvironment = $self->{courseEnvironment}; 154 my $courseEnvironment = $self->{ce};
155 my $db = $self->{db};
131 my $effectiveUser = $r->param('effectiveUser'); 156 my $effectiveUser = $r->param('effectiveUser');
132 my $wwdb = $self->{wwdb}; 157
158 return CGI::p(CGI::font({-color=>"red"}, "This problem set is not available because it is not yet open."))
159 unless ($self->{isOpen});
133 160
134 my $hardcopyURL = 161 my $hardcopyURL =
135 $courseEnvironment->{webworkURLs}->{root} . "/" 162 $courseEnvironment->{webworkURLs}->{root} . "/"
136 . $courseEnvironment->{courseName} . "/" 163 . $courseEnvironment->{courseName} . "/"
137 . "hardcopy/$setName/?" . $self->url_authen_args; 164 . "hardcopy/$setName/?" . $self->url_authen_args;
… …
144 CGI::th("Attempts"), 171 CGI::th("Attempts"),
145 CGI::th("Remaining"), 172 CGI::th("Remaining"),
146 CGI::th("Status"), 173 CGI::th("Status"),
147 ); 174 );
148 175
149 my $set = $wwdb->getSet($effectiveUser, $setName); 176 my $set = $db->getGlobalUserSet($effectiveUser, $setName);
150 my @problemNumbers = $wwdb->getProblems($effectiveUser, $setName); 177 my @problemNumbers = $db->listUserProblems($effectiveUser, $setName);
151 foreach my $problemNumber (sort { $a <=> $b } @problemNumbers) { 178 foreach my $problemNumber (sort { $a <=> $b } @problemNumbers) {
152 my $problem = $wwdb->getProblem($effectiveUser, $setName, $problemNumber); 179 my $problem = $db->getGlobalUserProblem($effectiveUser, $setName, $problemNumber);
153 print $self->problemListRow($set, $problem); 180 print $self->problemListRow($set, $problem);
154 } 181 }
155 182
156 print CGI::end_table(); 183 print CGI::end_table();
157 184
158 # feedback form 185 # feedback form
159 my $ce = $self->{courseEnvironment}; 186 my $ce = $self->{ce};
160 my $root = $ce->{webworkURLs}->{root}; 187 my $root = $ce->{webworkURLs}->{root};
161 my $courseName = $ce->{courseName}; 188 my $courseName = $ce->{courseName};
162 my $feedbackURL = "$root/$courseName/feedback/"; 189 my $feedbackURL = "$root/$courseName/feedback/";
163 print 190 print
164 CGI::startform("POST", $feedbackURL), 191 CGI::startform("POST", $feedbackURL),
165 $self->hidden_authen_fields, 192 $self->hidden_authen_fields,
166 CGI::hidden("module", __PACKAGE__), 193 CGI::hidden("module", __PACKAGE__),
167 CGI::hidden("set", $set->id), 194 CGI::hidden("set", $set->set_id),
168 CGI::p({-align=>"right"}, 195 CGI::p({-align=>"right"},
169 CGI::submit(-name=>"feedbackForm", -label=>"Send Feedback") 196 CGI::submit(-name=>"feedbackForm", -label=>"Send Feedback")
170 ), 197 ),
171 CGI::endform(); 198 CGI::endform();
172 199
… …
176sub problemListRow($$$) { 203sub problemListRow($$$) {
177 my $self = shift; 204 my $self = shift;
178 my $set = shift; 205 my $set = shift;
179 my $problem = shift; 206 my $problem = shift;
180 207
181 my $name = $problem->id; 208 my $name = $problem->problem_id;
182 my $interactiveURL = "$name/?" . $self->url_authen_args; 209 my $interactiveURL = "$name/?" . $self->url_authen_args;
183 my $interactive = CGI::a({-href=>$interactiveURL}, "Problem $name"); 210 my $interactive = CGI::a({-href=>$interactiveURL}, "Problem $name");
184 my $attempts = $problem->num_correct + $problem->num_incorrect; 211 my $attempts = $problem->num_correct + $problem->num_incorrect;
185 my $remaining = $problem->max_attempts < 0 212 my $remaining = $problem->max_attempts < 0
186 ? "unlimited" 213 ? "unlimited"
Legend:
Removed from v.737  
changed lines
  Added in v.919
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9