[system] / branches / rel-2-0-pr1-hardcopy-changes / webwork-modperl / lib / WeBWorK / ContentGenerator / Hardcopy.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-0-pr1-hardcopy-changes/webwork-modperl/lib/WeBWorK/ContentGenerator/Hardcopy.pm

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

Revision 669 Revision 716
… …
65sub body { 65sub body {
66 my $self = shift; 66 my $self = shift;
67 67
68 STUFF: { 68 STUFF: {
69 my $courseName = $self->{courseEnvironment}->{courseName}; 69 my $courseName = $self->{courseEnvironment}->{courseName};
70 my $userName = $self->{r}->param("user"); 70 my $userName = $self->{r}->param("effectiveUser");
71 my @sets = @{$self->{sets}}; 71 my @sets = @{$self->{sets}};
72 72
73 unless (@sets) { 73 unless (@sets) {
74 print CGI::p("No problem sets were specified."); 74 print CGI::p("No problem sets were specified.");
75 last STUFF; 75 last STUFF;
… …
279 my $r = $self->{r}; 279 my $r = $self->{r};
280 my $ce = $self->{courseEnvironment}; 280 my $ce = $self->{courseEnvironment};
281 281
282 my $wwdb = $self->{wwdb}; 282 my $wwdb = $self->{wwdb};
283 my $cldb = $self->{cldb}; 283 my $cldb = $self->{cldb};
284 my $user = $cldb->getUser($r->param("user")); 284 my $user = $cldb->getUser($r->param("effectiveUser"));
285 my $set = $wwdb->getSet($user->id, $setName); 285 my $set = $wwdb->getSet($user->id, $setName);
286 my $psvn = $wwdb->getPSVN($user->id, $setName); 286 my $psvn = $wwdb->getPSVN($user->id, $setName);
287 287
288 # decide what to do about problem number 288 # decide what to do about problem number
289 my $problem; 289 my $problem;
Legend:
Removed from v.669  
changed lines
  Added in v.716
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9