--- loncom/interface/lonindexer.pm 2001/08/07 14:02:27 1.14
+++ loncom/interface/lonindexer.pm 2001/08/08 03:00:11 1.16
@@ -16,6 +16,7 @@
# 06/15/2001 Scott Harrison
# 06/26/2001 H. K. Ng
# 07/08/2001 H. K. Ng
+# 8/6,8/7 Scott Harrison
package Apache::lonindexer;
@@ -31,6 +32,7 @@ my %language;
my $hidden;
my $extrafield;
my $fnum;
+my $dnum;
sub BEGIN {
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.
'/language.tab');
@@ -46,6 +48,7 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
$fnum=0;
+ $dnum=0;
my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $domain = $r->dir_config('lonDefDomain');
my $role = $r->dir_config('lonRole');
@@ -56,14 +59,28 @@ sub handler {
my $tabdir = $r->dir_config('lonTabDir');
my $fileclr='#ffffe6';
+ my $line;
+ my (@attrchk,@openpath);
+ my $uri=$r->uri;
+
# -------------------------------------- see if called from an interactive mode
+# foreach my $key (sort(keys(%ENV))) {
+# $r->print("$key is $ENV{$key} ");
+# }
+# $r->print("END ENV");
map {
my ($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if ($name eq 'catalogmode') {
$ENV{'form.'.$name}=$value;
- }
+ }
+ if ($name eq 'launch') {
+ $ENV{'form.'.$name}=$value;
+ }
+ if ($name eq 'acts') {
+ $ENV{'form.'.$name}=$value;
+ }
} (split(/&/,$ENV{'QUERY_STRING'}));
$hidden=''; my $closebutton='';
@@ -71,38 +88,61 @@ sub handler {
my $colspan='';
$extrafield='';
- if ($ENV{'form.catalogmode'} eq 'interactive') {
- $extrafield='