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

Diff for /loncom/homework/response.pm between versions 1.206.2.1 and 1.209

version 1.206.2.1, 2008/12/11 04:11:09 version 1.209, 2008/12/07 23:40:57
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 1149  sub pick_foil_for_concept { Line 1177  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 1220  sub add_to_gradingqueue { Line 1251  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 1295  sub setup_prior_tries_hash { Line 1333  sub setup_prior_tries_hash {
 1;  1;
 __END__  __END__
     
   =pod
   
   =back
   
   =cut
Removed from v.1.206.2.1  
changed lines
  Added in v.1.209

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