version 1.24, 2001/01/01 19:28:37
|
version 1.25, 2001/01/01 20:25:57
|
Line 1283 ENDSCRIPT
|
Line 1283 ENDSCRIPT
|
&tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/', |
&tmpread($sheetone,$r->dir_config('lonDaemons').'/tmp/', |
$ENV{'form.usymb'}); |
$ENV{'form.usymb'}); |
} else { |
} else { |
|
unless ($ENV{'form.ufn'}) { |
|
my $reply=&Apache::lonnet::reply('get:'. |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'. |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}. |
|
':environment:spreadsheet_default_'. |
|
&gettype($sheetone), |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}); |
|
unless ($reply=~/^error\:/) { |
|
$ENV{'form.ufn'}=$reply; |
|
unless ($reroute) { |
|
$r->print('<p>Using customized default spreadsheet<p>'); |
|
} |
|
} |
|
} |
&readsheet($sheetone,$ENV{'form.ufn'},$r); |
&readsheet($sheetone,$ENV{'form.ufn'},$r); |
$ENV{'form.ufn'}=&getfilename($sheetone); |
$ENV{'form.ufn'}=&getfilename($sheetone); |
} |
} |
Line 1320 ENDSCRIPT
|
Line 1334 ENDSCRIPT
|
unless ($reroute) { |
unless ($reroute) { |
$r->print('<p>Saving spreadsheet: '.$reply.'<p>'); |
$r->print('<p>Saving spreadsheet: '.$reply.'<p>'); |
} |
} |
|
if ($ENV{'form.makedefufn'}) { |
|
my $reply=&Apache::lonnet::reply('put:'. |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'. |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}. |
|
':environment:spreadsheet_default_'. |
|
&gettype($sheetone).'='. |
|
&Apache::lonnet::escape($fname), |
|
$ENV{'course.'.$ENV{'request.course.id'}.'.home'}); |
|
unless ($reroute) { |
|
$r->print('<p>Making default spreadsheet: '.$reply.'<p>'); |
|
} |
|
} |
} |
} |
} |
} |
# ------------------------------------------------ Write the modified worksheet |
# ------------------------------------------------ Write the modified worksheet |
Line 1334 ENDSCRIPT
|
Line 1360 ENDSCRIPT
|
$fname=~s/\_[^\_]+$//; |
$fname=~s/\_[^\_]+$//; |
if ($fname eq 'default') { $fname='course_default'; } |
if ($fname eq 'default') { $fname='course_default'; } |
$r->print('<input type=submit name=saveas value="Save as ...">'. |
$r->print('<input type=submit name=saveas value="Save as ...">'. |
'<input type=text size=20 name=newfn value="'.$fname.'"><p>'); |
'<input type=text size=20 name=newfn value="'.$fname. |
|
'"> (make default: <input type=checkbox name="makedefufn">)<p>'); |
} |
} |
$r->print(&hiddenfield('ufn',$ENV{'form.ufn'})); |
$r->print(&hiddenfield('ufn',$ENV{'form.ufn'})); |
unless (&gettype($sheetone) eq 'classcalc') { |
unless (&gettype($sheetone) eq 'classcalc') { |