--- loncom/homework/response.pm 2008/12/11 04:11:09 1.206.2.1 +++ loncom/homework/response.pm 2008/11/24 16:53:26 1.207 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # various response type definitons response definition # -# $Id: response.pm,v 1.206.2.1 2008/12/11 04:11:09 raeburn Exp $ +# $Id: response.pm,v 1.207 2008/11/24 16:53:26 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -217,23 +217,26 @@ sub meta_stores_write { } sub mandatory_part_meta { -# -# Autogenerate metadata for mandatory -# input (from RAT or lonparmset) and -# output (to lonspreadsheet) -# of each part +=pod + +=item meta_part_order + +Autogenerate metadata for mandatory +input (from RAT or lonparmset) and +output (to lonspreadsheet) +of each part # return -# &meta_parameter_write('opendate','date_start','', -# 'Opening Date'). -# &meta_parameter_write('duedate','date_end','', -# 'Due Date'). -# &meta_parameter_write('answerdate','date_start','', -# 'Show Answer Date'). -# &meta_parameter_write('weight','int_zeropos','', -# 'Available Points'). -# &meta_parameter_write('maxtries','int_pos','', -# 'Maximum Number of Tries'). + &meta_parameter_write('opendate','date_start','', + 'Opening Date'). + &meta_parameter_write('duedate','date_end','', + 'Due Date'). + &meta_parameter_write('answerdate','date_start','', + 'Show Answer Date'). + &meta_parameter_write('weight','int_zeropos','', + 'Available Points'). + &meta_parameter_write('maxtries','int_pos','', + 'Maximum Number of Tries'). &meta_package_write('part'). &meta_stores_write('solved','string', 'Problem Status'). @@ -241,10 +244,12 @@ sub mandatory_part_meta { 'Number of Attempts'). &meta_stores_write('awarded','float', 'Partial Credit Factor'); -# -# Note: responseid-specific data 'submission' and 'awarddetail' -# not available to spreadsheet -> skip here -# + +Note: responseid-specific data 'submission' and 'awarddetail' +not available to spreadsheet -> skip here + +=cut + } sub meta_part_order { @@ -288,7 +293,6 @@ sub check_for_previous { $previous{'last'}='1'; } if (! $previous{'award'} ) { $previous{'award'} = 'UNKNOWN'; } - if ($previous{'award'} eq 'INTERNAL_ERROR') { $previous{'used'}=0; } &Apache::lonxml::debug("got a match :$previous{'award'}:$previous{'used'}:"); } }