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

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

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

Revision 794 Revision 795
… …
246 246
247 my $wwdb = $self->{wwdb}; 247 my $wwdb = $self->{wwdb};
248 my $effectiveUser = $self->{r}->param("effectiveUser"); 248 my $effectiveUser = $self->{r}->param("effectiveUser");
249 my $tail = "&displayMode=".$self->{displayMode}; 249 my $tail = "&displayMode=".$self->{displayMode};
250 250
251 my @links = ("Problem List" , "$root/$courseName/$setName", "ProbList"); 251 my @links = ("Problem List" , "$root/$courseName/$setName", "navProbList");
252 252
253 my $prevProblem = $wwdb->getProblem($effectiveUser, $setName, $problemNumber-1); 253 my $prevProblem = $wwdb->getProblem($effectiveUser, $setName, $problemNumber-1);
254 my $nextProblem = $wwdb->getProblem($effectiveUser, $setName, $problemNumber+1); 254 my $nextProblem = $wwdb->getProblem($effectiveUser, $setName, $problemNumber+1);
255 unshift @links, "Previous Problem" , ($prevProblem 255 unshift @links, "Previous Problem" , ($prevProblem
256 ? "$root/$courseName/$setName/".$prevProblem->id 256 ? "$root/$courseName/$setName/".$prevProblem->id
257 : "") , "Prev"; 257 : "") , "navPrev";
258 push @links, "Next Problem" , ($nextProblem 258 push @links, "Next Problem" , ($nextProblem
259 ? "$root/$courseName/$setName/".$nextProblem->id 259 ? "$root/$courseName/$setName/".$nextProblem->id
260 : "") , "Next"; 260 : "") , "navNext";
261 261
262 return $self->navMacro($args, $tail, @links); 262 return $self->navMacro($args, $tail, @links);
263} 263}
264 264
265sub title { 265sub title {
Legend:
Removed from v.794  
changed lines
  Added in v.795
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9