loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.164, 2007/06/28 21:42:49	version 1.165, 2007/06/28 22:28:22
Line 410 ENDHEADER	Line 410 ENDHEADER
# sorting through the actions and changing the global database hash	# sorting through the actions and changing the global database hash
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {	foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {
if ($ahash{$key} eq '1') {	if ($ahash{$key} eq '1') {
$hash{'store_'.$hash{'pre_'.$key.'_link'}}=1;	$hash{'store_'.$hash{'pre_'.$key.'_link'}}=
# $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'}++;
Line 951 sub display_line {	Line 951 sub display_line {
$r->print(" />\n");	$r->print(" />\n");
$r->print("</form></td><td nowrap='nowrap' valign='top'>");	$r->print("</form></td><td nowrap='nowrap' valign='top'>");
$hash{"pre_${fnum}_link"}=$filelink;	$hash{"pre_${fnum}_link"}=$filelink;
	$hash{"pre_${fnum}_title"}=&Apache::lonnet::gettitle($filelink,'title');
	if (!$hash{"pre_${fnum}_title"}) {
	$hash{"pre_${fnum}_title"} = 'Untitled';
	}
$fnum++;	$fnum++;
}	}
# Form to open or close sequences	# Form to open or close sequences