--- loncom/homework/response.pm 2007/04/18 00:19:37 1.163 +++ loncom/homework/response.pm 2007/05/22 01:03:35 1.166 @@ -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.166 2007/05/22 01:03:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1022,7 +1022,17 @@ sub pick_foil_for_concept { $Apache::response::conceptgroup{'names'}; } - +#------------------------------------------------------------ +# +# Get a parameter associated with a problem. +# Parameters: +# $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. +# +# +# sub get_response_param { my ($id,$name,$default)=@_; my $parameter;