loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.73, 2003/08/11 17:27:24	version 1.76, 2003/09/23 00:26:10
Line 86 my @Omit = ();	Line 86 my @Omit = ();
sub handler {	sub handler {
my $r = shift;	my $r = shift;
my $c = $r->connection();	my $c = $r->connection();
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
Line 337 function gothere(val) {	Line 337 function gothere(val) {

</head>	</head>
ENDHEADER	ENDHEADER
$r->print(&Apache::loncommon::bodytag('Browse Resources'));	my ($headerdom)=($uri=~/^\/res\/(\w+)\//);
	$r->print(&Apache::loncommon::bodytag('Browse Resources',undef,undef,undef,
	$headerdom));
# - Evaluate actions from previous page (both cumulatively and chronologically)	# - Evaluate actions from previous page (both cumulatively and chronologically)
if ($ENV{'form.catalogmode'} eq 'groupimport') {	if ($ENV{'form.catalogmode'} eq 'groupimport') {
my $acts=$ENV{'form.acts'};	my $acts=$ENV{'form.acts'};
Line 549 sub scanDir {	Line 551 sub scanDir {
my $fext = pop @fileparts;	my $fext = pop @fileparts;
my $ov = pop @fileparts;	my $ov = pop @fileparts;
my $fname = join ('.',@fileparts,$fext);	my $fname = join ('.',@fileparts,$fext);
next if (grep /\Q$fname\E/,@list and $ov =~ /\d+/);	next if (grep /\Q$fname\E/,@list and $ov =~ /^\d+$/);
}	}
}	}