--- loncom/interface/lonparmset.pm 2008/03/06 21:37:59 1.392 +++ loncom/interface/lonparmset.pm 2008/04/05 16:10:52 1.394 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.392 2008/03/06 21:37:59 raeburn Exp $ +# $Id: lonparmset.pm,v 1.394 2008/04/05 16:10:52 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2142,7 +2142,7 @@ sub crsenv { } } if ($name eq 'description' && defined($value)) { - &Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.description' => $value); + &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.description' => $value}); if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') { $crsinfo{$env{'request.course.id'}}{'description'} = $value; my $putresult = @@ -2821,7 +2821,7 @@ my %strings = [ 'no', 'No' ]], 'string_problemstatus' => [[ 'yes', 'Yes' ], - [ 'answer', 'Yes, and show correct answer if they exceed the maxium number of tries.' ], + [ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ], [ 'no', 'No, don\'t show correct/incorrect feedback.' ], [ 'no_feedback_ever', 'No, show no feedback at all.' ]], ); @@ -3604,7 +3604,7 @@ sub order_meta_fields { my $ordered_fields = join ",", @neworder; my $put_result = &Apache::lonnet::put('environment', {'metadata.addedorder'=>$ordered_fields},$dom,$crs); - &Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields); + &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields}); } my $fields = &get_added_meta_fieldnames($env{'request.course.id'}); my $ordered_fields;