version 1.8, 2002/05/09 20:57:26
|
version 1.10, 2002/05/13 16:00:53
|
Line 46 my $iconpath; # variable to be accessibl
|
Line 46 my $iconpath; # variable to be accessibl
|
# ---------------------------------------------------------------- Main Handler |
# ---------------------------------------------------------------- Main Handler |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
|
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
|
['acts','catalogmode','mode']); |
|
|
# color scheme |
# color scheme |
my $fileclr = '#ffffe6'; |
my $fileclr = '#ffffe6'; |
Line 60 sub handler {
|
Line 63 sub handler {
|
if ($ENV{'form.mode'} eq 'simple') { |
if ($ENV{'form.mode'} eq 'simple') { |
$finishimport=(<<ENDSMP); |
$finishimport=(<<ENDSMP); |
function finish_import() { |
function finish_import() { |
alert("Finishing a simple import"); |
opener.document.forms.simpleedit.importdetail.value=''; |
|
for (var num=0; num<document.forms.groupsort.fnum.value; num++) { |
|
opener.document.forms.simpleedit.importdetail.value+='&'+ |
|
escape(eval("document.forms.groupsort.title"+num+".value"))+'='+ |
|
escape(eval("document.forms.groupsort.filelink"+num+".value")); |
|
} |
|
opener.document.forms.simpleedit.submit(); |
|
self.close(); |
} |
} |
ENDSMP |
ENDSMP |
} else { |
} else { |
Line 130 END
|
Line 140 END
|
|
|
my %shash; # sort order (key is resource location, value is sort order) |
my %shash; # sort order (key is resource location, value is sort order) |
my %thash; # title (key is resource location, value is title) |
my %thash; # title (key is resource location, value is title) |
foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
|
my ($name, $value) = split(/=/,$_); |
|
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
if ($name eq 'acts') { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
if ($name eq 'catalogmode') { |
|
$ENV{'form.'.$name}=$value; |
|
} |
|
} |
|
my $diropendb; |
my $diropendb; |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
$diropendb = |
$diropendb = |