Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

- nolonger cause ISE

    1: # The LearningOnline Network with CAPA
    2: # various response type definitons response definition
    3: 
    4: # 11/23,11/24,11/28 Gerd Kortemeyer
    5: 
    6: package Apache::response;
    7: use strict;
    8: 
    9: sub BEGIN {
   10:   &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse'));
   11: }
   12: 
   13: sub start_response {
   14:   my ($parstack,$safeeval)=@_;  
   15:   my $args ='';
   16:   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
   17:   my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
   18:   if ($id eq '') { $id = $Apache::lonxml::curdepth; }
   19:   push (@Apache::inputtags::response,$id);
   20:   push (@Apache::inputtags::responselist,$id);
   21:   @Apache::inputtags::inputlist=();
   22:   return $id;
   23: }
   24: 
   25: sub end_response {
   26:   pop @Apache::inputtags::response;
   27:   @Apache::inputtags::inputlist=();
   28:   return '';
   29: }
   30: 
   31: sub meta_parameter_write {
   32:     my ($name,$type,$default,$display)=@_;
   33:     return '<parameter part="'.$Apache::inputtags::part.
   34: 	            '" name="'.$name.
   35:                     '" type="'.$type.
   36:                  '" default="'.$default.
   37: 	         '" display="'.$display.
   38:                           ' [Part: '.$Apache::inputtags::part.']"></parameter>'
   39:      ."\n";
   40: }
   41: 
   42: sub meta_stores_write {
   43:     my ($name,$type,$display)=@_;
   44:     return '<stores part="'.$Apache::inputtags::part.
   45: 	         '" name="'.$name.
   46:                  '" type="'.$type.
   47: 	      '" display="'.$display.
   48:                        ' [Part: '.$Apache::inputtags::part.']"></stores>'
   49:      ."\n";
   50: }
   51: 
   52: sub mandatory_part_meta {
   53: #
   54: # Autogenerate metadata for mandatory
   55: # input (from RAT or lonparmset) and 
   56: # output (to lonspreadsheet)
   57: # of each part
   58: #
   59:  return
   60:     &meta_parameter_write('opendate','date_start','',
   61:                           'Opening Date').
   62:     &meta_parameter_write('duedate','date_end','',
   63:                           'Due Date').
   64:     &meta_parameter_write('answerdate','date_start','',
   65:                           'Show Answer Date').
   66:     &meta_parameter_write('weight','int_zeropos','',
   67:                           'Available Points').
   68:     &meta_parameter_write('maxtries','int_pos','',
   69:                           'Maximum Number of Tries').
   70: 
   71:     &meta_stores_write('solved','string',
   72:                           'Problem Status').
   73:     &meta_stores_write('tries','int_zeropos',
   74:                           'Number of Unsuccessful Tries').
   75:     &meta_stores_write('awarded','float',
   76: 		          'Partial Credit Factor');
   77: #
   78: # Note: responseid-specific data 'submission' and 'awarddetail'
   79: # not available to spreadsheet -> skip here
   80: #
   81: }
   82: 
   83: sub check_for_previous {
   84:   return '0';
   85: }
   86: 
   87: sub start_numericalresponse {
   88:   require Apache::caparesponse; 
   89:   import Apache::caparesponse; 
   90:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
   91:   Apache::caparesponse::start_numericalresponse($target,$token,$parstack,$parser,$safeeval,$style);;
   92:   return "";
   93: }
   94: 
   95: sub start_caparesponse {
   96:   require Apache::caparesponse; 
   97:   import Apache::caparesponse; 
   98:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
   99: #  print "\n<br>\nsimple caparesponse\n";
  100:   Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);;
  101:   return "";
  102: }
  103: 
  104: sub start_radiobuttonresponse {
  105:   require Apache::radiobuttonresponse; 
  106:   import Apache::radiobuttonresponse; 
  107:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
  108:   Apache::radiobuttonresponse::start_radiobuttonresponse($target,$token,$parstack,$parser,$safeeval,$style);;
  109:   return "";
  110: }
  111: 
  112: sub start_responseparam {
  113:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
  114:   if ($target eq 'grade') {
  115:     my $args='';
  116:     if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
  117:     my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
  118:     my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
  119:     &Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name");
  120:     my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.$name");
  121:     &Apache::lonxml::debug("$name has value :$value: and default :$default:");
  122:     if ($value eq '') {
  123:       &Apache::lonxml::debug("defaullting");
  124:       $Apache::inputtags::params{$name}=$default;
  125:     } else {
  126:       &Apache::lonxml::debug("using value");
  127:       $Apache::inputtags::params{$name}=$value;
  128:     }
  129:     return '';
  130:   } elsif ($target eq 'meta') {
  131:     return &meta_parameter_write($token->[2]->{'name'},
  132: 				 $token->[2]->{'type'},
  133: 				 $token->[2]->{'default'},
  134: 				 $token->[2]->{'description'});
  135:   } else {
  136:     return '';
  137:   }
  138: }
  139: 
  140: sub end_responseparam {
  141: }
  142: 
  143: 1;
  144: __END__
  145: