|
version 1.31.2.1, 2004/02/24 21:03:09
|
version 1.33, 2004/02/20 17:17:32
|
|
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 367 sub handler {
|
Line 365 sub handler {
|
| </script> |
</script> |
| ENDSCRIPT |
ENDSCRIPT |
| } |
} |
| |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href => $r->uri, |
| |
title => &mt('Spreadsheet'), |
| |
text => &mt('Spreadsheet'), |
| |
faq => 134, |
| |
bug => 'Spreadsheet'}); |
| $r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet'). |
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet'). |
| |
&Apache::lonhtmlcommon::breadcrumbs(undef,&mt('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'}). |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonspreadsheet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / spreadsheet