Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

- changing the description line on the tries data

    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','optionresponse','imageresponse','essayresponse'));
   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 Attempts').
   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:   return &Apache::caparesponse::start_numericalresponse($target,$token,$parstack,$parser,$safeeval,$style);
   92: }
   93: 
   94: sub start_caparesponse {
   95:   require Apache::caparesponse; 
   96:   import Apache::caparesponse; 
   97:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
   98: #  print "\n<br />\nsimple caparesponse\n";
   99:   return &Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);
  100: }
  101: 
  102: sub start_radiobuttonresponse {
  103:   require Apache::radiobuttonresponse; 
  104:   import Apache::radiobuttonresponse; 
  105:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
  106:   return &Apache::radiobuttonresponse::start_radiobuttonresponse($target,$token,$parstack,$parser,$safeeval,$style);
  107: }
  108: 
  109: sub start_optionresponse {
  110:   require Apache::optionresponse; 
  111:   import Apache::optionresponse; 
  112:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
  113:   return &Apache::optionresponse::start_optionresponse($target,$token,$parstack,$parser,$safeeval,$style);
  114: }
  115: 
  116: sub start_imageresponse {
  117:   require Apache::imageresponse; 
  118:   import Apache::imageresponse; 
  119:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
  120:   return &Apache::imageresponse::start_imageresponse($target,$token,$parstack,$parser,$safeeval,$style);
  121: }
  122: 
  123: sub start_essayresponse {
  124:   require Apache::essayresponse; 
  125:   import Apache::essayresponse; 
  126:   my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
  127:   return &Apache::essayresponse::start_essayresponse($target,$token,$parstack,$parser,$safeeval,$style);
  128: }
  129: 
  130: sub start_responseparam {
  131:   my ($target,$token,$parstack,$parser,$safeeval)=@_;
  132:   if ($target eq 'grade' || $target eq 'web') {
  133:     my $args='';
  134:     if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
  135:     my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
  136:     my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
  137:     &Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name");
  138:     my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.$name");
  139:     &Apache::lonxml::debug("$name has value :$value: and default :$default:");
  140:     if ($value eq '' || $value eq 'con_lost') {
  141:       &Apache::lonxml::debug("defaulting");
  142:       $Apache::inputtags::params{$name}=$default;
  143:     } else {
  144:       &Apache::lonxml::debug("using value");
  145:       $Apache::inputtags::params{$name}=$value;
  146:     }
  147:     return '';
  148:   } elsif ($target eq 'meta') {
  149:     return &meta_parameter_write($token->[2]->{'name'},
  150: 				 $token->[2]->{'type'},
  151: 				 $token->[2]->{'default'},
  152: 				 $token->[2]->{'description'});
  153:   } else {
  154:     return '';
  155:   }
  156: }
  157: 
  158: sub end_responseparam {
  159: }
  160: 
  161: 1;
  162: __END__
  163: