--- loncom/interface/lonparmset.pm 2007/11/02 23:30:56 1.385 +++ loncom/interface/lonparmset.pm 2007/12/01 03:45:17 1.388 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.385 2007/11/02 23:30:56 albertel Exp $ +# $Id: lonparmset.pm,v 1.388 2007/12/01 03:45:17 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2599,8 +2599,8 @@ sub parse_listdata_key { $realm=~s/\.type//; } # split into resource+part and parameter name - my ($res, $parm) = ($realm=~/^(.*)\.(.*)$/); - my ($res, $part) = ($res =~/^(.*)\.(.*)$/); + my ($res, $parm) = ($realm=~/^(.*)\.(.*)$/); + ($res, my $part) = ($res =~/^(.*)\.(.*)$/); return ($student,$res,$part,$parm); } @@ -2752,7 +2752,6 @@ sub listdata { sub date_interval_selector { my ($thiskey, $showval) = @_; my $result; - &Apache::lonnet::logthis($showval); foreach my $which (['days', 86400, 31], ['hours', 3600, 23], ['minutes', 60, 59], @@ -2760,7 +2759,6 @@ sub date_interval_selector { my ($name, $factor, $max) = @{ $which }; my $amount = int($showval/$factor); $showval %= $factor; - &Apache::lonnet::logthis("$amount $factor $showval"); my %select = ((map {$_ => $_} (0..$max)), 'select_form_order' => [0..$max]); $result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey, @@ -2800,6 +2798,7 @@ my %strings = [ 'no', 'No' ]], 'string_problemstatus' => [[ 'yes', 'Yes' ], + [ 'answer', 'Yes, and show correct answer if they exceed the maxium number of tries.' ], [ 'no', 'No, don\'t show correct/incorrect feedback.' ], [ 'no_feedback_ever', 'No, show no feedback at all.' ]], );