loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

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');