version 1.46, 2005/05/15 02:49:40
|
version 1.47, 2005/05/15 03:45:42
|
Line 632 sub get_parameter_values {
|
Line 632 sub get_parameter_values {
|
$self->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) { |
$self->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) { |
my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($self->{'symb'}); |
my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($self->{'symb'}); |
foreach my $parmname (@Parameters) { |
foreach my $parmname (@Parameters) { |
my $value = $self->parmval($parmname,$self->{'name'}, |
my $value = $self->parmval($parmname,$self->{'symb'}, |
$self->{'domain'},$self->{'section'}, |
$self->{'name'},$self->{'domain'}, |
$self->{'symb'},undef,$mapname,$id,$fn); |
$self->{'section'},undef, |
|
$mapname,$id,$fn); |
$parameters{$parmname} =$value; |
$parameters{$parmname} =$value; |
} |
} |
untie(%parmhash); |
untie(%parmhash); |