Return to lonuserstate.pm CVS log | Up to [LON-CAPA] / rat |
version 1.144, 2012/11/11 22:26:49 | version 1.145, 2013/05/06 18:08:39 |
---|---|
Line 1431 sub unlink_tmpfiles { | Line 1431 sub unlink_tmpfiles { |
my ($fn) = @_; | my ($fn) = @_; |
my $file_dir = dirname($fn); | my $file_dir = dirname($fn); |
if ($fn eq LONCAPA::tempdir()) { | if ("$file_dir/" eq LONCAPA::tempdir()) { |
my @files = qw (.db _symb.db .state _parms.db); | my @files = qw (.db _symb.db .state _parms.db); |
foreach my $file (@files) { | foreach my $file (@files) { |
if (-e $fn.$file) { | if (-e $fn.$file) { |