--- loncom/interface/spreadsheet/assesscalc.pm 2003/05/27 20:20:25 1.10 +++ loncom/interface/spreadsheet/assesscalc.pm 2003/05/29 18:31:27 1.12 @@ -1,5 +1,5 @@ # -# $Id: assesscalc.pm,v 1.10 2003/05/27 20:20:25 matthew Exp $ +# $Id: assesscalc.pm,v 1.12 2003/05/29 18:31:27 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -123,6 +123,10 @@ sub clear_package { undef(%courseopt); } +sub initialize { + &clear_package(); +} + ######################################################## ######################################################## @@ -507,6 +511,19 @@ sub compute { my $self = shift; $self->logthis('computing'); $self->initialize_safe_space(); + ######################################### + ######################################### + ### ### + ### Retrieve the problem parameters ### + ### ### + ######################################### + ######################################### + my @Mandatory_parameters = ("stores_0_solved", + "stores_0_awarddetail", + "stores_0_awarded", + "timestamp", + "stores_0_tries", + "stores_0_award"); # # Definitions undef(%nice_parameter_name); @@ -515,7 +532,7 @@ sub compute { # Get the metadata fields and determine their proper names my ($symap,$syid,$srcf)=split(/___/,$self->{'symb'}); my @Metadata = split(/\,/,&Apache::lonnet::metadata($srcf,'keys')); - foreach my $parm (@Metadata) { + foreach my $parm (@Mandatory_parameters,@Metadata) { next if ($parm !~ /^(resource\.|stores|parameter)_/); my $cleaned_name = $parm; $cleaned_name =~ s/^resource\./stores_/; @@ -595,6 +612,7 @@ sub compute { # # Save the export data $self->save_export_data(); + $self->save() if ($self->need_to_save()); return; }