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

[matthew]

matthew		Tue Oct 22 09:13:15 2002 EDT

  Modified files:              
    /loncom/interface	lonspreadsheet.pm 
  Log:
  Removed safe space function exportrowa.
  
  
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.120 loncom/interface/lonspreadsheet.pm:1.121
--- loncom/interface/lonspreadsheet.pm:1.120	Tue Oct 22 09:09:49 2002
+++ loncom/interface/lonspreadsheet.pm	Tue Oct 22 09:13:15 2002
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.120 2002/10/22 13:09:49 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.121 2002/10/22 13:13:15 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1009,15 +1009,6 @@
     return @cols;
 }
 
-sub exportrowa {
-    my @exportarray=();
-    foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
-	     'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
-	push(@exportarray,$sheet_values{$_.'0'});
-    } 
-    return @exportarray;
-}
-
 sub templaterow {
     my @cols=();
     $cols[0]='<b><font size=+1>Template</font></b>';
@@ -1091,9 +1082,13 @@
 # ------------------------------------------------------------- Export of A-row
 sub exportdata {
     my $sheet=shift;
-    return $sheet->{'safe'}->reval('&exportrowa()');
+    my @exportarray=();
+    foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
+	     'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
+	push(@exportarray,$sheet->{'values'}->{$_.'0'});
+    } 
+    return @exportarray;
 }
-
 
 # ========================================================== End of Spreadsheet
 # =============================================================================