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

www lon-capa-cvs@mail.lon-capa.org
Thu, 04 Jul 2002 20:09:31 -0000


www		Thu Jul  4 16:09:31 2002 EDT

  Modified files:              
    /loncom/interface	lonspreadsheet.pm 
  Log:
  f{'A'rownumber} has the row info. First characters
  
  !!! message means "error" (for example, "obsolete")
  --- 000nnn  to be added to the top
  ~~~ 000nnn  to be added to the bottom
  
  
  
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.93 loncom/interface/lonspreadsheet.pm:1.94
--- loncom/interface/lonspreadsheet.pm:1.93	Thu Jul  4 13:51:32 2002
+++ loncom/interface/lonspreadsheet.pm	Thu Jul  4 16:09:31 2002
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.93 2002/07/04 17:51:32 www Exp $
+# $Id: lonspreadsheet.pm,v 1.94 2002/07/04 20:09:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1490,10 +1490,11 @@
         }
     } 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; }