--- loncom/homework/response.pm 2007/04/18 00:19:37 1.163 +++ loncom/homework/response.pm 2007/05/17 09:43:47 1.165 @@ -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.165 2007/05/17 09:43:47 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;