version 1.7, 2002/03/21 14:33:49
|
version 1.9, 2002/05/09 23:07:36
|
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 55 sub handler {
|
Line 58 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
# output start of web page |
# finish_import looks different for graphical or "simple" RAT |
|
my $finishimport=''; |
|
if ($ENV{'form.mode'} eq 'simple') { |
|
$finishimport=(<<ENDSMP); |
|
function finish_import() { |
|
alert("Finishing a simple import"); |
|
} |
|
ENDSMP |
|
} else { |
|
$finishimport=(<<ENDADV); |
|
function finish_import() { |
|
var linkflag=false; |
|
for (var num=0; num<document.forms.groupsort.fnum.value; num++) { |
|
insertRowInLastRow(); |
|
placeResourceInLastRow( |
|
eval("document.forms.groupsort.title"+num+".value"), |
|
eval("document.forms.groupsort.filelink"+num+".value"), |
|
linkflag |
|
); |
|
linkflag=true; |
|
} |
|
opener.editmode=0; |
|
opener.notclear=0; |
|
opener.linkmode=0; |
|
opener.draw(); |
|
self.close(); |
|
} |
|
ENDADV |
|
} |
|
|
|
# output start of web page |
|
|
$r->print(<<END); |
$r->print(<<END); |
<html> |
<html> |
<head> |
<head> |
Line 75 function placeResourceInLastRow (title,u
|
Line 109 function placeResourceInLastRow (title,u
|
} |
} |
opener.linkmode=opener.mostrecent; |
opener.linkmode=opener.mostrecent; |
} |
} |
function finish_import() { |
$finishimport |
var linkflag=false; |
|
for (var num=0; num<document.forms.groupsort.fnum.value; num++) { |
|
insertRowInLastRow(); |
|
placeResourceInLastRow( |
|
eval("document.forms.groupsort.title"+num+".value"), |
|
eval("document.forms.groupsort.filelink"+num+".value"), |
|
linkflag |
|
); |
|
linkflag=true; |
|
} |
|
opener.editmode=0; |
|
opener.notclear=0; |
|
opener.linkmode=0; |
|
opener.draw(); |
|
self.close(); |
|
} |
|
function selectchange(val) { |
function selectchange(val) { |
var newval=0+eval("document.forms.groupsort.alt"+val+".selectedIndex"); |
var newval=0+eval("document.forms.groupsort.alt"+val+".selectedIndex"); |
orderchange(val,newval); |
orderchange(val,newval); |
Line 115 END
|
Line 133 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 = |