version 1.91, 2002/06/08 15:27:06
|
version 1.92, 2002/07/02 21:57:38
|
Line 863 sub outrowassess {
|
Line 863 sub outrowassess {
|
my @cols=(); |
my @cols=(); |
if ($n) { |
if ($n) { |
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{'A'.$n}); |
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{'A'.$n}); |
|
if ($rl{$usy}) { |
$cols[0]=$rl{$usy}.'<br>'. |
$cols[0]=$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>'; |
|
} else { $cols[0]=''; } |
foreach (@os) { |
foreach (@os) { |
$cols[0].='<option name="'.$_.'"'; |
$cols[0].='<option name="'.$_.'"'; |
if ($ufn eq $_) { |
if ($ufn eq $_) { |
Line 1466 sub tmpread {
|
Line 1468 sub tmpread {
|
$fn=$tmpdir.$fn.'.tmp'; |
$fn=$tmpdir.$fn.'.tmp'; |
my $fh; |
my $fh; |
my %fo=(); |
my %fo=(); |
|
my $countrows=0; |
if ($fh=Apache::File->new($fn)) { |
if ($fh=Apache::File->new($fn)) { |
my $name; |
my $name; |
while ($name=<$fh>) { |
while ($name=<$fh>) { |
Line 1473 sub tmpread {
|
Line 1476 sub tmpread {
|
my $value=<$fh>; |
my $value=<$fh>; |
chomp($value); |
chomp($value); |
$fo{$name}=$value; |
$fo{$name}=$value; |
|
$countrows++; |
} |
} |
} |
} |
if ($nform eq 'changesheet') { |
if ($nform eq 'changesheet') { |
Line 1480 sub tmpread {
|
Line 1484 sub tmpread {
|
unless ($ENV{'form.sel_'.$nfield} eq 'Default') { |
unless ($ENV{'form.sel_'.$nfield} eq 'Default') { |
$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield}; |
$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield}; |
} |
} |
|
} elsif ($nfield eq 'insertrow') { |
|
if ($nform eq 'top') { |
|
$fo{'A'.$countrows}='AAAAA_'.$countrows; |
|
} else { |
|
$fo{'A'.$countrows}='zzzzz_'.$countrows; |
|
} |
} else { |
} else { |
if ($nfield) { $fo{$nfield}=$nform; } |
if ($nfield) { $fo{$nfield}=$nform; } |
} |
} |
Line 2452 $tmpdir=$r->dir_config('lonDaemons').'/t
|
Line 2462 $tmpdir=$r->dir_config('lonDaemons').'/t
|
document.sheet.submit(); |
document.sheet.submit(); |
} |
} |
|
|
|
function insertrow(cn) { |
|
document.sheet.unewfield.value='insertrow'; |
|
document.sheet.unewformula.value=cn; |
|
document.sheet.submit(); |
|
} |
|
|
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
$r->print('</head><body bgcolor="#FFFFFF">'. |
$r->print('</head><body bgcolor="#FFFFFF">'. |
Line 2675 ENDSCRIPT
|
Line 2691 ENDSCRIPT
|
if ($ENV{'form.showcsv'}) { $r->print(' checked'); } |
if ($ENV{'form.showcsv'}) { $r->print(' checked'); } |
$r->print('>'); |
$r->print('>'); |
} |
} |
|
|
|
# ------------------------------------------------------------------ Insertrows |
|
|
|
$r->print(<<ENDINSERTBUTTONS); |
|
<br> |
|
<input type='button' onClick='insertrow("top");' |
|
value='Insert Row Top'> |
|
<input type='button' onClick='insertrow("bottom");' |
|
value='Insert Row Bottom'><br> |
|
ENDINSERTBUTTONS |
|
|
# ------------------------------------------------------------- Print out sheet |
# ------------------------------------------------------------- Print out sheet |
|
|
&outsheet($r,$asheet); |
&outsheet($r,$asheet); |