--- loncom/interface/spreadsheet/assesscalc.pm 2006/05/01 17:30:20 1.54 +++ loncom/interface/spreadsheet/assesscalc.pm 2006/05/15 23:40:47 1.55 @@ -1,5 +1,5 @@ # -# $Id: assesscalc.pm,v 1.54 2006/05/01 17:30:20 raeburn Exp $ +# $Id: assesscalc.pm,v 1.55 2006/05/15 23:40:47 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -314,6 +314,7 @@ sub parmval { # This should be a if (!defined($mapname) || !defined($id) || !defined($fn)) { ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($symb); + $mapname = &Apache::lonnet::deversion($mapname); } # Cascading lookup scheme my $rwhat=$what; @@ -644,6 +645,7 @@ sub get_parameter_values { if (tie(%parmhash,'GDBM_File', $self->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) { my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($self->{'symb'}); + $mapname = &Apache::lonnet::deversion($mapname); foreach my $parmname (@Parameters) { my $value = $self->parmval($parmname,$self->{'symb'}, $self->{'name'},$self->{'domain'},