loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.79, 2003/10/24 21:09:24	version 1.81, 2003/12/08 18:29:50
Line 432 $r->print(&Apache::loncommon::bodytag('B	Line 432 $r->print(&Apache::loncommon::bodytag('B
'av' => 'All versions',	'av' => 'All versions',
'ud' => 'Update Display'	'ud' => 'Update Display'
);	);
	my $Displayfileattributes=&mt('Display file attributes');
$r->print(<<END);	$r->print(<<END);
<form method="post" name="fileattr" action="$uri"	<form method="post" name="fileattr" action="$uri"
enctype="application/x-www-form-urlencoded">	enctype="application/x-www-form-urlencoded">
<b><font color="#666666">Display file attributes</font></b><br />	<b><font color="#666666">$Displayfileattributes</font></b><br />
<table border=0><tr>	<table border=0><tr>
<td><input type="checkbox" name="attr0" value="1" $attrchk[0] /> $lt{'ti'}</td>	<td><input type="checkbox" name="attr0" value="1" $attrchk[0] /> $lt{'ti'}</td>
<td><input type="checkbox" name="attr1" value="1" $attrchk[1] /> $lt{'si'}</td>	<td><input type="checkbox" name="attr1" value="1" $attrchk[1] /> $lt{'si'}</td>
Line 684 sub match_ext {	Line 685 sub match_ext {
push @trimlist,$line;	push @trimlist,$line;
}	}
}	}
@trimlist = sort (@trimlist);	@trimlist = sort {uc($a) cmp uc($b)} (@trimlist);
return @trimlist;	return @trimlist;
}	}