[LON-CAPA-cvs] cvs: loncom /interface lonspreadsheet.pm

[www]

www		Thu Jul  4 13:51:32 2002 EDT

  Modified files:              
    /loncom/interface	lonspreadsheet.pm 
  Log:
  Fixed countrows in &tmpread - was counting cells before.
  
  
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.92 loncom/interface/lonspreadsheet.pm:1.93
--- loncom/interface/lonspreadsheet.pm:1.92	Tue Jul  2 17:57:38 2002
+++ loncom/interface/lonspreadsheet.pm	Thu Jul  4 13:51:32 2002
@@ -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 @@
             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 @@
 	    $fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};
         }
     } elsif ($nfield eq 'insertrow') {
+        $countrows++;
         if ($nform eq 'top') {
 	    $fo{'A'.$countrows}='AAAAA_'.$countrows;
         } else {