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

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

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

Revision 4276 Revision 4277
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSet.pm,v 1.83 2006/07/12 01:23:54 gage Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/ProblemSet.pm,v 1.84 2006/07/16 02:40:34 gage 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.
… …
41 my $authz = $r->authz; 41 my $authz = $r->authz;
42 42
43 my $setName = $urlpath->arg("setID"); 43 my $setName = $urlpath->arg("setID");
44 my $userName = $r->param("user"); 44 my $userName = $r->param("user");
45 my $effectiveUserName = $r->param("effectiveUser"); 45 my $effectiveUserName = $r->param("effectiveUser");
46 $self->{displayMode} = $r->param('displayMode') || $r->ce->{pg}->{options}->{displayMode};
47
46 48
47 my $user = $db->getUser($userName); # checked 49 my $user = $db->getUser($userName); # checked
48 my $effectiveUser = $db->getUser($effectiveUserName); # checked 50 my $effectiveUser = $db->getUser($effectiveUserName); # checked
49 my $set = $db->getMergedSet($effectiveUserName, $setName); # checked 51 my $set = $db->getMergedSet($effectiveUserName, $setName); # checked
50 52
Legend:
Removed from v.4276  
changed lines
  Added in v.4277
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9