loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.8, 2003/05/27 21:17:22	version 1.9, 2003/05/28 15:20:40
Line 157 sub filename {	Line 157 sub filename {
$newfilename =~ /^\W*$/) {	$newfilename =~ /^\W*$/) {
$newfilename = 'default.'.$self->{'type'};	$newfilename = 'default.'.$self->{'type'};
}	}
} elsif ($newfilename !~ /^\/res\/.*\.spreadsheet/) {	} elsif ($newfilename !~ /^\/res\/.*\.spreadsheet/ &&
	$newfilename !~ /^default\.$self->{'type'}$/ ) {
my $regexp = '_'.$self->{'type'}.'$';	my $regexp = '_'.$self->{'type'}.'$';
if ($newfilename !~ /$regexp/) {	if ($newfilename !~ /$regexp/) {
$newfilename .= '_'.$self->{'type'};	$newfilename .= '_'.$self->{'type'};
Line 1604 sub save {	Line 1605 sub save {

sub save_tmp {	sub save_tmp {
my $self = shift;	my $self = shift;
my $fn=$ENV{'user.name'}.'_'.	my $filename=$ENV{'user.name'}.'_'.
$ENV{'user.domain'}.'_spreadsheet_'.$self->{'usymb'}.'_'.	$ENV{'user.domain'}.'_spreadsheet_'.$self->{'usymb'}.'_'.
$self->{'filename'};	$self->{'filename'};
$fn=~s/\W/\_/g;	$filename=~s/\W/\_/g;
$fn=$Apache::lonnet::tmpdir.$fn.'.tmp';	$filename=$Apache::lonnet::tmpdir.$filename.'.tmp';
$self->temporary(1);	$self->temporary(1);
my $fh;	my $fh;
if ($fh=Apache::File->new('>'.$fn)) {	if ($fh=Apache::File->new('>'.$filename)) {
my %f = $self->formulas();	my %f = $self->formulas();
while( my ($cell,$formula) = each(%f)) {	while( my ($cell,$formula) = each(%f)) {
next if ($formula eq 'import');	next if ($formula eq 'import');