|
version 1.92, 2002/07/02 21:57:38
|
version 1.93, 2002/07/04 17:51:32
|
|
Line 1476 sub tmpread {
|
Line 1476 sub tmpread {
|
| my $value=<$fh>; |
my $value=<$fh>; |
| chomp($value); |
chomp($value); |
| $fo{$name}=$value; |
$fo{$name}=$value; |
| $countrows++; |
if ($name=~/^A(\d+)$/) { |
| |
if ($1>$countrows) { |
| |
$countrows=$1; |
| |
} |
| |
} |
| } |
} |
| } |
} |
| if ($nform eq 'changesheet') { |
if ($nform eq 'changesheet') { |
|
Line 1485 sub tmpread {
|
Line 1489 sub tmpread {
|
| $fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield}; |
$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield}; |
| } |
} |
| } elsif ($nfield eq 'insertrow') { |
} elsif ($nfield eq 'insertrow') { |
| |
$countrows++; |
| if ($nform eq 'top') { |
if ($nform eq 'top') { |
| $fo{'A'.$countrows}='AAAAA_'.$countrows; |
$fo{'A'.$countrows}='AAAAA_'.$countrows; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonspreadsheet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface