version 1.125, 2002/10/24 14:34:07
|
version 1.127, 2002/10/24 15:34:10
|
Line 1042 sub setconstants {
|
Line 1042 sub setconstants {
|
$constants = \%tmp; |
$constants = \%tmp; |
} |
} |
$sheet->{'constants'} = $constants; |
$sheet->{'constants'} = $constants; |
&Apache::lonnet::logthis("----------------------------------"); |
|
foreach my $c (keys(%{$sheet->{'constants'}})) { |
|
&Apache::lonnet::logthis('constant '.$c.' = '. |
|
$sheet->{'constants'}->{$c}); |
|
} |
|
return %{$sheet->{'safe'}->varglob('c')}=%{$sheet->{'constants'}}; |
return %{$sheet->{'safe'}->varglob('c')}=%{$sheet->{'constants'}}; |
} |
} |
|
|
Line 1631 sub format_rowlabel {
|
Line 1626 sub format_rowlabel {
|
if ($ENV{'form.showcsv'}) { |
if ($ENV{'form.showcsv'}) { |
$result = $title; |
$result = $title; |
} else { |
} else { |
$result = '<a href="/adm/assesscalc?usmb='.$symb. |
$result = '<a href="/adm/assesscalc?usymb='.$symb. |
'&uname='.$uname.'&udom='.$udom.'">'.$title.'</a>'; |
'&uname='.$uname.'&udom='.$udom.'">'.$title.'</a>'; |
} |
} |
} elsif ($type eq 'student') { |
} elsif ($type eq 'student') { |
Line 1646 sub format_rowlabel {
|
Line 1641 sub format_rowlabel {
|
} |
} |
} elsif ($type eq 'parameter') { |
} elsif ($type eq 'parameter') { |
if ($ENV{'form.showcsv'}) { |
if ($ENV{'form.showcsv'}) { |
$result = $labeldata =~ s/<br>//g; |
$labeldata =~ s/<br>/ /g; |
} else { |
|
$result = $labeldata; |
|
} |
} |
|
$result = $labeldata; |
} else { |
} else { |
&Apache::lonnet::logthis("lonspreadsheet:bogus rowlabel type: $type"); |
&Apache::lonnet::logthis("lonspreadsheet:bogus rowlabel type: $type"); |
} |
} |