--- loncom/interface/spreadsheet/classcalc.pm	2005/03/10 17:33:57	1.22
+++ loncom/interface/spreadsheet/classcalc.pm	2006/02/27 00:56:47	1.24
@@ -1,5 +1,5 @@
 #
-# $Id: classcalc.pm,v 1.22 2005/03/10 17:33:57 matthew Exp $
+# $Id: classcalc.pm,v 1.24 2006/02/27 00:56:47 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -285,6 +285,8 @@ sub output_options {
     my $self = shift();
     return  ({value       => 'htmlclasslist',
               description => 'Student Sheet Links'},
+             {value       => 'source',
+              description => 'Show Source'},
              {value       => 'html',
               description => 'HTML'},
              {value       => 'excel',
@@ -307,7 +309,7 @@ sub outsheet_htmlclasslist {
     #
     # Determine if we should output expire caches links...
     my $show_expire_link = 0;
-    if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){
+    if (exists($env{'user.role.dc./'.$env{'request.role.domain'}.'/'})){
         $show_expire_link = 1;
     }
     #