version 1.45, 2001/08/20 23:31:07
|
version 1.46, 2001/08/20 23:48:05
|
Line 210 sub start_essayresponse {
|
Line 210 sub start_essayresponse {
|
} |
} |
|
|
sub view_or_modify { |
sub view_or_modify { |
my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::which_user(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser(); |
my $myself=0; |
my $myself=0; |
if ( ($user eq $ENV{'user.name'}) && ($domain eq $ENV{'user.domain'}) ) { |
if ( ($name eq $ENV{'user.name'}) && ($domain eq $ENV{'user.domain'}) ) { |
$myself=1; |
$myself=1; |
} |
} |
my $vgr=&Apache::lonnet::allowed('vgr',$courseid); |
my $vgr=&Apache::lonnet::allowed('vgr',$courseid); |
Line 244 sub end_dataresponse {
|
Line 244 sub end_dataresponse {
|
if ( $target eq 'web' ) { |
if ( $target eq 'web' ) { |
} elsif ($target eq 'grade' ) { |
} elsif ($target eq 'grade' ) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined $ENV{'form.submitted'}) { |
my ($symb,$courseid,$domain,$name)=&Apache::lonhomework::which_user(); |
my ($symb,$courseid,$domain,$name)=&Apache::lonhomework::whichuser(); |
my $allowed=&Apache::lonnet::allowed('mgr',$courseid); |
my $allowed=&Apache::lonnet::allowed('mgr',$courseid); |
if ($allowed) { |
if ($allowed) { |
&Apache::response::setup_params('datasubmission'); |
&Apache::response::setup_params('datasubmission'); |