| … | |
… | |
| 28 | |
28 | |
| 29 | # if that evaluation failed, we can't really go on -- we need a course environment! |
29 | # if that evaluation failed, we can't really go on -- we need a course environment! |
| 30 | $@ and die "Could not evaluate course environment file $courseEnvironmentFile: $@"; |
30 | $@ and die "Could not evaluate course environment file $courseEnvironmentFile: $@"; |
| 31 | |
31 | |
| 32 | my $self = { %globalConf, %courseConf }; |
32 | my $self = { %globalConf, %courseConf }; |
|
|
33 | |
|
|
34 | # This comes in as a parameter to new(), not from any file. |
|
|
35 | $self->{courseName} = $courseName; |
| 33 | bless $self, $class; |
36 | bless $self, $class; |
| 34 | return $self; |
37 | return $self; |
| 35 | } |
38 | } |
| 36 | |
39 | |
| 37 | sub get { |
40 | sub get { |
Parent Directory
| 
Revision Log
| 
Patch