# | Line 243 | Line 243 | sub setparam { | |
---|---|---|
243 | my $name=shift; | |
244 | my $value=shift; | |
245 | ||
246 | – | #print "Setting $name = $value\n"; |
246 | $self->{params}{$name}=$value; | |
247 | $self->_lodgevalue($name,$value); | |
248 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |