| … | |
… | |
| 49 | |
49 | |
| 50 | our @EXPORT = (); |
50 | our @EXPORT = (); |
| 51 | our @EXPORT_OK = qw( |
51 | our @EXPORT_OK = qw( |
| 52 | renderProblems |
52 | renderProblems |
| 53 | fake_set |
53 | fake_set |
|
|
54 | fake_set_version |
| 54 | fake_problem |
55 | fake_problem |
| 55 | fake_user |
56 | fake_user |
| 56 | ); |
57 | ); |
| 57 | |
58 | |
| 58 | use constant fakeSetName => "Undefined_Set"; |
59 | use constant fakeSetName => "Undefined_Set"; |
| … | |
… | |
| 80 | $set->open_date(time()); |
81 | $set->open_date(time()); |
| 81 | $set->due_date(time()); |
82 | $set->due_date(time()); |
| 82 | $set->answer_date(time()); |
83 | $set->answer_date(time()); |
| 83 | $set->published(0); |
84 | $set->published(0); |
| 84 | $set->hardcopy_header(""); |
85 | $set->hardcopy_header(""); |
|
|
86 | return($set); |
|
|
87 | } |
|
|
88 | |
|
|
89 | sub fake_set_version { |
|
|
90 | my $db = shift; |
|
|
91 | |
|
|
92 | my $set = $db->newSetVersion(); |
|
|
93 | # $set = global2user($db->{set_user}->{record}, $set); |
|
|
94 | $set->psvn(123); |
|
|
95 | $set->set_id(fakeSetName); |
|
|
96 | $set->open_date(time()); |
|
|
97 | $set->due_date(time()); |
|
|
98 | $set->answer_date(time()); |
|
|
99 | $set->published(0); |
|
|
100 | $set->hardcopy_header(""); |
|
|
101 | $set->version_id(1); |
|
|
102 | $set->attempts_per_version(0); |
|
|
103 | $set->problem_randorder(0); |
|
|
104 | $set->problems_per_page(0); |
|
|
105 | $set->hide_score('N'); |
|
|
106 | $set->hide_score_by_problem('N'); |
|
|
107 | $set->hide_work('N'); |
|
|
108 | $set->restrict_ip('No'); |
|
|
109 | |
| 85 | return($set); |
110 | return($set); |
| 86 | } |
111 | } |
| 87 | |
112 | |
| 88 | |
113 | |
| 89 | =item fake_problem |
114 | =item fake_problem |
Parent Directory
| 
Revision Log
| 
Patch