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

[albertel]

albertel		Sun May 15 00:02:18 2005 EDT

  Modified files:              
    /loncom/interface/spreadsheet	Spreadsheet.pm 
  Log:
  - no reason to expose the home server of either the course or the course
  
  
Index: loncom/interface/spreadsheet/Spreadsheet.pm
diff -u loncom/interface/spreadsheet/Spreadsheet.pm:1.47 loncom/interface/spreadsheet/Spreadsheet.pm:1.48
--- loncom/interface/spreadsheet/Spreadsheet.pm:1.47	Fri May 13 17:16:09 2005
+++ loncom/interface/spreadsheet/Spreadsheet.pm	Sun May 15 00:02:17 2005
@@ -1,5 +1,5 @@
 #
-# $Id: Spreadsheet.pm,v 1.47 2005/05/13 21:16:09 albertel Exp $
+# $Id: Spreadsheet.pm,v 1.48 2005/05/15 04:02:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -106,7 +106,6 @@
         cid      => $env{'request.course.id'},
         cnum     => $env{'course.'.$env{'request.course.id'}.'.num'},
         cdom     => $env{'course.'.$env{'request.course.id'}.'.domain'},
-        chome    => $env{'course.'.$env{'request.course.id'}.'.home'},
         coursedesc => $env{'course.'.$env{'request.course.id'}.'.description'},
         coursefilename => $env{'request.course.fn'},
         #
@@ -126,8 +125,6 @@
         othersheets => [],
     };
     #
-    $self->{'uhome'} = &Apache::lonnet::homeserver($name,$domain);
-    #
     bless($self,$class);
     #
     # Load in the spreadsheet definition
@@ -366,12 +363,10 @@
 #
 # user data
 $name = '';
-$uhome = '';
 $domain  = '';
 #
 # course data
 $csec = '';
-$chome= '';
 $cnum = '';
 $cdom = '';
 $cid  = '';
@@ -770,7 +765,7 @@
     # itself
     my $initstring = '';
     foreach (qw/name domain type symb cid csec coursefilename
-             cnum cdom chome uhome/) {
+             cnum cdom/) {
         $initstring.= qq{\$$_="$self->{$_}";};
     }
     $initstring.=qq{\$usection="$usection";};
@@ -1608,7 +1603,6 @@
     my $stype = $self->{'type'};
     my $cnum  = $self->{'cnum'};
     my $cdom  = $self->{'cdom'};
-    my $chome = $self->{'chome'};
     #
     my $filename = $self->filename();
     my $cachekey = join('_',($cnum,$cdom,$stype,$filename));
@@ -1705,7 +1699,6 @@
         my $stype = $self->{'type'};
         my $cnum  = $self->{'cnum'};
         my $cdom  = $self->{'cdom'};
-        my $chome = $self->{'chome'};
         my $filename    = $self->{'filename'};
         my $cachekey = join('_',($cnum,$cdom,$stype,$filename));
         # Cache new sheet