| … | |
… | |
| 16 | use warnings; |
16 | use warnings; |
| 17 | use Safe; |
17 | use Safe; |
| 18 | use WeBWorK::Utils qw(readFile); |
18 | use WeBWorK::Utils qw(readFile); |
| 19 | |
19 | |
| 20 | # new($invocant, $webworkRoot, $courseName) |
20 | # new($invocant, $webworkRoot, $courseName) |
| 21 | # $invocant implicitly set by caller |
21 | # $invocant implicitly set by caller |
| 22 | # $webworkRoot directory that contains the WeBWorK distribution |
22 | # $webworkRoot directory that contains the WeBWorK distribution |
|
|
23 | # $webworkURLRoot URL that points to the WeBWorK system |
| 23 | # $courseName name of the course being used |
24 | # $courseName name of the course being used |
| 24 | sub new { |
25 | sub new { |
| 25 | my $invocant = shift; |
26 | my $invocant = shift; |
| 26 | my $class = ref($invocant) || $invocant; |
27 | my $class = ref($invocant) || $invocant; |
| 27 | my $webworkRoot = shift; |
28 | my $webworkRoot = shift; |
| 28 | my $webworkURLRoot = shift; |
29 | my $webworkURLRoot = shift; |