version 1.24, 2001/01/01 19:28:37
|
version 1.26, 2001/01/01 20:52:10
|
Line 1051 sub rowazclass {
|
Line 1051 sub rowazclass {
|
&Apache::lonnet::ssi( |
&Apache::lonnet::ssi( |
'/adm/studentcalc',('utarget' => 'export', |
'/adm/studentcalc',('utarget' => 'export', |
'uname' => $tname, |
'uname' => $tname, |
'udom' => $tdom, |
'udom' => $tdom))); |
'usymb' => $f{$_}))); |
|
my $index=0; |
my $index=0; |
map { |
map { |
if ($assessdata[$index]) { |
if ($assessdata[$index]) { |
Line 1283 ENDSCRIPT
|
Line 1282 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\:/) || ($reply eq '')) { |
|
$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 1333 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 1359 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') { |
Line 1352 ENDSCRIPT
|
Line 1378 ENDSCRIPT
|
&rowaassess($sheetone,$ENV{'form.usymb'}); |
&rowaassess($sheetone,$ENV{'form.usymb'}); |
} elsif (&gettype($sheetone) eq 'studentcalc') { |
} elsif (&gettype($sheetone) eq 'studentcalc') { |
&rowazstudent($sheetone); |
&rowazstudent($sheetone); |
|
} else { |
|
&rowazclass($sheetone); |
} |
} |
my $calcoutput=&calcsheet($sheetone); |
my $calcoutput=&calcsheet($sheetone); |
unless ($reroute) { |
unless ($reroute) { |