[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.50

version 1.44, 2001/08/18 07:56:51 version 1.50, 2001/11/09 20:20:45
Line 9  package Apache::response; Line 9  package Apache::response;
 use strict;  use strict;
   
 sub BEGIN {  sub BEGIN {
   &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));    &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse'));
 }  }
   
 sub start_response {  sub start_response {
Line 44  sub end_hintresponse { Line 44  sub end_hintresponse {
 # used by response to set the non-safe space random number generator to something  # used by response to set the non-safe space random number generator to something
 # that is stable and unique based on the part number and response number  # that is stable and unique based on the part number and response number
 sub setrandomnumber {  sub setrandomnumber {
   my $rndseed=&Apache::lonnet::rndseed();    my $rndseed;
     if ($ENV{'request.state'} eq "construct") {
       $rndseed=$ENV{'form.rndseed'};
       if (!$rndseed) { $rndseed=time; }
     } else {
       $rndseed=&Apache::lonnet::rndseed();
     }
   &Apache::lonxml::debug("randseed $rndseed");    &Apache::lonxml::debug("randseed $rndseed");
 #  $rndseed=unpack("%32i",$rndseed);  #  $rndseed=unpack("%32i",$rndseed);
   $rndseed=$rndseed    $rndseed=$rndseed
Line 173  sub start_stringresponse { Line 179  sub start_stringresponse {
   return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);    return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
 }  }
   
   sub start_formularesponse {
     require Apache::caparesponse;
     import Apache::caparesponse;
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     return &Apache::caparesponse::start_formularesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
   }
   
 sub start_numericalresponse {  sub start_numericalresponse {
   require Apache::caparesponse;     require Apache::caparesponse; 
   import Apache::caparesponse;     import Apache::caparesponse; 
Line 209  sub start_essayresponse { Line 222  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::lonxml::whichuser();
     my $myself=0;
     if ( ($name 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 257  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::lonxml::whichuser();
       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.'
       }        }
     }      }
   }    }
Line 312  sub setup_params { Line 349  sub setup_params {
   }    }
 }  }
   
   sub answer_header {
     my ($type) = @_;
     my $result;
     if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse' ) {
       $result = '<table border="1"><tr><th>Answer for Part:'.
         $Apache::inputtags::part. '</th></tr><tr>'."\n";
     } else {
       $result = '<table border="1"><tr><td>Answer for Part:'.
         $Apache::inputtags::part. '</td>'."\n";
     }
     return $result;
   }
   
   sub answer_part {
     my ($type,$answer) = @_;
     my $result;
     if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') {
       $result = '<td>'.$answer.'</td>';
     } else {
       $result = '<td>'.$answer.'</td>';
     }
     return $result;
   }
   
   sub answer_footer {
     my ($type) = @_;
     my $result;
     if ($type eq 'optionresponse' || $type eq 'radiobuttonresponse') {
       $result = '</tr></table>';
     } else {
       $result = '</tr></table>';
     }
     return $result;
   }
   
 1;  1;
 __END__  __END__
     
Removed from v.1.44  
changed lines
  Added in v.1.50

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