--- loncom/interface/Attic/lonspreadsheet.pm	2002/07/02 21:57:38	1.92
+++ loncom/interface/Attic/lonspreadsheet.pm	2002/07/04 17:51:32	1.93
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.92 2002/07/02 21:57:38 www Exp $
+# $Id: lonspreadsheet.pm,v 1.93 2002/07/04 17:51:32 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1476,7 +1476,11 @@ sub tmpread {
             my $value=<$fh>;
             chomp($value);
             $fo{$name}=$value;
-            $countrows++;
+            if ($name=~/^A(\d+)$/) {
+		if ($1>$countrows) {
+		    $countrows=$1;
+                }
+            }
         }
     }
     if ($nform eq 'changesheet') {
@@ -1485,6 +1489,7 @@ sub tmpread {
 	    $fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};
         }
     } elsif ($nfield eq 'insertrow') {
+        $countrows++;
         if ($nform eq 'top') {
 	    $fo{'A'.$countrows}='AAAAA_'.$countrows;
         } else {