[BACK]Return to response.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.44 and 1.45

version 1.44, 2001/08/18 07:56:51 version 1.45, 2001/08/20 23:31:07
Line 209  sub start_essayresponse { Line 209  sub start_essayresponse {
   return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);    return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
 }  }
   
   sub view_or_modify {
     my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::which_user();
     my $myself=0;
     if ( ($user eq $ENV{'user.name'}) && ($domain eq $ENV{'user.domain'}) ) {
       $myself=1;
     }
     my $vgr=&Apache::lonnet::allowed('vgr',$courseid);
     my $mgr=&Apache::lonnet::allowed('vgr',$courseid);
     if ($mgr) { return "M"; }
     if ($vgr) { return "V"; }
     if ($myself) { return "V"; }
     return '';
   }
   
 sub start_dataresponse {  sub start_dataresponse {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
   my $id = &Apache::response::start_response($parstack,$safeeval);    my $id = &Apache::response::start_response($parstack,$safeeval);
   my $result;    my $result;
   if ($target eq 'meta') {    if ($target eq 'web') {
       $result = $token->[2]->{'display'}.':';
     } elsif ($target eq 'meta') {
     $result = &Apache::response::meta_stores_write($token->[2]->{'name'},      $result = &Apache::response::meta_stores_write($token->[2]->{'name'},
    $token->[2]->{'type'},     $token->[2]->{'type'},
    $token->[2]->{'display'});     $token->[2]->{'display'});
Line 228  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'}) {
       &Apache::response::setup_params('datasubmission');        my ($symb,$courseid,$domain,$name)=&Apache::lonhomework::which_user();
       my $partid = $Apache::inputtags::part;        my $allowed=&Apache::lonnet::allowed('mgr',$courseid);
       my $id = $Apache::inputtags::response['-1'];        if ($allowed) {
       my $response = $ENV{'form.HWVAL'.$id};   &Apache::response::setup_params('datasubmission');
       my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);   my $partid = $Apache::inputtags::part;
       if ( $response =~ /[^\s]/) {   my $id = $Apache::inputtags::response['-1'];
  $Apache::lonhomework::results{"resource.$partid.$id.$name"}=   my $response = $ENV{'form.HWVAL'.$id};
   $response;   my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
  $Apache::lonhomework::results{"resource.$partid.$id.submission"}=   if ( $response =~ /[^\s]/) {
   $response;    $Apache::lonhomework::results{"resource.$partid.$id.$name"}=
  $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=      $response;
   'SUBMITTED';    $Apache::lonhomework::results{
    "resource.$partid.$id.submission"}=
     $response;
     $Apache::lonhomework::results{
    "resource.$partid.$id.awarddetail"}=
     'SUBMITTED';
    }
         } else {
    $result='Not Permitted to change values.'
       }        }
     }      }
   }    }
Removed from v.1.44  
changed lines
  Added in v.1.45

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>