| … | |
… | |
| 96 | foreach (qw(IO.pl PG.pl dangerousMacros.pl)) { |
96 | foreach (qw(IO.pl PG.pl dangerousMacros.pl)) { |
| 97 | my $macroPath = $courseEnv->{webworkDirs}->{macros} . "/$_"; |
97 | my $macroPath = $courseEnv->{webworkDirs}->{macros} . "/$_"; |
| 98 | my $err = $translator->unrestricted_load($macroPath); |
98 | my $err = $translator->unrestricted_load($macroPath); |
| 99 | warn "Error while loading $macroPath: $err" if $err; |
99 | warn "Error while loading $macroPath: $err" if $err; |
| 100 | } |
100 | } |
| 101 | #my $pg_pl = $courseEnv->{webworkDirs}->{macros} . "/PG.pl"; |
|
|
| 102 | #my $dangerousMacros_pl = $courseEnv->{webworkDirs}->{macros} . "/dangerousMacros.pl"; |
|
|
| 103 | #my $io_pl = $courseEnv->{webworkDirs}->{macros} . "/IO.pl"; |
|
|
| 104 | #my $err = $translator->unrestricted_load($pg_pl); |
|
|
| 105 | #warn "Error while loading $pg_pl: $err" if $err; |
|
|
| 106 | #$err = $translator->unrestricted_load($dangerousMacros_pl); |
|
|
| 107 | #warn "Error while loading $dangerousMacros_pl: $err" if $err; |
|
|
| 108 | #$err = $translator->unrestricted_load($io_pl); |
|
|
| 109 | #warn "Error while loading $io_pl: $err" if $err; |
|
|
| 110 | |
101 | |
| 111 | # set the opcode mask (using default values) |
102 | # set the opcode mask (using default values) |
| 112 | #warn "PG: setting the opcode mask (using default values)\n"; |
103 | #warn "PG: setting the opcode mask (using default values)\n"; |
| 113 | $translator->set_mask(); |
104 | $translator->set_mask(); |
| 114 | |
105 | |