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

Diff of /branches/gage_dev/webwork2/lib/WeBWorK/ContentGenerator/ProblemSets.pm

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

Revision 719 Revision 720
… …
53sub body { 53sub body {
54 my $self = shift; 54 my $self = shift;
55 my $r = $self->{r}; 55 my $r = $self->{r};
56 my $courseEnvironment = $self->{courseEnvironment}; 56 my $courseEnvironment = $self->{courseEnvironment};
57 my $user = $r->param("user"); 57 my $user = $r->param("user");
58 my $effectiveUser = $r->param("effectiveUser");
58 my $sort = $r->param("sort") || "status"; 59 my $sort = $r->param("sort") || "status";
59 my $wwdb = $self->{wwdb}; 60 my $wwdb = $self->{wwdb};
60 61
61 my $motd = eval { readFile($courseEnvironment->{courseFiles}->{motd}) }; 62 my $motd = eval { readFile($courseEnvironment->{courseFiles}->{motd}) };
62 $@ or print $motd; 63 $@ or print $motd;
… …
75 CGI::th($statusHeader), 76 CGI::th($statusHeader),
76 CGI::th("Hardcopy"), 77 CGI::th("Hardcopy"),
77 ); 78 );
78 79
79 my @sets; 80 my @sets;
80 push @sets, $wwdb->getSet($user, $_) foreach ($wwdb->getSets($user)); 81 push @sets, $wwdb->getSet($effectiveUser, $_) foreach ($wwdb->getSets($effectiveUser));
81 @sets = sort byname @sets if $sort eq "name"; 82 @sets = sort byname @sets if $sort eq "name";
82 @sets = sort byduedate @sets if $sort eq "status"; 83 @sets = sort byduedate @sets if $sort eq "status";
83 foreach my $set (@sets) { 84 foreach my $set (@sets) {
84 print $self->setListRow($set); 85 print $self->setListRow($set);
85 } 86 }
Legend:
Removed from v.719  
changed lines
  Added in v.720
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9