loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.318.2.2, 2006/02/09 20:39:25
+version 1.318.2.3, 2006/02/09 20:48:40
  Line 2915  sub dump_profile_database {
  	while (my ($key,$value) = each(%$hashref)) {
  	    my ($v,$symb,$param) = split(/:/,$key);
  	    next if ($v eq 'version' || $symb eq 'keys');
- 	    next if (exists($data{$symb}) &&
+ 	    if (!defined($param)) {
- 		     exists($data{$symb}->{$param}) &&
+ 		foreach my $pair (split(/\&/,$value)) {
- 		     $data{$symb}->{'v.'.$param} > $v);
+ 		    my ($param,$value)=split(/=/,$pair);
- 	    $data{$symb}->{$param}=$value;
+ 		    next if (exists($data{$symb}) &&
- 	    $data{$symb}->{'v.'.$param}=$v;
+ 			     exists($data{$symb}->{$param}) &&
+ 			     $data{$symb}->{'v.'.$param} > $v);
+ 		    $data{$symb}->{$param}=$value;
+ 		    $data{$symb}->{'v.'.$param}=$v;
+ 		}
+ 	    } else {
+ 		next if (exists($data{$symb}) &&
+ 			 exists($data{$symb}->{$param}) &&
+ 			 $data{$symb}->{'v.'.$param} > $v);
+ 		$data{$symb}->{$param}=$value;
+ 		$data{$symb}->{'v.'.$param}=$v;
+ 	    }
  	}
  	if (&untie_user_hash($hashref)) {
  	    while (my ($symb,$param_hash) = each(%data)) {