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

Diff for /loncom/homework/response.pm between versions 1.60 and 1.64

version 1.60, 2002/02/15 22:16:04 version 1.64, 2002/09/26 20:45:00
Line 33  package Apache::response; Line 33  package Apache::response;
 use strict;  use strict;
   
 BEGIN {  BEGIN {
   &Apache::lonxml::register('Apache::response',('responseparam','parameter','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse','externalresponse'));    &Apache::lonxml::register('Apache::response',('responseparam','parameter'));
 }  }
   
 sub start_response {  sub start_response {
Line 91  sub setrandomnumber { Line 91  sub setrandomnumber {
     $rndseed=$rndseed      $rndseed=$rndseed
       +&Apache::lonnet::numval($Apache::inputtags::response['-1']);        +&Apache::lonnet::numval($Apache::inputtags::response['-1']);
   }    }
   srand($rndseed);    &Math::Random::random_set_seed_from_phrase($rndseed);
   &Apache::lonxml::debug("randseed $rndseed");    &Apache::lonxml::debug("randseed $rndseed");
   return '';    return '';
 }  }
Line 207  sub handle_previous { Line 207  sub handle_previous {
   }    }
 }  }
   
 sub start_caparesponse {  
   require Apache::caparesponse;   
   import Apache::caparesponse;   
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;  
 #  print "\n<br />\nsimple caparesponse\n";  
   return &Apache::caparesponse::start_caparesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);  
 }  
   
 sub start_stringresponse {  
   require Apache::caparesponse;  
   import Apache::caparesponse;  
   my ($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 {  
   require Apache::caparesponse;   
   import Apache::caparesponse;   
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;  
   return &Apache::caparesponse::start_numericalresponse  
     ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);  
 }  
   
 sub start_radiobuttonresponse {  
   require Apache::radiobuttonresponse;   
   import Apache::radiobuttonresponse;   
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;  
   return &Apache::radiobuttonresponse::start_radiobuttonresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);  
 }  
   
 sub start_optionresponse {  
   require Apache::optionresponse;   
   import Apache::optionresponse;   
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;  
   return &Apache::optionresponse::start_optionresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);  
 }  
   
 sub start_imageresponse {  
   require Apache::imageresponse;   
   import Apache::imageresponse;   
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;  
   return &Apache::imageresponse::start_imageresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);  
 }  
   
 sub start_essayresponse {  
   require Apache::essayresponse;   
   import Apache::essayresponse;   
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;  
   return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);  
 }  
   
 sub start_externalresponse {  
   require Apache::externalresponse;   
   import Apache::externalresponse;   
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;  
   return &Apache::externalresponse::start_externalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);  
 }  
   
 sub view_or_modify {  sub view_or_modify {
   my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();    my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
   my $myself=0;    my $myself=0;
Line 363  sub start_responseparam { Line 298  sub start_responseparam {
     if ($ENV{'request.state'} eq 'construct') {      if ($ENV{'request.state'} eq 'construct') {
       my $name    = &Apache::lonxml::get_param('name',$parstack,$safeeval);        my $name    = &Apache::lonxml::get_param('name',$parstack,$safeeval);
       my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);        my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);
       $Apache::inputtags::params{$name}=$default;        if ($name) {$Apache::inputtags::params{$name}=$default;}
     }      }
   }    }
   return $result;    return $result;
Line 451  sub answer_footer { Line 386  sub answer_footer {
   return $result;    return $result;
 }  }
   
   sub showallfoils {
     my $return=0;
     if (defined($ENV{'form.showallfoils'}) &&
         $ENV{'request.state'} eq 'construct') {
       $return=1;
     }
     return $return;
   }
 1;  1;
 __END__  __END__
     
Removed from v.1.60  
changed lines
  Added in v.1.64

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