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

[albertel]

albertel		Tue Jan 10 11:38:49 2006 EDT

  Modified files:              
    /loncom/interface/spreadsheet	Spreadsheet.pm 
  Log:
  - allowing EXT to take a symb
  
  
Index: loncom/interface/spreadsheet/Spreadsheet.pm
diff -u loncom/interface/spreadsheet/Spreadsheet.pm:1.60 loncom/interface/spreadsheet/Spreadsheet.pm:1.61
--- loncom/interface/spreadsheet/Spreadsheet.pm:1.60	Wed Dec  7 21:22:15 2005
+++ loncom/interface/spreadsheet/Spreadsheet.pm	Tue Jan 10 11:38:47 2006
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.60 2005/12/08 02:22:15 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.61 2006/01/10 16:38:47 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -378,10 +378,12 @@
 
 #-------------------------------------------------------
 sub EXT {
-    my ($parameter) = @_;
+    my ($parameter,$specific_symb) = @_;
     return '' if (! defined($parameter) || $parameter eq '');
     $parameter =~ s/^parameter\./resource\./;
-    my $value = &Apache::lonnet::EXT($parameter,$symb,$domain,$name,$usection);
+    if ($specific_symb eq '') { $specific_symb = $symb; }
+    my $value = &Apache::lonnet::EXT($parameter,$specific_symb,$domain,$name,
+				     $usection);
     return $value;
 }