loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

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

version 1.31.2.1, 2004/02/24 21:03:09	version 1.32, 2004/01/15 03:18:20
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'}) && $ENV{'form.sname'} ne '') {	if (exists($ENV{'form.sname'})) {
$name = $ENV{'form.sname'};	$name = $ENV{'form.sname'};
$domain = $ENV{'form.sdomain'};	$domain = $ENV{'form.sdomain'};
}	}
$ENV{'form.sname'} = $name;
$ENV{'form.sdomain'} = $domain;
##	##
## Check permissions	## Check permissions
my $allowed_to_edit = &Apache::lonnet::allowed('mgr',	my $allowed_to_edit = &Apache::lonnet::allowed('mgr',
Line 368 sub handler {	Line 366 sub handler {
ENDSCRIPT	ENDSCRIPT
}	}
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').	$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
	&Apache::loncommon::help_open_faq(134).
	&Apache::loncommon::help_open_bug('Spreadsheet').
'<form action="'.$r->uri.'" name="sheet" method="post">');	'<form action="'.$r->uri.'" name="sheet" method="post">');
$r->print(&hiddenfield('sname' ,$ENV{'form.sname'}).	$r->print(&hiddenfield('sname' ,$ENV{'form.sname'}).
&hiddenfield('sdomain',$ENV{'form.sdomain'}).	&hiddenfield('sdomain',$ENV{'form.sdomain'}).