version 1.19, 2003/02/03 18:03:52
|
version 1.21.2.1, 2003/10/08 20:33:34
|
Line 67 sub handler {
|
Line 67 sub handler {
|
|
|
# finish_import looks different for graphical or "simple" RAT |
# finish_import looks different for graphical or "simple" RAT |
my $finishimport=''; |
my $finishimport=''; |
if ($ENV{'form.mode'} eq 'simple') { |
if ($ENV{'form.mode'} eq 'simple' || $ENV{'form.mode'} eq '') { |
$finishimport=(<<ENDSMP); |
$finishimport=(<<ENDSMP); |
function finish_import() { |
function finish_import() { |
opener.document.forms.simpleedit.importdetail.value=''; |
opener.document.forms.simpleedit.importdetail.value=''; |
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"); |