--- loncom/interface/Attic/lonspreadsheet.pm	2002/04/11 13:35:23	1.84
+++ loncom/interface/Attic/lonspreadsheet.pm	2002/04/11 14:16:32	1.85
@@ -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 @@ sub readsheet {
      } 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);