| … | |
… | |
| 3 | # $Id$ |
3 | # $Id$ |
| 4 | ################################################################################ |
4 | ################################################################################ |
| 5 | |
5 | |
| 6 | package WeBWorK::PG; |
6 | package WeBWorK::PG; |
| 7 | |
7 | |
|
|
8 | =head1 NAME |
|
|
9 | |
|
|
10 | WeBWorK::PG - Wrap the action of the PG Translator in an easy-to-use API |
|
|
11 | |
|
|
12 | =cut |
|
|
13 | |
| 8 | use strict; |
14 | use strict; |
| 9 | use warnings; |
15 | use warnings; |
| 10 | use WeBWorK::Utils qw(readFile formatDateTime); |
|
|
| 11 | use WeBWorK::DB::Classlist; |
16 | use WeBWorK::DB::Classlist; |
| 12 | use WeBWorK::DB::WW; |
17 | use WeBWorK::DB::WW; |
| 13 | use WeBWorK::PG::Translator; |
18 | use WeBWorK::PG::Translator; |
|
|
19 | use WeBWorK::Utils qw(readFile formatDateTime); |
| 14 | |
20 | |
| 15 | sub new($$$$$$$$) { |
21 | sub new($$$$$$$$) { |
| 16 | my $invocant = shift; |
22 | my $invocant = shift; |
| 17 | my $class = ref($invocant) || $invocant; |
23 | my $class = ref($invocant) || $invocant; |
| 18 | my ( |
24 | my ( |
| … | |
… | |
| 291 | |
297 | |
| 292 | 1; |
298 | 1; |
| 293 | |
299 | |
| 294 | __END__ |
300 | __END__ |
| 295 | |
301 | |
| 296 | =head1 NAME |
|
|
| 297 | |
|
|
| 298 | WeBWorK::PG - Wrap the action of the PG Translator in an easy-to-use API |
|
|
| 299 | |
|
|
| 300 | =head1 SYNOPSIS |
302 | =head1 SYNOPSIS |
| 301 | |
303 | |
| 302 | $pg = WeBWorK::PG->new( |
304 | $pg = WeBWorK::PG->new( |
| 303 | $courseEnv, # a WeBWorK::CourseEnvironment object |
305 | $courseEnv, # a WeBWorK::CourseEnvironment object |
| 304 | $userName, |
306 | $userName, |