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

[matthew]

matthew		Thu Apr 11 10:16:32 2002 EDT

  Modified files:              
    /loncom/interface	lonspreadsheet.pm 
  Log:
  Remove debugging code.
  
  
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.84 loncom/interface/lonspreadsheet.pm:1.85
--- loncom/interface/lonspreadsheet.pm:1.84	Thu Apr 11 09:35:23 2002
+++ loncom/interface/lonspreadsheet.pm	Thu Apr 11 10:16:32 2002
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.84 2002/04/11 13:35:23 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.85 2002/04/11 14:16:32 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1316,17 +1316,11 @@
      } elsif($fn=~/\/*\.spreadsheet$/) {
          my $sheetxml=&Apache::lonnet::getfile
              (&Apache::lonnet::filelocation('',$fn));
-         print "<pre>$sheetxml</pre>";
          if ($sheetxml == -1) {
              $sheetxml='<field row="0" col="A">"Error loading spreadsheet '
                  .$fn.'"</field>';
          }
          %f=%{&parse_sheet(\$sheetxml)};
-         print "<pre>";
-         foreach (sort( keys(%f))) {
-             print "$_ = $f{$_}\n";
-         }
-         print "</pre>";
      } else {
          my $sheet='';
          my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);