[system] / branches / gage_dev / webwork2 / lib / WeBWorK / ContentGenerator / Problem.pm Repository:
ViewVC logotype

Diff of /branches/gage_dev/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm

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

Revision 1840 Revision 1841
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: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.114 2004/02/04 13:22:56 gage Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Problem.pm,v 1.115 2004/03/04 04:36:08 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.
… …
63sub templateName { 63sub templateName {
64 "problem"; 64 "problem";
65} 65}
66 66
67sub pre_header_initialize { 67sub pre_header_initialize {
68 my ($self, $setName, $problemNumber) = @_; 68 my ($self) = @_;
69 my $r = $self->{r}; 69 my $r = $self->{r};
70 my $setName = $r->urlpath->arg("setID");
71 my $problemNumber = $r->urlpath->arg("problemID");
70 my $courseEnv = $self->{ce}; 72 my $courseEnv = $self->{ce};
71 my $db = $self->{db}; 73 my $db = $self->{db};
72 my $userName = $r->param('user'); 74 my $userName = $r->param('user');
73 my $effectiveUserName = $r->param('effectiveUser'); 75 my $effectiveUserName = $r->param('effectiveUser');
74 my $key = $r->param('key'); 76 my $key = $r->param('key');
Legend:
Removed from v.1840  
changed lines
  Added in v.1841
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9