--- loncom/homework/response.pm 2007/04/18 00:19:37 1.163 +++ loncom/homework/response.pm 2007/05/17 09:40:48 1.164 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # various response type definitons response definition # -# $Id: response.pm,v 1.163 2007/04/18 00:19:37 albertel Exp $ +# $Id: response.pm,v 1.164 2007/05/17 09:40:48 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1022,7 +1022,16 @@ sub pick_foil_for_concept { $Apache::response::conceptgroup{'names'}; } - +#------------------------------------------------------------ +# +# Get a parameter associated with a problem. +# Parameters: +# $id - the symb of the problem part within the map(?) ($part._$id). +# $name - Name of the parameter to fetch +# $default - Default value for the paramter. +# +# +# sub get_response_param { my ($id,$name,$default)=@_; my $parameter;