loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/groupsort.pm between versions 1.19 and 1.21

version 1.19, 2003/02/03 18:03:52	version 1.21, 2003/06/14 00:15:01
Line 151 END	Line 151 END
# ------------------------------ which file do we open? Easy if explictly given	# ------------------------------ which file do we open? Easy if explictly given
if ($ENV{'form.catalogmode'} eq 'groupsearch') {	if ($ENV{'form.catalogmode'} eq 'groupsearch') {
$diropendb =	$diropendb =
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db";	"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db";
}	}
elsif ($ENV{'form.catalogmode'} eq 'groupimport') {	elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
$diropendb =	$diropendb =
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";	"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db";
}	}
elsif ($ENV{'form.catalogmode'} eq 'groupsec') {	elsif ($ENV{'form.catalogmode'} eq 'groupsec') {
$diropendb =	$diropendb =
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_groupsec.db";	"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_groupsec.db";
}	}
# --------------------- not explicitly given, choose the one most recently used	# --------------------- not explicitly given, choose the one most recently used
else { # choose last accessed	else { # choose last accessed
Line 167 END	Line 167 END
my @dbst;	my @dbst;

$dbfn[0] =	$dbfn[0] =
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db";	"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db";
$dbst[0]=-1;	$dbst[0]=-1;
if (-e $dbfn[0]) {	if (-e $dbfn[0]) {
$dbst[0]=(stat($dbfn[0]))[9];	$dbst[0]=(stat($dbfn[0]))[9];
}	}
$dbfn[1] =	$dbfn[1] =
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";	"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db";
$dbst[1]=-1;	$dbst[1]=-1;
if (-e $dbfn[1]) {	if (-e $dbfn[1]) {
$dbst[1]=(stat($dbfn[1]))[9];	$dbst[1]=(stat($dbfn[1]))[9];
}	}
$dbfn[2] =	$dbfn[2] =
"/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_groupsec.db";	"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_groupsec.db";
$dbst[2]=-1;	$dbst[2]=-1;
if (-e $dbfn[2]) {	if (-e $dbfn[2]) {
$dbst[2]=(stat($dbfn[2]))[9];	$dbst[2]=(stat($dbfn[2]))[9];
Line 331 END	Line 331 END
$ctr++;	$ctr++;
my @file_ext = split(/\./,$key);	my @file_ext = split(/\./,$key);
my $curfext = $file_ext[scalar(@file_ext)-1];	my $curfext = $file_ext[scalar(@file_ext)-1];
	my $iconname="unknown.gif";
	my $embstyle = &Apache::loncommon::fileembstyle($curfext);
	# The unless conditional that follows is a bit of overkill
	$iconname = $curfext.".gif" unless
	(!defined($embstyle) \|\| $embstyle eq 'unk' \|\| $embstyle eq 'hdn');
$r->print("<tr><td bgcolor='$fileclr'>");	$r->print("<tr><td bgcolor='$fileclr'>");
$r->print(&movers($clen,$ctr));	$r->print(&movers($clen,$ctr));
$r->print(&hidden($ctr-1,$thash{$key},$key));	$r->print(&hidden($ctr-1,$thash{$key},$key));
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print(&select_box($clen,$ctr));	$r->print(&select_box($clen,$ctr));
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print("<img src='$iconpath$curfext.gif'>");	$r->print("<img src='$iconpath$iconname'>");
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n");	$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n");
$r->print("$key</td></tr>\n");	$r->print("$key</td></tr>\n");

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

Removed from v.1.19
changed lines
	Added in v.1.21