--- loncom/interface/lonindexer.pm 2001/05/29 12:24:17 1.6
+++ loncom/interface/lonindexer.pm 2001/05/31 14:29:03 1.7
@@ -8,7 +8,8 @@
# 05/9-05/19/2001 H. K. Ng
# 05/21/2001 H. K. Ng
# 05/23/2001 H. K. Ng
-#
+# 05/31/2001 Scott Harrison
+
package Apache::lonindexer;
use strict;
@@ -20,6 +21,8 @@ use GDBM_File;
my %hash;
my %dirs;
my %language;
+my $hidden;
+my $extrafield;
sub BEGIN {
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab');
@@ -44,6 +47,67 @@ sub handler {
my $lonhost = $r->dir_config('lonHostID');
my $tabdir = $r->dir_config('lonTabDir');
+ my $iconpath='/res/adm/pages/indexericons/';
+ my $fileclr='#ffffe6';
+# -------------------------------------- see if called from an interactive mode
+ 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;
+ }
+ } (split(/&/,$ENV{'QUERY_STRING'}));
+
+ $hidden=''; my $closebutton='';
+ my $groupimportbutton='';
+ my $colspan='';
+ if ($ENV{'form.catalogmode'} eq 'interactive') {
+ $extrafield=''.
+ ' | ';
+ $colspan=" colspan='2' ";
+ $hidden=<
+END
+ $closebutton=<
+END
+ }
+ elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
+ $colspan=" colspan='2' ";
+ $hidden=<
+END
+ $closebutton=<
+END
+ $groupimportbutton=<
+END
+ }
+
+ my $catalogmodefunctions='';
+ if ($ENV{'form.catalogmode'} eq 'interactive' or
+ $ENV{'form.catalogmode'} eq 'groupimport') {
+ $catalogmodefunctions=<print(<
@@ -51,6 +115,7 @@ sub handler {
The LearningOnline Network With CAPA Directory Browser