--- loncom/interface/Attic/lonspreadsheet.pm 2000/12/30 17:13:54 1.20
+++ loncom/interface/Attic/lonspreadsheet.pm 2000/12/30 19:59:18 1.21
@@ -328,6 +328,20 @@ sub calc {
return '';
}
+sub templaterow {
+ my @cols=();
+ $cols[0]='Template';
+ map {
+ my $fm=$f{'template_'.$_};
+ $fm=~s/[\'\"]/\&\#34;/g;
+ $cols[$#cols+1]="'template_$_','$fm'".'___eq___'.$fm;
+ } ('A','B','C','D','E','F','G','H','I','J','K','L','M',
+ 'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
+ 'a','b','c','d','e','f','g','h','i','j','k','l','m',
+ 'n','o','p','q','r','s','t','u','v','w','x','y','z');
+ return @cols;
+}
+
sub outrowassess {
my $n=shift;
my @cols=();
@@ -351,7 +365,7 @@ sub outrow {
my $n=shift;
my @cols=();
if ($n) {
- $cols[0]=$rl{$f{'A'.$n}}.' stuff';
+ $cols[0]=$rl{$f{'A'.$n}};
} else {
$cols[0]='Export';
}
@@ -480,7 +494,12 @@ sub exportrow {
sub rown {
my ($safeeval,$n)=@_;
- my $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';
+ my $defaultbg;
+ unless ($n eq '-') {
+ $defaultbg=((($n-1)/5)==int(($n-1)/5))?'#E0E0':'#FFFF';
+ } else {
+ $defaultbg='#E0FF';
+ }
my $rowdata="\n
$n | ";
my $showf=0;
my $proc;
@@ -492,6 +511,7 @@ sub rown {
$proc='&outrow';
$maxred=26;
}
+ if ($n eq '-') { $proc='&templaterow'; $n=-1; }
map {
my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');
my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);
@@ -552,6 +572,7 @@ sub outsheet {
$tabledata.='
';
my $row;
my $maxrow=&getmaxrow($safeeval);
+ $tabledata.=&rown($safeeval,'-');
for ($row=0;$row<=$maxrow;$row++) {
$tabledata.=&rown($safeeval,$row);
}
@@ -565,7 +586,7 @@ sub outsheet {
sub readsheet {
my ($safeeval,$fn,$r)=@_;
my %f=();
- unless ($fn) {
+ if (($fn eq '') || ($fn=~/^default\_/)) {
my $sheetxml='';
{
my $fh;
@@ -636,7 +657,7 @@ sub writesheet {
sub tmpwrite {
my ($safeeval,$tmpdir,$symb)=@_;
- my $fn=$uname.'_'.$udom.'_spreadsheet_'.&getfilename($safeeval);
+ my $fn=$uname.'_'.$udom.'_spreadsheet_'.$symb.'_'.&getfilename($safeeval);
$fn=~s/\W/\_/g;
$fn=$tmpdir.$fn.'.tmp';
my $fh;
@@ -649,7 +670,7 @@ sub tmpwrite {
sub tmpread {
my ($safeeval,$tmpdir,$symb,$nfield,$nform)=@_;
- my $fn=$uname.'_'.$udom.'_spreadsheet_'.&getfilename($safeeval);
+ my $fn=$uname.'_'.$udom.'_spreadsheet_'.$symb.'_'.&getfilename($safeeval);
$fn=~s/\W/\_/g;
$fn=$tmpdir.$fn.'.tmp';
my $fh;
@@ -1086,11 +1107,12 @@ sub handler {
ENDSCRIPT
$r->print(''.
+ ''.
+ 'LON-CAPA Spreadsheet
'.
'