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

Diff for /loncom/homework/response.pm between versions 1.204 and 1.208

version 1.204, 2008/09/11 14:47:17 version 1.208, 2008/11/25 13:16:17
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
   
   =pod
   
   =head1 NAME
   
   Apache::resonse.pm
   
   =head1 SYNOPSIS
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   
   =head1 NOTABLE SUBROUTINES
   
   =over
   
   =item 
   
   =back
   
   =cut
   
   
 package Apache::response;  package Apache::response;
 use strict;  use strict;
 use Apache::lonlocal;  use Apache::lonlocal;
Line 217  sub meta_stores_write { Line 240  sub meta_stores_write {
 }  }
   
 sub mandatory_part_meta {  sub mandatory_part_meta {
 #  =pod
 # Autogenerate metadata for mandatory  
 # input (from RAT or lonparmset) and   =item meta_part_order
 # output (to lonspreadsheet)  
 # of each part  Autogenerate metadata for mandatory
   input (from RAT or lonparmset) and 
   output (to lonspreadsheet)
   of each part
 #  #
     return      return
 #    &meta_parameter_write('opendate','date_start','',     &meta_parameter_write('opendate','date_start','',
 #                          'Opening Date').                           'Opening Date').
 #    &meta_parameter_write('duedate','date_end','',     &meta_parameter_write('duedate','date_end','',
 #                          'Due Date').                           'Due Date').
 #    &meta_parameter_write('answerdate','date_start','',     &meta_parameter_write('answerdate','date_start','',
 #                          'Show Answer Date').                           'Show Answer Date').
 #    &meta_parameter_write('weight','int_zeropos','',     &meta_parameter_write('weight','int_zeropos','',
 #                          'Available Points').                           'Available Points').
 #    &meta_parameter_write('maxtries','int_pos','',     &meta_parameter_write('maxtries','int_pos','',
 #                          'Maximum Number of Tries').                           'Maximum Number of Tries').
  &meta_package_write('part').   &meta_package_write('part').
         &meta_stores_write('solved','string',          &meta_stores_write('solved','string',
    'Problem Status').     'Problem Status').
Line 241  sub mandatory_part_meta { Line 267  sub mandatory_part_meta {
    'Number of Attempts').     'Number of Attempts').
         &meta_stores_write('awarded','float',          &meta_stores_write('awarded','float',
    'Partial Credit Factor');     'Partial Credit Factor');
 #  
 # Note: responseid-specific data 'submission' and 'awarddetail'  Note: responseid-specific data 'submission' and 'awarddetail'
 # not available to spreadsheet -> skip here  not available to spreadsheet -> skip here
 #  
   =cut
   
 }  }
   
 sub meta_part_order {  sub meta_part_order {
Line 575  sub end_mathresponse { Line 603  sub end_mathresponse {
         my $partid = $Apache::inputtags::part;          my $partid = $Apache::inputtags::part;
         my $id = $Apache::inputtags::response[-1];          my $id = $Apache::inputtags::response[-1];
         if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')          if (($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')
            && (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoneditor') ne 'no')) {             && (&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffeditor') ne 'yes')) {
             $result.=&edit_mathresponse_button($id,"HWVAL_$id");              $result.=&edit_mathresponse_button($id,"HWVAL_$id");
         }          }
     }      }
Line 680  sub start_responseparam { Line 708  sub start_responseparam {
     }      }
  }   }
  if (defined($optionlist)) {   if (defined($optionlist)) {
     $result.='Use template: <select name="'.      $result.=&mt('Use template:').' <select name="'.
  &Apache::edit::html_element_name('parameter_package').'">'.   &Apache::edit::html_element_name('parameter_package').'">'.
     '<option value=""></option>'.$optionlist.'</select><br />';      '<option value=""></option>'.$optionlist.'</select><br />';
  }   }
Line 1148  sub pick_foil_for_concept { Line 1176  sub pick_foil_for_concept {
  $Apache::response::conceptgroup{'names'};   $Apache::response::conceptgroup{'names'};
   
 }  }
 #------------------------------------------------------------  
 #  =pod
 #  Get a parameter associated with a problem.  
 # Parameters:  =item get_response_param()
 #  $id        - the id of the paramater, either a part id,   
 #               or a partid and responspe id joined by _  Get a parameter associated with a problem.
 #  $name      - Name of the parameter to fetch  Parameters:
 #  $default   - Default value for the paramter.   $id        - the id of the paramater, either a part id, 
 #                or a partid and responspe id joined by _
 #     $name      - Name of the parameter to fetch
 #   $default   - Default value for the paramter.
   
   =cut
   
 sub get_response_param {  sub get_response_param {
     my ($id,$name,$default)=@_;      my ($id,$name,$default)=@_;
     my $parameter;      my $parameter;
Line 1219  sub add_to_gradingqueue { Line 1250  sub add_to_gradingqueue {
     }      }
 }  }
   
 # basically undef and 0 (both false) mean that they still have work to do  =pod 
 # and all true values mean that they can't do any more work  
 #  =item check_status()
 # a return of undef means it is unattempted  
 # a return of 0 means it is attmpted and wrong but still has tries  basically undef and 0 (both false) mean that they still have work to do
 # a return of 1 means it is marked correct  and all true values mean that they can't do any more work
 # a return of 2 means they have exceed maximum number of tries  
 # a return of 3 means it after the answer date   a return of undef means it is unattempted
    a return of 0 means it is attmpted and wrong but still has tries
    a return of 1 means it is marked correct
    a return of 2 means they have exceed maximum number of tries
    a return of 3 means it after the answer date
   
   =cut
   
 sub check_status {  sub check_status {
     my ($id)=@_;      my ($id)=@_;
     if (!defined($id)) { $id=$Apache::inputtags::part; }      if (!defined($id)) { $id=$Apache::inputtags::part; }
Line 1294  sub setup_prior_tries_hash { Line 1332  sub setup_prior_tries_hash {
 1;  1;
 __END__  __END__
     
   =pod
   
   =back
   
   =cut
   
Removed from v.1.204  
changed lines
  Added in v.1.208

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