| … | |
… | |
| 74 | |
74 | |
| 75 | return $setName; |
75 | return $setName; |
| 76 | } |
76 | } |
| 77 | |
77 | |
| 78 | sub info { |
78 | sub info { |
| 79 | # NOTE: info doesn't # uhhh... doesn't what, dude? |
|
|
| 80 | my ($self, $setName) = @_; |
79 | my ($self, $setName) = @_; |
| 81 | |
80 | |
| 82 | my $r = $self->{r}; |
81 | my $r = $self->{r}; |
| 83 | my $ce = $self->{courseEnvironment}; |
82 | my $ce = $self->{courseEnvironment}; |
| 84 | |
83 | |
| … | |
… | |
| 86 | my $cldb = $self->{cldb}; |
85 | my $cldb = $self->{cldb}; |
| 87 | my $user = $cldb->getUser($r->param("user")); |
86 | my $user = $cldb->getUser($r->param("user")); |
| 88 | my $set = $wwdb->getSet($user->id, $setName); |
87 | my $set = $wwdb->getSet($user->id, $setName); |
| 89 | my $psvn = $wwdb->getPSVN($user->id, $setName); |
88 | my $psvn = $wwdb->getPSVN($user->id, $setName); |
| 90 | |
89 | |
| 91 | my $screenSetHeader = $ce->{webworkFiles}->{screenSnippets}->{setHeader}; |
90 | my $screenSetHeader = $set->problem_header || $ce->{webworkFiles}->{screenSnippets}->{setHeader}; |
| 92 | my $displayMode = $ce->{pg}->{options}->{displayMode}; |
91 | my $displayMode = $ce->{pg}->{options}->{displayMode}; |
| 93 | |
92 | |
| 94 | return "" unless defined $screenSetHeader and $screenSetHeader; |
93 | return "" unless defined $screenSetHeader and $screenSetHeader; |
| 95 | |
94 | |
| 96 | # decide what to do about problem number |
95 | # decide what to do about problem number |
Parent Directory
| 
Revision Log
| 
Patch