Changeset Navigation

Changeset 1345

Timestamp:

08/16/06 23:32:54

Author:

taro

Message:

store rate of background-color for Widget

Files:

r1343	r1345
56	56	( $res->content =~ m#<h4[^>]>[^<>]this url has been saved by\D+(\d+)#s )[0];
57	57	}
	58	$args->{entry}->meta->{delicious_rate} = rate_of_color($delicious_users);
58	59	$args->{entry}->meta->{delicious_users} = $delicious_users;
	60	}
	61
	62	sub rate_of_color {
	63	my $n = shift;
	64	int(log($n) / log(0.82) + 100);
59	65	}
60	66