| … | |
… | |
| 45 | "Hardcopy Generator" => "", |
45 | "Hardcopy Generator" => "", |
| 46 | ); |
46 | ); |
| 47 | } |
47 | } |
| 48 | |
48 | |
| 49 | sub title { |
49 | sub title { |
| 50 | return "Hardcore Generator"; |
50 | return "Hardcopy Generator"; |
| 51 | } |
51 | } |
| 52 | |
52 | |
| 53 | sub body { |
53 | sub body { |
| 54 | my ($self, $singleSet) = @_; |
54 | my ($self, $singleSet) = @_; |
| 55 | $singleSet =~ s/^set//; |
55 | $singleSet =~ s/^set//; |
| … | |
… | |
| 99 | my $setName = $sets[0]; |
99 | my $setName = $sets[0]; |
| 100 | $fileName = "$courseName.$userName.$setName.pdf"; |
100 | $fileName = "$courseName.$userName.$setName.pdf"; |
| 101 | } else { |
101 | } else { |
| 102 | $fileName = "$courseName.$userName.pdf"; |
102 | $fileName = "$courseName.$userName.pdf"; |
| 103 | } |
103 | } |
| 104 | |
|
|
| 105 | my $tex = $self->getMultiSetTeX(@sets); |
104 | my $tex = $self->getMultiSetTeX(@sets); |
|
|
105 | #print CGI::pre($tex); |
| 106 | $self->latex2pdf($tex, $tempDir, $fileName) or return; |
106 | $self->latex2pdf($tex, $tempDir, $fileName) or return; |
| 107 | |
107 | |
| 108 | return "$tempURL/$fileName"; |
108 | return "$tempURL/$fileName"; |
| 109 | } |
109 | } |
| 110 | |
110 | |
| … | |
… | |
| 185 | |
185 | |
| 186 | my $tex = ""; |
186 | my $tex = ""; |
| 187 | |
187 | |
| 188 | # render header |
188 | # render header |
| 189 | $tex .= texBlockComment("BEGIN $setName : $setHeader"); |
189 | $tex .= texBlockComment("BEGIN $setName : $setHeader"); |
| 190 | #$tex .= $self->getProblemTeX($setName, 0, $setHeader); |
190 | $tex .= $self->getProblemTeX($setName, 0, $setHeader); |
| 191 | |
191 | |
| 192 | # render each problem |
192 | # render each problem |
| 193 | while (my $problemNumber = shift @problemNumbers) { |
193 | while (my $problemNumber = shift @problemNumbers) { |
| 194 | $tex .= texBlockComment("BEGIN $setName : $problemNumber"); |
194 | $tex .= texBlockComment("BEGIN $setName : $problemNumber"); |
| 195 | $tex .= $self->getProblemTeX($setName, $problemNumber); |
195 | $tex .= $self->getProblemTeX($setName, $problemNumber); |
| … | |
… | |
| 245 | showSolutions => 0, |
245 | showSolutions => 0, |
| 246 | processAnswers => 0, |
246 | processAnswers => 0, |
| 247 | }, |
247 | }, |
| 248 | ); |
248 | ); |
| 249 | |
249 | |
| 250 | # *** # handle errors/warnings here! |
|
|
| 251 | return $pg->{body_text}; |
250 | return $pg->{body_text}; |
| 252 | } |
251 | } |
| 253 | |
252 | |
| 254 | sub texInclude { |
253 | sub texInclude { |
| 255 | my ($self, $texFile) = @_; |
254 | my ($self, $texFile) = @_; |
Parent Directory
| 
Revision Log
| 
Patch