loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.132, 2006/06/13 14:42:24	version 1.133, 2006/06/14 18:34:46
Line 150 sub get_recent {	Line 150 sub get_recent {

# Create hash with key as time and recent as value	# Create hash with key as time and recent as value
my %time_hash = ();	my %time_hash = ();
	my $nfrozen = 0;
foreach (keys %recent) {	foreach (keys %recent) {
my $thistime=(split(/\&/,$recent{$_}))[0];	my ($thistime,$thisvalue)=(split(/\&/,$recent{$_}));
	if (($thisvalue eq 'role_frozen') && ($area='roles')) {
	$thistime=time+$nfrozen;
	$nfrozen++;
	}
$time_hash{$thistime} = $_;	$time_hash{$thistime} = $_;
}	}

Line 160 sub get_recent {	Line 165 sub get_recent {
my $idx = 1;	my $idx = 1;
foreach (reverse sort keys %time_hash) {	foreach (reverse sort keys %time_hash) {
$return_hash{$time_hash{$_}} =	$return_hash{$time_hash{$_}} =
&unescape((split(/\&/,$recent{$_}))[1]);	&unescape((split(/\&/,$recent{$time_hash{$_}}))[1]);
if ($n && ($idx++ >= $n)) {last;}	if ($n && ($idx++ >= $n)) {last;}
}	}