loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/lond between versions 1.318.2.1 and 1.318.2.4

version 1.318.2.1, 2006/02/09 20:23:28	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');
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)) {	if (&untie_user_hash($hashref)) {
while (my ($symb,$param_hash) = each(%data)) {	while (my ($symb,$param_hash) = each(%data)) {
Line 3071 sub store_handler {	Line 3077 sub store_handler {
my ($key)=split(/=/,$pair);	my ($key)=split(/=/,$pair);
$allkeys.=$key.':';	$allkeys.=$key.':';
}	}
$hashref->{"$version:$rid"}=$what;	$hashref->{"$version:$rid"}=$what."\&timestamp=$now";

$hashref->{"$version:$rid:timestamp"}=$now;
$allkeys.='timestamp';	$allkeys.='timestamp';
$hashref->{"$version:keys:$rid"}=$allkeys;	$hashref->{"$version:keys:$rid"}=$allkeys;
if (&untie_user_hash($hashref)) {	if (&untie_user_hash($hashref)) {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.318.2.1
changed lines
	Added in v.1.318.2.4