--- loncom/interface/lonindexer.pm 2001/05/31 14:29:03 1.7
+++ loncom/interface/lonindexer.pm 2001/07/08 18:31:10 1.13
@@ -9,6 +9,11 @@
# 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
+# 07/08/2001 H. K. Ng
package Apache::lonindexer;
@@ -23,7 +28,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 +42,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 +52,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 +79,9 @@ END
END
}
elsif ($ENV{'form.catalogmode'} eq 'groupimport') {
+ $extrafield='
'.
+ '
';
$colspan=" colspan='2' ";
$hidden=<
@@ -83,7 +90,7 @@ END
END
$groupimportbutton=<
+
END
}
@@ -94,6 +101,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++) {
@@ -164,6 +214,7 @@ ENDHEADER
Keywords
Language
+
$hidden
@@ -207,11 +258,30 @@ END
$dirs{$uri} = 'open';
}
}
-
- my $toplevel = "/res/";
+
+ my $bredir = $ENV{'form.dirPointer'};
+ my $toplevel;
my $indent = 0;
- &scanDir ($r,$toplevel,$indent);
+ $uri = $uri.'/' if $uri !~ /.*\/$/;
+ if ($bredir ne "on") {
+ $hash{'top.level'} = $uri;
+ $toplevel = $uri;
+ } else {
+ $toplevel = $hash{'top.level'};
+ }
+ if ($toplevel ne "/res/"){
+ my (@uri_com) = split(/\//,$uri);
+ pop @uri_com;
+ my $upone = join('/',@uri_com);
+ my @list = qw (0);
+ &display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list);
+ $indent = 1;
+ }
+ &scanDir ($r,$toplevel,$indent);
+
+ $r->print("");
$r->print("");
$r->print("");
$r->print("