--- loncom/interface/lonindexer.pm 2001/05/31 14:29:03 1.7
+++ loncom/interface/lonindexer.pm 2001/06/26 21:11:18 1.12
@@ -9,6 +9,10 @@
# 05/21/2001 H. K. Ng
# 05/23/2001 H. K. Ng
# 05/31/2001 Scott Harrison
+# 06/01/2001 Scott Harrison
+# 06/02/2001 Scott Harrison
+# 06/15/2001 Scott Harrison
+# 06/26/2001 H. K. Ng
package Apache::lonindexer;
@@ -23,7 +27,7 @@ my %dirs;
my %language;
my $hidden;
my $extrafield;
-
+my $fnum;
sub BEGIN {
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab');
map {
@@ -37,8 +41,8 @@ sub handler {
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
-
- my $iconpath= $r->dir_config('lonIconsURL');
+ $fnum=0;
+ my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $domain = $r->dir_config('lonDefDomain');
my $role = $r->dir_config('lonRole');
my $loadlim = $r->dir_config('lonLoadLim');
@@ -47,7 +51,6 @@ 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 {
@@ -75,6 +78,9 @@ END
END
}
elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
+ $extrafield='
'.
+ '
';
$colspan=" colspan='2' ";
$hidden=<
@@ -83,7 +89,7 @@ END
END
$groupimportbutton=<
+
END
}
@@ -94,6 +100,49 @@ END
function select_data(title,url) {
changeTitle(title);
changeURL(url);
+ self.close();
+}
+function save_group() {
+ for (var num=0; numuri;
- $r->print("
The LearningOnline With CAPA Network Directory Browser
\n");
+ $r->print('
The LearningOnline With CAPA Network Directory Browser
'."\n");
- my $diropen = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
+ my $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db";
- if (tie(%hash,'GDBM_File',$diropen,&GDBM_WRCREAT,0640)) {
+ if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) {
if ($ENV{'form.attrs'} ne "") {
for (my $i=0; $i<=5; $i++) {
@@ -207,11 +256,25 @@ END
$dirs{$uri} = 'open';
}
}
-
- my $toplevel = "/res/";
+
+ my $bredir = $ENV{'form.dirPointer'};
+ my $toplevel;
+ $uri = $uri.'/' if $uri !~ /.*\/$/;
+ if ($uri eq "/res/" or $bredir ne "on") {
+ $hash{'top.level'} = $uri;
+ $toplevel = $uri;
+ } elsif ($bredir eq "on") {
+ if ($hash{'top.level'} eq "/res/") {
+ $toplevel = "/res/";
+ } else {
+ $toplevel = $uri;
+ }
+ }
my $indent = 0;
&scanDir ($r,$toplevel,$indent);
-
+
+ $r->print("");
$r->print("");
$r->print("");
$r->print("