--- loncom/interface/Attic/lonspreadsheet.pm 2003/02/13 21:57:48 1.169 +++ loncom/interface/Attic/lonspreadsheet.pm 2003/02/13 22:22:01 1.170 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.169 2003/02/13 21:57:48 matthew Exp $ +# $Id: lonspreadsheet.pm,v 1.170 2003/02/13 22:22:01 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -262,7 +262,6 @@ ENDSCRIPT # Global directory configs # $sheet->includedir($r->dir_config('lonIncludes')); - $sheet->tmpdir($r->dir_config('lonDaemons').'/tmp/'); # # Check user permissions if (($sheet->{'type'} eq 'classcalc' ) || @@ -524,18 +523,12 @@ my %numbertimes; # Directories # my $includedir; -my $tmpdir; sub includedir { my $self = shift; $includedir = shift; } -sub tmpdir { - my $self = shift; - $tmpdir = shift; -} - my %spreadsheets; #my %loadedcaches; my %courserdatas; @@ -2778,7 +2771,7 @@ sub tmpwrite { $ENV{'user.domain'}.'_spreadsheet_'.$self->{'usymb'}.'_'. $self->{'filename'}; $fn=~s/\W/\_/g; - $fn=$tmpdir.$fn.'.tmp'; + $fn=$Apache::lonnet::tmpdir.$fn.'.tmp'; my $fh; if ($fh=Apache::File->new('>'.$fn)) { my %f = $self->formulas(); @@ -2797,7 +2790,7 @@ sub tmpread { $ENV{'user.domain'}.'_spreadsheet_'.$self->{'usymb'}.'_'. $self->{'filename'}; $fn=~s/\W/\_/g; - $fn=$tmpdir.$fn.'.tmp'; + $fn=$Apache::lonnet::tmpdir.$fn.'.tmp'; my $fh; my %fo=(); my $countrows=0;