[system] / trunk / webwork-modperl / lib / WeBWorK / PG.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/WeBWorK/PG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1143 Revision 1144
… …
12=cut 12=cut
13 13
14use strict; 14use strict;
15use warnings; 15use warnings;
16use File::Path qw(rmtree); 16use File::Path qw(rmtree);
17use File::Temp qw(tempdir);
18use WeBWorK::PG::Translator; 17use WeBWorK::PG::Translator;
19use WeBWorK::Utils qw(readFile formatDateTime writeTimingLogEntry); 18use WeBWorK::Utils qw(readFile formatDateTime writeTimingLogEntry makeTempDirectory);
20 19
21sub new($$$$$$$$) { 20sub new($$$$$$$$) {
22 my $invocant = shift; 21 my $invocant = shift;
23 my $class = ref($invocant) || $invocant; 22 my $class = ref($invocant) || $invocant;
24 my ( 23 my (
… …
309 $envir{tempDirectory} = $courseEnv->{courseDirs}->{html_temp}."/"; 308 $envir{tempDirectory} = $courseEnv->{courseDirs}->{html_temp}."/";
310 $envir{tempURL} = $courseEnv->{courseURLs}->{html_temp}."/"; 309 $envir{tempURL} = $courseEnv->{courseURLs}->{html_temp}."/";
311 $envir{scriptDirectory} = undef; 310 $envir{scriptDirectory} = undef;
312 $envir{webworkDocsURL} = $courseEnv->{webworkURLs}->{docs}."/"; 311 $envir{webworkDocsURL} = $courseEnv->{webworkURLs}->{docs}."/";
313 $envir{dvipngTempDir} = $options->{displayMode} eq 'images' 312 $envir{dvipngTempDir} = $options->{displayMode} eq 'images'
314 ? tempdir("webwork-dvipng-XXXXXXXX", DIR => $envir{tempDirectory}) 313 ? makeTempDirectory($envir{tempDirectory}, "webwork-dvipng")
315 : undef; 314 : undef;
316 315
317 # Information for sending mail 316 # Information for sending mail
318 317
319 $envir{mailSmtpServer} = $courseEnv->{mail}->{smtpServer}; 318 $envir{mailSmtpServer} = $courseEnv->{mail}->{smtpServer};
Legend:
Removed from v.1143  
changed lines
  Added in v.1144
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9