version 1.56, 2001/07/21 22:45:46
|
version 1.57, 2001/07/21 23:55:31
|
Line 87 undef %c;
|
Line 87 undef %c;
|
undef %rl; |
undef %rl; |
undef @os; |
undef @os; |
|
|
undef $nfield; |
|
undef $nsheet; |
|
|
|
$maxrow=0; |
$maxrow=0; |
$sheettype=''; |
$sheettype=''; |
|
|
Line 404 sub outrowassess {
|
Line 401 sub outrowassess {
|
my @cols=(); |
my @cols=(); |
if ($n) { |
if ($n) { |
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{'A'.$n}); |
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{'A'.$n}); |
$cols[0]=$rl{$f{'A'.$n}}.'<br>'. |
$cols[0]=$f{'A'.$n}.'<br>'.$rl{$usy}.'<br>'. |
'<select name="sel_'.$n.'" onChange="changesheet('.$n. |
'<select name="sel_'.$n.'" onChange="changesheet('.$n. |
')"><option name="default">Default</option>'; |
')"><option name="default">Default</option>'; |
map { |
map { |
Line 532 sub getmaxrow {
|
Line 529 sub getmaxrow {
|
my $safeeval=shift; |
my $safeeval=shift; |
return $safeeval->reval('$maxrow'); |
return $safeeval->reval('$maxrow'); |
} |
} |
# -------------------------------------------- Store which sheet needs changing |
|
|
|
sub changesheet { |
|
my ($safeeval,$nfield,$nsheet)=@_; |
|
$safeeval->reval('$nfield='.$nfield.'; $nsheet='.$nsheet.';'); |
|
} |
|
|
|
# ---------------------------------------------------------------- Set filename |
# ---------------------------------------------------------------- Set filename |
|
|
Line 964 sub tmpread {
|
Line 955 sub tmpread {
|
} |
} |
} |
} |
if ($nform eq 'changesheet') { |
if ($nform eq 'changesheet') { |
|
$fo{'A'.$nfield}=(split(/\_\_\&\&\&\_\_/,$fo{'A'.$nfield}))[0]; |
unless ($ENV{'form.sel_'.$nfield} eq 'Default') { |
unless ($ENV{'form.sel_'.$nfield} eq 'Default') { |
&changesheet($safeeval,$nfield,$ENV{'form.sel_'.$nfield}); |
$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield}; |
} |
} |
} else { |
} else { |
if ($nfield) { $fo{$nfield}=$nform; } |
if ($nfield) { $fo{$nfield}=$nform; } |
Line 1237 sub updatestudentassesssheet {
|
Line 1229 sub updatestudentassesssheet {
|
map { |
map { |
if ($_=~/^A(\d+)/) { |
if ($_=~/^A(\d+)/) { |
$maxrow=($1>$maxrow)?$1:$maxrow; |
$maxrow=($1>$maxrow)?$1:$maxrow; |
$existing{$f{$_}}=1; |
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{$_}); |
unless ((defined($current{$f{$_}})) || (!$1)) { |
$existing{$usy}=1; |
|
unless ((defined($current{$usy})) || (!$1)) { |
$f{$_}='!!! Obsolete'; |
$f{$_}='!!! Obsolete'; |
$changed=1; |
$changed=1; |
|
} elsif ($ufn) { |
|
$current{$usy} |
|
=~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn\&usymb\=/; |
} |
} |
} |
} |
} keys %f; |
} keys %f; |