| … | |
… | |
| 23 | # $courseName name of the course being used |
23 | # $courseName name of the course being used |
| 24 | sub new { |
24 | sub new { |
| 25 | my $invocant = shift; |
25 | my $invocant = shift; |
| 26 | my $class = ref($invocant) || $invocant; |
26 | my $class = ref($invocant) || $invocant; |
| 27 | my $webworkRoot = shift; |
27 | my $webworkRoot = shift; |
|
|
28 | my $webworkURLRoot = shift; |
| 28 | my $courseName = shift; |
29 | my $courseName = shift; |
| 29 | my $safe = Safe->new; |
30 | my $safe = Safe->new; |
| 30 | |
31 | |
| 31 | # set up some defaults that the environment files will need |
32 | # set up some defaults that the environment files will need |
| 32 | $safe->reval("\$webworkRoot = '$webworkRoot'"); |
33 | $safe->reval("\$webworkRoot = '$webworkRoot'"); |
|
|
34 | $safe->reval("\$webworkURLRoot = '$webworkURLRoot'"); |
| 33 | $safe->reval("\$courseName = '$courseName'"); |
35 | $safe->reval("\$courseName = '$courseName'"); |
| 34 | |
36 | |
| 35 | # determine location of globalEnvironmentFile |
37 | # determine location of globalEnvironmentFile |
| 36 | my $globalEnvironmentFile = "$webworkRoot/conf/global.conf"; |
38 | my $globalEnvironmentFile = "$webworkRoot/conf/global.conf"; |
| 37 | |
39 | |