[system] / trunk / webwork-modperl / lib / WeBWorK / ContentGenerator / ProblemSets.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSets.pm

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

Revision 692 Revision 701
… …
16use base qw(WeBWorK::ContentGenerator); 16use base qw(WeBWorK::ContentGenerator);
17use Apache::Constants qw(:common); 17use Apache::Constants qw(:common);
18use CGI qw(); 18use CGI qw();
19use WeBWorK::ContentGenerator; 19use WeBWorK::ContentGenerator;
20use WeBWorK::DB::WW; 20use WeBWorK::DB::WW;
21use WeBWorK::Utils qw(formatDateTime); 21use WeBWorK::Utils qw(readFile formatDateTime);
22 22
23sub initialize { 23sub initialize {
24 my $self = shift; 24 my $self = shift;
25 my $courseEnvironment = $self->{courseEnvironment}; 25 my $courseEnvironment = $self->{courseEnvironment};
26 26
… …
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 $sort = $r->param("sort") || "status"; 58 my $sort = $r->param("sort") || "status";
59 my $wwdb = $self->{wwdb}; 59 my $wwdb = $self->{wwdb};
60
61 my $motd = eval { readFile($courseEnvironment->{courseFiles}->{motd}) };
62 $@ or print $motd;
60 63
61 $sort = "status" unless $sort eq "status" or $sort eq "name"; 64 $sort = "status" unless $sort eq "status" or $sort eq "name";
62 my $baseURL = $r->uri . "?" . $self->url_authen_args(); 65 my $baseURL = $r->uri . "?" . $self->url_authen_args();
63 my $nameHeader = ($sort eq "name") ? "Name" : CGI::a({-href=>"$baseURL&sort=name"}, "Name"); 66 my $nameHeader = ($sort eq "name") ? "Name" : CGI::a({-href=>"$baseURL&sort=name"}, "Name");
64 my $statusHeader = ($sort eq "status") ? "Status" : CGI::a({-href=>"$baseURL&sort=status"}, "Status"); 67 my $statusHeader = ($sort eq "status") ? "Status" : CGI::a({-href=>"$baseURL&sort=status"}, "Status");
Legend:
Removed from v.692  
changed lines
  Added in v.701
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9