--- loncom/interface/Attic/lonspreadsheet.pm	2002/10/22 13:09:49	1.120
+++ loncom/interface/Attic/lonspreadsheet.pm	2002/10/22 13:13:15	1.121
@@ -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 @@ sub outrow {
     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,10 +1082,14 @@ sub getfa {
 # ------------------------------------------------------------- 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
 # =============================================================================