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

Diff of /trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Index.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/Instructor/Index.pm,v 1.28 2004/01/31 04:28:48 gage Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Index.pm,v 1.29 2004/02/03 00:53:31 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.
… …
26use strict; 26use strict;
27use warnings; 27use warnings;
28use Apache::Constants qw(:common REDIRECT DONE); 28use Apache::Constants qw(:common REDIRECT DONE);
29use CGI qw(); 29use CGI qw();
30sub pre_header_initialize { 30sub pre_header_initialize {
31 my ($self, $setName, $problemNumber) = @_; 31 my ($self) = @_;
32 my $r = $self->{r}; 32 my $r = $self->{r};
33 my $ce = $self->{ce}; 33 my $ce = $self->{ce};
34 my $db = $self->{db}; 34 my $db = $self->{db};
35 my $authz = $self->{authz}; 35 my $authz = $self->{authz};
36 my $userName = $r->param('user'); 36 my $userName = $r->param('user');
Legend:
Removed from v.1840  
changed lines
  Added in v.1841
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9