version 1.18, 2003/01/14 18:47:50
|
version 1.23, 2003/09/23 00:26:10
|
Line 27
|
Line 27
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# YEAR=2001 |
# YEAR=2001 |
# 8/7,8/8,10/14,10/15,12/10 Scott Harrison |
|
# YEAR=2002 |
# YEAR=2002 |
# 1/17 Scott Harrison |
|
# |
# |
### |
### |
|
|
Line 40 use strict;
|
Line 38 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use GDBM_File; |
use GDBM_File; |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lonlocal; |
|
|
my %hash; # variable to tie to user specific database |
my %hash; # variable to tie to user specific database |
my $iconpath; # variable to be accessible to multiple subroutines |
my $iconpath; # variable to be accessible to multiple subroutines |
Line 63 sub handler {
|
Line 62 sub handler {
|
my $fileclr = '#ffffe6'; |
my $fileclr = '#ffffe6'; |
my $titleclr = '#ddffff'; |
my $titleclr = '#ddffff'; |
|
|
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
Line 141 function orderchange(val,newval) {
|
Line 140 function orderchange(val,newval) {
|
</script> |
</script> |
</head> |
</head> |
END |
END |
$r->print(&Apache::loncommon::bodytag('Sort Imported Resources')); |
|
# read pertinent machine configuration |
# read pertinent machine configuration |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
Line 153 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 169 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 292 END
|
Line 290 END
|
untie %hash; |
untie %hash; |
my $ctr = 0; |
my $ctr = 0; |
my $clen = scalar(keys %shash); |
my $clen = scalar(keys %shash); |
$r->print(<<END); |
if ($clen > 1) { |
<b><font color="#888888">Finalize order of resources</font></b> |
my %lt=&Apache::lonlocal::texthash( |
|
'fin'=> 'Finalize order of resources', |
|
'gb' => 'Go Back', |
|
'ns' => 'New Search', |
|
'fi' => 'Finish Import', |
|
'ca' => 'Cancel', |
|
'co' => 'Change Order', |
|
'ti' => 'Title', |
|
'pa' => 'Path' |
|
); |
|
$r->print(&Apache::loncommon::bodytag('Sort Imported Resources')); |
|
$r->print(<<END); |
|
<b><font color="#888888">$lt{'fin'}</font></b> |
<form method='post' action='/adm/groupsort' name='groupsort' |
<form method='post' action='/adm/groupsort' name='groupsort' |
enctype='application/x-www-form-urlencoded'> |
enctype='application/x-www-form-urlencoded'> |
<input type="hidden" name="fnum" value="$clen" /> |
<input type="hidden" name="fnum" value="$clen" /> |
Line 302 END
|
Line 312 END
|
<input type="hidden" name="mode" value="$ENV{'form.mode'}" /> |
<input type="hidden" name="mode" value="$ENV{'form.mode'}" /> |
END |
END |
|
|
# --- Expand here if "GO BACK" button desired |
# --- Expand here if "GO BACK" button desired |
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
if ($ENV{'form.catalogmode'} eq 'groupimport') { |
$r->print(<<END); |
$r->print(<<END); |
<input type="button" name="alter" value="GO BACK" |
<input type="button" name="alter" value="$lt{'gb'}" |
onClick="window.location='/res/?catalogmode=groupimport'" /> |
onClick="window.location='/res/?catalogmode=groupimport'" /> |
END |
END |
} |
} |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
$r->print(<<END); |
$r->print(<<END); |
<input type="button" name="alter" value="New Search" |
<input type="button" name="alter" value="$lt{'ns'}" |
onClick="window.location='/adm/searchcat?catalogmode=groupsearch&cleargroupsort=1'" /> |
onClick="window.location='/adm/searchcat?catalogmode=groupsearch&cleargroupsort=1'" /> |
END |
END |
} |
} |
# --- |
# --- |
|
|
$r->print(<<END); |
$r->print(<<END); |
<input type="button" name="alter" value="FINISH IMPORT" |
<input type="button" name="alter" value="$lt{'fi'}" |
onClick="finish_import()" /> |
onClick="finish_import()" /> |
<input type="button" name="alter" value="CANCEL" onClick="self.close()" /> |
<input type="button" name="alter" value="$lt{'ca'}" onClick="self.close()" /> |
|
END |
|
$r->print("<table border='0'><tr><td bgcolor='#eeeeee'>"); |
|
$r->print("<table border=0><tr>\n"); |
|
$r->print("<td colspan='2' bgcolor='$titleclr'><b>$lt{'co'}</b></td>\n"); |
|
$r->print("<td colspan='2' bgcolor='$titleclr'><b>$lt{'ti'}</b></td>\n"); |
|
$r->print("<td bgcolor='$titleclr'><b>$lt{'pa'}</b></td></tr>\n"); |
|
} else { |
|
$r->print(<<END); |
|
<body> |
|
<form method='post' action='/adm/groupsort' name='groupsort' |
|
enctype='application/x-www-form-urlencoded'> |
|
<input type="hidden" name="fnum" value="$clen" /> |
|
<input type="hidden" name="oldval" value="" /> |
|
<input type="hidden" name="newval" value="" /> |
|
<input type="hidden" name="mode" value="$ENV{'form.mode'}" /> |
END |
END |
$r->print("<table border='0'><tr><td bgcolor='#eeeeee'>"); |
} |
$r->print("<table border=0><tr>\n"); |
|
$r->print("<td colspan='2' bgcolor='$titleclr'><b>Change order</b></td>". |
|
"\n"); |
|
$r->print("<td colspan='2' bgcolor='$titleclr'><b>Title</b></td>\n"); |
|
$r->print("<td bgcolor='$titleclr'><b>Path</b></td></tr>\n"); |
|
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) { |
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) { |
my $key=$_; |
my $key=$_; |
$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]; |
$r->print("<tr><td bgcolor='$fileclr'>"); |
my $iconname="unknown.gif"; |
$r->print(&movers($clen,$ctr)); |
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'); |
|
if ($clen > 1) { |
|
$r->print("<tr><td bgcolor='$fileclr'>"); |
|
$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'>"); |
if ($clen > 1) { |
$r->print(&select_box($clen,$ctr)); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print(&select_box($clen,$ctr)); |
$r->print("<img src='$iconpath$curfext.gif'>"); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("<img src='$iconpath$iconname'>"); |
$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n"); |
$r->print("</td><td bgcolor='$fileclr'>"); |
$r->print("$key</td></tr>\n"); |
$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n"); |
} |
$r->print("$key</td></tr>\n"); |
$r->print("</table></td></tr></table></form>"); |
} |
|
} |
|
if ($clen > 1) { |
|
$r->print("</table></td></tr></table></form>"); |
|
} else { |
|
$r->print(<<END); |
|
<script type="text/javascript"> |
|
finish_import(); |
|
</script> |
|
END |
|
} |
$r->print(<<END); |
$r->print(<<END); |
</body> |
</body> |
</html> |
</html> |
END |
END |
|
|
return OK; |
return OK; |
} |
} |
|
|