loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.4 and 1.5

version 1.4, 2001/05/21 15:22:48	version 1.5, 2001/05/21 18:11:31
Line 90 ENDHEADER	Line 90 ENDHEADER
</form>	</form>
END	END

my $diropen = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_diropen.db";	my $titleclr="#ddffff";
	$r->print("<table border=0><tr><td bgcolor=#eeeeee>\n");
	$r->print("<table border=0><tr>\n");
	$r->print("<td bgcolor=$titleclr><b>Name</b></td>\n");
	$r->print("<td bgcolor=$titleclr align=right><b>Size (bytes) </b></td>\n") if ($ENV{'form.attr0'} == 1);
	$r->print("<td bgcolor=$titleclr><b>Last accessed</b></td>\n") if ($ENV{'form.attr1'} == 1);
	$r->print("<td bgcolor=$titleclr><b>Last modified</b></td>\n") if ($ENV{'form.attr2'} == 1);
	$r->print("<td bgcolor=$titleclr><b>Author(s)</b></td>\n") if ($ENV{'form.attr3'} == 1);
	$r->print("<td bgcolor=$titleclr><b>Keywords</b></td>\n") if ($ENV{'form.attr4'} == 1);
	$r->print("<td bgcolor=$titleclr><b>Language</b></td>\n") if ($ENV{'form.attr5'} == 1);
	$r->print("</tr>");

if (tie(%hash,'GDBM_File',$diropen,&GDBM_WRCREAT,0640)) {	my $diropen = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
my $titleclr="#ddffff";
$r->print("<table border=0><tr><td bgcolor=#eeeeee>\n");
$r->print("<table border=0><tr>\n");
$r->print("<td bgcolor=$titleclr><b>Name</b></td>\n");
$r->print("<td bgcolor=$titleclr align=right><b>Size (bytes) </b></td>\n") if ($ENV{'form.attr0'} == 1);
$r->print("<td bgcolor=$titleclr><b>Last accessed</b></td>\n") if ($ENV{'form.attr1'} == 1);
$r->print("<td bgcolor=$titleclr><b>Last modified</b></td>\n") if ($ENV{'form.attr2'} == 1);
$r->print("<td bgcolor=$titleclr><b>Author(s)</b></td>\n") if ($ENV{'form.attr3'} == 1);
$r->print("<td bgcolor=$titleclr><b>Keywords</b></td>\n") if ($ENV{'form.attr4'} == 1);
$r->print("<td bgcolor=$titleclr><b>Language</b></td>\n") if ($ENV{'form.attr5'} == 1);
$r->print("</tr>");

	if (tie(%hash,'GDBM_File',$diropen,&GDBM_WRCREAT,0640)) {
map {	map {
if ($_ =~ /^diropen_status_/) {	if ($_ =~ /^diropen_status_/) {
my $key = $_;	my $key = $_;
Line 153 sub scanDir {	Line 153 sub scanDir {
my %dupdirs = %dirs;	my %dupdirs = %dirs;
my @list=&get_list($r,$startdir);	my @list=&get_list($r,$startdir);
foreach my $line (@list) {	foreach my $line (@list) {
my ($strip,$domusr,$foo,$testdir,$foo)=split(/\&/,$line,5);	my ($strip,$dom,$foo,$testdir,$foo)=split(/\&/,$line,5);
next if $strip =~ /.*\.meta$/;	next if $strip =~ /.*\.meta$/;
if ($domusr eq "domain") {	if ($dom eq "domain") {
$compuri = join('',$strip,"/"); # domain list has /res/<domain name>	$compuri = join('',$strip,"/"); # domain list has /res/<domain name>
$curdir = $compuri;	$curdir = $compuri;
} else {	} else {
Line 163 sub scanDir {	Line 163 sub scanDir {
$curdir = $startdir;	$curdir = $startdir;
}	}
my $diropen = 0;	my $diropen = 0;
if (($dirptr&$testdir) or ($domusr =~ /^(domain\|user)$/)) {	if (($dirptr&$testdir) or ($dom =~ /^(domain\|user)$/)) {
while (my ($key,$val)= each %dupdirs) {	while (my ($key,$val)= each %dupdirs) {
$diropen = 1 if ($key eq $compuri and $val eq "open");	if ($key eq $compuri and $val eq "open") {
	$diropen = 1;
	delete $dupdirs{key},$dirs{$key};
	}
}	}
}	}
&display_line($r,$diropen,$line,$indent,$curdir,@list);	&display_line($r,$diropen,$line,$indent,$curdir,@list);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.4
changed lines
	Added in v.1.5