--- loncom/interface/Attic/lonspreadsheet.pm	2002/07/02 21:57:38	1.92
+++ loncom/interface/Attic/lonspreadsheet.pm	2002/07/04 20:09:31	1.94
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.92 2002/07/02 21:57:38 www Exp $
+# $Id: lonspreadsheet.pm,v 1.94 2002/07/04 20:09:31 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,10 +1489,12 @@ sub tmpread {
 	    $fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};
         }
     } elsif ($nfield eq 'insertrow') {
+        $countrows++;
+        my $newrow=substr('000000'.$i,-7);
         if ($nform eq 'top') {
-	    $fo{'A'.$countrows}='AAAAA_'.$countrows;
+	    $fo{'A'.$countrows}='--- '.$newrow;
         } else {
-            $fo{'A'.$countrows}='zzzzz_'.$countrows;
+            $fo{'A'.$countrows}='~~~ '.$newrow;
         }
     } else {
        if ($nfield) { $fo{$nfield}=$nform; }