loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.163, 2007/06/27 23:27:23	version 1.164, 2007/06/28 21:42:49
Line 128 sub handler {	Line 128 sub handler {
if ($env{'form.launch'} eq '1') {	if ($env{'form.launch'} eq '1') {
&start_fresh_session(\%dbfile);	&start_fresh_session(\%dbfile);
}	}

while(my($key,$value)=each(%dbfile)) {	while(my($key,$value)=each(%dbfile)) {
$hash{$key}=$value;	$hash{$key}=$value;
}	}
Line 409 ENDHEADER	Line 408 ENDHEADER
$ac++;	$ac++;
}	}
# sorting through the actions and changing the global database hash	# sorting through the actions and changing the global database hash
foreach (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {	foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {
my $key=$_;
if ($ahash{$key} eq '1') {	if ($ahash{$key} eq '1') {
$hash{'store_'.$hash{'pre_'.$key.'_link'}}=	$hash{'store_'.$hash{'pre_'.$key.'_link'}}=1;
$hash{'pre_'.$key.'_title'};	# $hash{'pre_'.$key.'_title'};
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}=	$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}=
$hash{'storectr'}+0;	$hash{'storectr'}+0;
$hash{'storectr'}++;	$hash{'storectr'}++;