loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.318.2.3, 2006/02/09 20:48:40	version 1.318.2.4, 2006/02/09 23:41:22
Line 2915 sub dump_profile_database {	Line 2915 sub dump_profile_database {
while (my ($key,$value) = each(%$hashref)) {	while (my ($key,$value) = each(%$hashref)) {
my ($v,$symb,$param) = split(/:/,$key);	my ($v,$symb,$param) = split(/:/,$key);
next if ($v eq 'version' \|\| $symb eq 'keys');	next if ($v eq 'version' \|\| $symb eq 'keys');
if (!defined($param)) {	# making old style store entries '$ver:$symb:$key = $value'
foreach my $pair (split(/\&/,$value)) {	# look like new '$ver:$symb = "$key=$value"'
my ($param,$value)=split(/=/,$pair);	if (defined($param)) { $value = $param.'='.$value; }
next if (exists($data{$symb}) &&	foreach my $pair (split(/\&/,$value)) {
exists($data{$symb}->{$param}) &&	my ($param,$value)=split(/=/,$pair);
$data{$symb}->{'v.'.$param} > $v);
$data{$symb}->{$param}=$value;
$data{$symb}->{'v.'.$param}=$v;
}
} else {
next if (exists($data{$symb}) &&	next if (exists($data{$symb}) &&
exists($data{$symb}->{$param}) &&	exists($data{$symb}->{$param}) &&
$data{$symb}->{'v.'.$param} > $v);	$data{$symb}->{'v.'.$param} > $v);