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.75, 2003/08/21 21:57:36
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+$/);
}	}
}	}