| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader$ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSets.pm,v 1.34 2003/12/09 01:12:31 sh002i Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 51 | my $courseEnvironment = $self->{ce}; |
51 | my $courseEnvironment = $self->{ce}; |
| 52 | my $db = $self->{db}; |
52 | my $db = $self->{db}; |
| 53 | my $user = $r->param("user"); |
53 | my $user = $r->param("user"); |
| 54 | my $effectiveUser = $r->param("effectiveUser"); |
54 | my $effectiveUser = $r->param("effectiveUser"); |
| 55 | my $sort = $r->param("sort") || "status"; |
55 | my $sort = $r->param("sort") || "status"; |
| 56 | my $permissionLevel = $db->getPermissionLevel($user)->permission(); |
56 | my $permissionLevel = $db->getPermissionLevel($user)->permission(); # checked??? |
|
|
57 | $permissionLevel =0 unless defined $permissionLevel; |
| 57 | |
58 | |
| 58 | if (defined $courseEnvironment->{courseFiles}->{motd} |
59 | if (defined $courseEnvironment->{courseFiles}->{motd} |
| 59 | and $courseEnvironment->{courseFiles}->{motd}) { |
60 | and $courseEnvironment->{courseFiles}->{motd}) { |
| 60 | my $motd = eval { readFile($courseEnvironment->{courseFiles}->{motd}) }; |
61 | my $motd = eval { readFile($courseEnvironment->{courseFiles}->{motd}) }; |
| 61 | $@ or print $motd; |
62 | $@ or print $motd; |
| … | |
… | |
| 86 | @sets = sortByName("set_id", @sets) if $sort eq "name"; |
87 | @sets = sortByName("set_id", @sets) if $sort eq "name"; |
| 87 | @sets = sort byduedate @sets if $sort eq "status"; |
88 | @sets = sort byduedate @sets if $sort eq "status"; |
| 88 | $WeBWorK::timer->continue("End preparing merged sets") if defined($WeBWorK::timer); |
89 | $WeBWorK::timer->continue("End preparing merged sets") if defined($WeBWorK::timer); |
| 89 | |
90 | |
| 90 | foreach my $set (@sets) { |
91 | foreach my $set (@sets) { |
|
|
92 | die "set $set not defined" unless $set; |
| 91 | print $self->setListRow($set, ($permissionLevel > 0), |
93 | print $self->setListRow($set, ($permissionLevel > 0), |
| 92 | ($permissionLevel > 0)); |
94 | ($permissionLevel > 0)); |
| 93 | } |
95 | } |
| 94 | |
96 | |
| 95 | print CGI::end_table(); |
97 | print CGI::end_table(); |
Parent Directory
| 
Revision Log
| 
Patch