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.4, 2006/02/09 23:41:22
  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}) &&
+ 	    # making old style store  entries '$ver:$symb:$key = $value'
- 		     exists($data{$symb}->{$param}) &&
+ 	    # look like new                   '$ver:$symb = "$key=$value"'
- 		     $data{$symb}->{'v.'.$param} > $v);
+ 	    if (defined($param)) { $value = $param.'='.$value; }
- 	    $data{$symb}->{$param}=$value;
+ 	    foreach my $pair (split(/\&/,$value)) {
- 	    $data{$symb}->{'v.'.$param}=$v;
+ 		my ($param,$value)=split(/=/,$pair);
+ 		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)) {