version 1.7, 2001/05/31 14:29:03
|
version 1.11, 2001/06/21 20:57:12
|
Line 9
|
Line 9
|
# 05/21/2001 H. K. Ng |
# 05/21/2001 H. K. Ng |
# 05/23/2001 H. K. Ng |
# 05/23/2001 H. K. Ng |
# 05/31/2001 Scott Harrison |
# 05/31/2001 Scott Harrison |
|
# 06/01/2001 Scott Harrison |
|
# 06/02/2001 Scott Harrison |
|
# 06/15/2001 Scott Harrison |
|
|
package Apache::lonindexer; |
package Apache::lonindexer; |
|
|
Line 23 my %dirs;
|
Line 26 my %dirs;
|
my %language; |
my %language; |
my $hidden; |
my $hidden; |
my $extrafield; |
my $extrafield; |
|
my $fnum; |
sub BEGIN { |
sub BEGIN { |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); |
my $fh=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.'/language.tab'); |
map { |
map { |
Line 37 sub handler {
|
Line 40 sub handler {
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
$fnum=0; |
my $iconpath= $r->dir_config('lonIconsURL'); |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
my $role = $r->dir_config('lonRole'); |
my $role = $r->dir_config('lonRole'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
my $loadlim = $r->dir_config('lonLoadLim'); |
Line 47 sub handler {
|
Line 50 sub handler {
|
my $lonhost = $r->dir_config('lonHostID'); |
my $lonhost = $r->dir_config('lonHostID'); |
my $tabdir = $r->dir_config('lonTabDir'); |
my $tabdir = $r->dir_config('lonTabDir'); |
|
|
my $iconpath='/res/adm/pages/indexericons/'; |
|
my $fileclr='#ffffe6'; |
my $fileclr='#ffffe6'; |
# -------------------------------------- see if called from an interactive mode |
# -------------------------------------- see if called from an interactive mode |
map { |
map { |
Line 75 END
|
Line 77 END
|
END |
END |
} |
} |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'. |
|
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'. |
|
' border="0"></td>'; |
$colspan=" colspan='2' "; |
$colspan=" colspan='2' "; |
$hidden=<<END; |
$hidden=<<END; |
<input type='hidden' name='catalogmode' value='groupimport'> |
<input type='hidden' name='catalogmode' value='groupimport'> |
Line 83 END
|
Line 88 END
|
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
END |
END |
$groupimportbutton=<<END; |
$groupimportbutton=<<END; |
<input type="button" name="groupimport" value='GROUP IMPORT' onClick="alert('not implemented')"> |
<input type="button" name="groupimport" value='GROUP IMPORT' onClick="javascript:select_group()"> |
END |
END |
} |
} |
|
|
Line 94 END
|
Line 99 END
|
function select_data(title,url) { |
function select_data(title,url) { |
changeTitle(title); |
changeTitle(title); |
changeURL(url); |
changeURL(url); |
|
self.close(); |
|
} |
|
function save_group() { |
|
for (var num=0; num<document.forms.fnum.fnum.value; num++) { |
|
if (eval("document.forms.form"+num+".filelink.checked")) { |
|
alert(eval("document.forms.form"+num+".title.value")+ |
|
eval("document.forms.form"+num+".filelink.value")); |
|
} |
|
} |
|
} |
|
function select_group() { |
|
var linkflag=false; |
|
for (var num=0; num<document.forms.fnum.fnum.value; num++) { |
|
if (eval("document.forms.form"+num+".filelink.checked")) { |
|
// alert(eval("document.forms.form"+num+".title.value")+ |
|
// eval("document.forms.form"+num+".filelink.value")); |
|
insertRowInLastRow(); |
|
placeResourceInLastRow( |
|
eval("document.forms.form"+num+".title.value"), |
|
eval("document.forms.form"+num+".filelink.value"), |
|
linkflag |
|
); |
|
linkflag=true; |
|
} |
|
} |
|
opener.editmode=0; |
|
opener.notclear=0; |
|
opener.linkmode=0; |
|
opener.infoclear(); |
|
opener.draw(); |
|
} |
|
function insertRowInLastRow() { |
|
opener.insertrow(opener.maxrow); |
|
opener.addobj(opener.maxrow,'e&2'); |
|
} |
|
function placeResourceInLastRow (title,url,linkflag) { |
|
opener.newresource(opener.maxrow,2,opener.escape(title),opener.escape(url),'false','normal'); |
|
opener.save(); |
|
opener.mostrecent=opener.obj.length-1; |
|
if (linkflag) { |
|
opener.joinres(opener.linkmode,opener.mostrecent,0); |
|
} |
|
opener.linkmode=opener.mostrecent; |
} |
} |
function changeTitle(val) { |
function changeTitle(val) { |
if (opener.inf.document.forms.resinfo.elements.t) { |
if (opener.inf.document.forms.resinfo.elements.t) { |
Line 135 ENDHEADER
|
Line 183 ENDHEADER
|
|
|
$r->print("<h2><font color=\"\#888888\">The LearningOnline With CAPA Network Directory Browser</font></h2>\n"); |
$r->print("<h2><font color=\"\#888888\">The LearningOnline With CAPA Network Directory Browser</font></h2>\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 "") { |
if ($ENV{'form.attrs'} ne "") { |
for (my $i=0; $i<=5; $i++) { |
for (my $i=0; $i<=5; $i++) { |
Line 208 END
|
Line 256 END
|
} |
} |
} |
} |
|
|
my $toplevel = "/res/"; |
# my $toplevel = "/res/"; |
|
my $toplevel = $uri; |
my $indent = 0; |
my $indent = 0; |
&scanDir ($r,$toplevel,$indent); |
&scanDir ($r,$toplevel,$indent); |
|
|
|
$r->print("<form name='fnum'>"); |
|
$r->print("<input type='hidden' name='fnum' value='$fnum'></form>"); |
$r->print("</table>"); |
$r->print("</table>"); |
$r->print("</td></tr></table>"); |
$r->print("</td></tr></table>"); |
$r->print("</body></html>\n"); |
$r->print("</body></html>\n"); |
Line 242 sub scanDir {
|
Line 293 sub scanDir {
|
$compuri = join('',$startdir,$strip,"/"); # user, dir & file having name only, i.e., w/o path |
$compuri = join('',$startdir,$strip,"/"); # user, dir & file having name only, i.e., w/o path |
$curdir = $startdir; |
$curdir = $startdir; |
} |
} |
my $diropen = 0; |
my $diropen = "closed"; |
if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/)) { |
if (($dirptr&$testdir) or ($dom =~ /^(domain|user)$/)) { |
while (my ($key,$val)= each %dupdirs) { |
while (my ($key,$val)= each %dupdirs) { |
if ($key eq $compuri and $val eq "open") { |
if ($key eq $compuri and $val eq "open") { |
$diropen = 1; |
$diropen = "opened"; |
delete $dupdirs{key},$dirs{$key}; |
delete $dupdirs{key},$dirs{$key}; |
} |
} |
} |
} |
} |
} |
&display_line($r,$diropen,$line,$indent,$curdir,@list); |
&display_line($r,$diropen,$line,$indent,$curdir,@list); |
&scanDir ($r,$compuri,$indent) if $diropen == 1; |
&scanDir ($r,$compuri,$indent) if $diropen eq "opened"; |
} |
} |
$indent--; |
$indent--; |
} |
} |
Line 324 sub display_line{
|
Line 375 sub display_line{
|
my (@pathfn, $fndir, $fnptr); |
my (@pathfn, $fndir, $fnptr); |
my $dirptr=16384; |
my $dirptr=16384; |
my $fileclr="#ffffe6"; |
my $fileclr="#ffffe6"; |
my $iconpath="/res/adm/pages/indexericons/"; |
my $iconpath= $r->dir_config('lonIconsURL') . "/"; |
|
|
my @filecom = split (/\&/,$line); |
my @filecom = split (/\&/,$line); |
my @pathcom = split (/\//,$filecom[0]); |
my @pathcom = split (/\//,$filecom[0]); |
my $listname = $pathcom[scalar(@pathcom)-1]; |
my $listname = $pathcom[scalar(@pathcom)-1]; |
my $fnptr = $filecom[3]&$dirptr; |
my $fnptr = $filecom[3]&$dirptr; |
my $msg = 'View '.$filecom[0].' resources'; |
my $msg = 'View '.$filecom[0].' resources'; |
$msg = 'Close '.$filecom[0].' directory' if $diropen == 1; |
$msg = 'Close '.$filecom[0].' directory' if $diropen eq "opened"; |
|
|
my $tabtag="</td>"; |
my $tabtag="</td>"; |
my $i=0; |
my $i=0; |
|
|
while ($i<=5) { |
while ($i<=5) { |
# my $key="form.attr".$i; |
|
# $tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,"> </td>") if $ENV{$key} == 1; |
|
$tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,"> </td>") if $hash{'display_attrs_'.$i} == 1; |
$tabtag=join('',$tabtag,"<td bgcolor=",$fileclr,"> </td>") if $hash{'display_attrs_'.$i} == 1; |
$i++; |
$i++; |
} |
} |
Line 348 sub display_line{
|
Line 397 sub display_line{
|
&begin_form ($r,$filecom[0].'/'); |
&begin_form ($r,$filecom[0].'/'); |
my $anchor = $filecom[0].'/'; |
my $anchor = $filecom[0].'/'; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print ("<a name=\"".$anchor."\">\n<input src=\"".$iconpath."comp.blue.gif\""); |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.'server.gif"'); |
$r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n"); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print("Domain - $listname $tabtag</tr></form>\n"); |
$r->print("Domain - $listname $tabtag</tr></form>\n"); |
return OK; |
return OK; |
} |
} |
Line 360 sub display_line{
|
Line 409 sub display_line{
|
&begin_form ($r,$curdir); |
&begin_form ($r,$curdir); |
my $anchor = $curdir; |
my $anchor = $curdir; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
# $r->print ("<a name=\"$anchor\">\n<img src=",$iconpath,"white_space_20_22.gif border=0>\n"); |
$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.'whitespace1.gif" border=0>'."\n"); |
$r->print ("<a name=\"$anchor\">\n<img src=",$iconpath,"whitespace1.gif border=0>\n"); |
$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); |
$r->print ("<input src=\"$iconpath"); |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print ("folder_pointer_closed.gif\"") if $diropen == 0; |
|
$r->print ("folder_pointer_opened.gif\"") if $diropen == 1; |
|
$r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n"); |
|
$r->print ("<img src=",$iconpath,"quill.gif border=0>\n"); |
$r->print ("<img src=",$iconpath,"quill.gif border=0>\n"); |
$r->print ("$listname $tabtag</tr></form>\n"); |
$r->print ("$listname $tabtag</tr></form>\n"); |
return OK; |
return OK; |
Line 375 sub display_line{
|
Line 421 sub display_line{
|
my @file_ext = split (/\./,$listname); |
my @file_ext = split (/\./,$listname); |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
my $curfext = $file_ext[scalar(@file_ext)-1]; |
my $filelink = $startdir.$filecom[0]; |
my $filelink = $startdir.$filecom[0]; |
$r->print("<tr><td nowrap bgcolor=$fileclr>"); |
$r->print("<tr><td nowrap valign='bottom' bgcolor=$fileclr>"); |
my $metafile = grep /^$filecom[0]\.meta\&/, @list; |
my $metafile = grep /^$filecom[0]\.meta\&/, @list; |
my $title; |
my $title; |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
$title=$listname; |
$title=$listname; |
$title = &Apache::lonnet::metadata($filelink,'title') if ($metafile == 1); |
$title = &Apache::lonnet::metadata($filelink,'title') |
|
if ($metafile == 1); |
$title=$listname unless $title; |
$title=$listname unless $title; |
$r->print("<a href='javascript:select_data(\"", |
$r->print("<a href='javascript:select_data(\"", |
$title,'","',$filelink,"\")'>"); |
$title,'","',$filelink,"\")'>"); |
$r->print("<img src='",$iconpath,"select.gif' border=0></a>\n"); |
$r->print("<img src='",$iconpath,"select.gif' border=0></a>\n"); |
$r->print("</td><td nowrap bgcolor=$fileclr>"); |
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
|
} |
|
elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
|
$title=$listname; |
|
$title = &Apache::lonnet::metadata($filelink,'title') |
|
if ($metafile == 1); |
|
$title=$listname unless $title; |
|
$r->print("<form name='form$fnum'>\n"); |
|
$r->print("<input type='checkbox' name='filelink"."' ". |
|
"value='$filelink'>\n"); |
|
$r->print("<input type='hidden' name='title"."' ". |
|
"value='$title'>\n"); |
|
$r->print("</form>\n"); |
|
$r->print("</td><td valign='bottom' nowrap bgcolor=$fileclr>"); |
|
$fnum++; |
} |
} |
|
|
if ($indent < 11) { |
if ($indent < 11) { |
$r->print("<img src=",$iconpath,"whitespace",$indent,".gif border=0>\n"); |
$r->print("<img src=",$iconpath,"whitespace",$indent,".gif border=0>\n"); |
} else { |
} elsif ($indent >0) { |
my $ten = int($indent/10.); |
my $ten = int($indent/10.); |
my $rem = $indent%10.0; |
my $rem = $indent%10.0; |
my $count = 0; |
my $count = 0; |
Line 407 sub display_line{
|
Line 468 sub display_line{
|
$r->print (" (<a href=\"javascript:openWindow('".$filelink.".meta', 'metadatafile', '400', '450', 'no', 'yes')\"; TARGET=_self>metadata</a>) ") if ($metafile == 1); |
$r->print (" (<a href=\"javascript:openWindow('".$filelink.".meta', 'metadatafile', '400', '450', 'no', 'yes')\"; TARGET=_self>metadata</a>) ") if ($metafile == 1); |
|
|
$r->print("</td>\n"); |
$r->print("</td>\n"); |
# $r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") if $ENV{'form.attr0'} == 1; |
$r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") |
$r->print("<td bgcolor=$fileclr align=right valign=bottom> ",$filecom[8]," </td>\n") if $hash{'display_attrs_0'} == 1; |
if $hash{'display_attrs_0'} == 1; |
$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[9]))." </td>\n") if $hash{'display_attrs_1'} == 1; |
$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[9]))." </td>\n") |
$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[10]))." </td>\n") if $hash{'display_attrs_2'} == 1; |
if $hash{'display_attrs_1'} == 1; |
|
$r->print("<td bgcolor=$fileclr valign=bottom> ".(localtime($filecom[10]))." </td>\n") |
|
if $hash{'display_attrs_2'} == 1; |
|
|
if ($hash{'display_attrs_3'} == 1) { |
if ($hash{'display_attrs_3'} == 1) { |
my $author = &Apache::lonnet::metadata($filelink,'author') if ($metafile == 1); |
my $author = &Apache::lonnet::metadata($filelink,'author') if ($metafile == 1); |
Line 440 sub display_line{
|
Line 503 sub display_line{
|
$r->print("<tr>$extrafield<td bgcolor=$fileclr valign=bottom>"); |
$r->print("<tr>$extrafield<td bgcolor=$fileclr valign=bottom>"); |
&begin_form ($r,$curdir); |
&begin_form ($r,$curdir); |
my $indentm1 = $indent-1; |
my $indentm1 = $indent-1; |
if ($indentm1 < 11) { |
if ($indentm1 < 11 and $indentm1 > 0) { |
$r->print("<img src=",$iconpath,"whitespace",$indentm1,".gif border=0>\n"); |
$r->print("<img src=",$iconpath,"whitespace",$indentm1,".gif border=0>\n"); |
} else { |
} else { |
my $ten = int($indentm1/10.); |
my $ten = int($indentm1/10.); |
Line 452 sub display_line{
|
Line 515 sub display_line{
|
} |
} |
$r->print("<img src=",$iconpath,"whitespace",$rem,".gif border=0>\n") if $rem > 0; |
$r->print("<img src=",$iconpath,"whitespace",$rem,".gif border=0>\n") if $rem > 0; |
} |
} |
$r->print ("<a name=\"$anchor\">\n<input src=\"$iconpath"); |
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.'folder_pointer_'.$diropen.'.gif"'); |
$r->print ("folder_pointer_closed.gif\"") if $diropen == 0; |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'."\n"); |
$r->print ("folder_pointer_opened.gif\"") if $diropen == 1; |
$r->print("<img src=",$iconpath,"folder_$diropen.gif border=0>\n"); |
$r->print (" name=\"$msg\" height=\"22\" type=\"image\" border=\"0\">\n"); |
|
$r->print("<img src=",$iconpath,"folder_closed.gif border=0>\n") if $diropen == 0; |
|
$r->print("<img src=",$iconpath,"folder_opened.gif border=0>\n") if $diropen == 1; |
|
$r->print("$listname $tabtag</tr></form>\n"); |
$r->print("$listname $tabtag</tr></form>\n"); |
} |
} |
|
|
Line 468 sub begin_form {
|
Line 528 sub begin_form {
|
my ($r,$uri) = @_; |
my ($r,$uri) = @_; |
my $anchor = $uri; |
my $anchor = $uri; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print ("<form method=\"post\" name=\"dirpath\" action=\"/res/\#$anchor\" enctype=\"application/x-www-form-urlencoded\">\n"); |
$r->print ('<form method="post" name="dirpath" action="/res/#'.$anchor.'" enctype="application/x-www-form-urlencoded">'."\n"); |
$r->print ("$hidden<input type=hidden name=openuri value=\"$uri\">\n"); |
$r->print ("$hidden<input type=hidden name=openuri value=\"$uri\">\n"); |
|
|
# for (my $i=0; $i<=5; $i++) { |
|
# $r->print ("<input type=hidden name=attr$i value=\"1\">\n") if $ENV{'form.attr'.$i} == 1; |
|
# } |
|
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
|