loncom/interface/spreadsheet/Spreadsheet.pm - diff

Return to Spreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.66, 2006/04/06 16:43:49	version 1.68, 2006/05/01 06:17:16
Line 85 sub new {	Line 85 sub new {
my $class = ref($this) \|\| $this;	my $class = ref($this) \|\| $this;
my ($stype) = ($class =~ /Apache::(.*)$/);	my ($stype) = ($class =~ /Apache::(.*)$/);
#	#
my ($name,$domain,$filename,$usymb,$section)=@_;	my ($name,$domain,$filename,$usymb,$section,$groups)=@_;
if (defined($usymb) && ref($usymb)) {	if (defined($usymb) && ref($usymb)) {
$usymb = $usymb->symb;	$usymb = $usymb->symb;
}	}
Line 99 sub new {	Line 99 sub new {
$section = &Apache::lonnet::getsection($domain,$name,	$section = &Apache::lonnet::getsection($domain,$name,
$env{'request.course.id'});	$env{'request.course.id'});
}	}
	if (! defined($groups)) {

	my @usersgroups = &Apache::lonnet::get_users_groups($domain,$name,
	$env{'request.course.id'});
	$groups = \@usersgroups;
	}
#	#
my $self = {	my $self = {
name => $name,	name => $name,
domain => $domain,	domain => $domain,
section => $section,	section => $section,
	groups => $groups,
type => $stype,	type => $stype,
symb => $usymb,	symb => $usymb,
errorlog => '',	errorlog => '',