loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

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

version 1.33, 2004/02/20 17:17:32	version 1.34, 2004/02/24 20:47:14
Line 256 sub handler {	Line 256 sub handler {
$symb = $ENV{'form.usymb'} if (exists($ENV{'form.usymb'}));	$symb = $ENV{'form.usymb'} if (exists($ENV{'form.usymb'}));
my $name = $ENV{'user.name'};	my $name = $ENV{'user.name'};
my $domain = $ENV{'user.domain'};	my $domain = $ENV{'user.domain'};
if (exists($ENV{'form.sname'})) {	if (exists($ENV{'form.sname'}) && $ENV{'form.sname'} ne '') {
$name = $ENV{'form.sname'};	$name = $ENV{'form.sname'};
$domain = $ENV{'form.sdomain'};	$domain = $ENV{'form.sdomain'};
}	}
	$ENV{'form.sname'} = $name;
	$ENV{'form.sdomain'} = $domain;
	#
	&Apache::lonnet::logthis('name = "'.$name.'"');
	&Apache::lonnet::logthis('domain = "'.$domain.'"');
##	##
## Check permissions	## Check permissions
my $allowed_to_edit = &Apache::lonnet::allowed('mgr',	my $allowed_to_edit = &Apache::lonnet::allowed('mgr',