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

Diff of /trunk/webwork-modperl/lib/WeBWorK/PG.pm

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

Revision 2440 Revision 2699
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/PG.pm,v 1.55 2004/06/26 21:07:20 jj Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/PG.pm,v 1.56 2004/07/03 17:29:29 sh002i 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.
… …
189 189
190 # Other things... 190 # Other things...
191 $envir{QUIZ_PREFIX} = $options->{QUIZ_PREFIX}; # used by quizzes 191 $envir{QUIZ_PREFIX} = $options->{QUIZ_PREFIX}; # used by quizzes
192 $envir{PROBLEM_GRADER_TO_USE} = $ce->{pg}->{options}->{grader}; 192 $envir{PROBLEM_GRADER_TO_USE} = $ce->{pg}->{options}->{grader};
193 $envir{PRINT_FILE_NAMES_FOR} = $ce->{pg}->{specialPGEnvironmentVars}->{PRINT_FILE_NAMES_FOR}; 193 $envir{PRINT_FILE_NAMES_FOR} = $ce->{pg}->{specialPGEnvironmentVars}->{PRINT_FILE_NAMES_FOR};
194
195 # ADDED: __files__
196 # an array for mapping (eval nnn) to filenames in error messages
197 $envir{__files__} = {
198 root => $ce->{webworkDirs}{root}, # used to shorten filenames
199 pg => $ce->{pg}{directories}{root}, # ditto
200 tmpl => $ce->{courseDirs}{templates}, # ditto
201 };
194 202
195 # variables for interpreting capa problems and other things to be 203 # variables for interpreting capa problems and other things to be
196 # seen in a pg file 204 # seen in a pg file
197 my $specialPGEnvironmentVarHash = $ce->{pg}->{specialPGEnvironmentVars}; 205 my $specialPGEnvironmentVarHash = $ce->{pg}->{specialPGEnvironmentVars};
198 for my $SPGEV (keys %{$specialPGEnvironmentVarHash}) { 206 for my $SPGEV (keys %{$specialPGEnvironmentVarHash}) {
Legend:
Removed from v.2440  
changed lines
  Added in v.2699
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9