loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

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

version 1.34, 2004/02/24 20:47:14	version 1.36, 2004/03/01 16:40:44
Line 262 sub handler {	Line 262 sub handler {
}	}
$ENV{'form.sname'} = $name;	$ENV{'form.sname'} = $name;
$ENV{'form.sdomain'} = $domain;	$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',
Line 373 ENDSCRIPT	Line 370 ENDSCRIPT
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb
({href => $r->uri,	({href => $r->uri,
title => &mt('Spreadsheet'),	title => 'Spreadsheet',
text => &mt('Spreadsheet'),	text => 'Spreadsheet',
faq => 134,	faq => 134,
bug => 'Spreadsheet'});	bug => 'Spreadsheet'});
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').	$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
&Apache::lonhtmlcommon::breadcrumbs(undef,&mt('Spreadsheet')).	&Apache::lonhtmlcommon::breadcrumbs(undef,'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'}).