Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.102 and 1.148

version 1.102, 2004/05/07 15:53:05	version 1.148, 2006/06/23 07:32:02
Line 44 package Apache::lonindexer;	Line 44 package Apache::lonindexer;

# ------------------------------------------------- modules used by this module	# ------------------------------------------------- modules used by this module
use strict;	use strict;
use Apache::lonnet();	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
use Apache::lonsequence();	use Apache::lonsequence();
Line 52 use Apache::Constants qw(:common);	Line 52 use Apache::Constants qw(:common);
use Apache::lonmeta;	use Apache::lonmeta;
use Apache::File;	use Apache::File;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonsource();
use GDBM_File;	use GDBM_File;

# ---------------------------------------- variables used throughout the module	# ---------------------------------------- variables used throughout the module
my %hash; # global user-specific gdbm file	my %hash; # global user-specific gdbm file
my %dirs; # keys are directories, values are the open/close status	my %dirs; # keys are directories, values are the open/close status
my %language; # has the reference information present in language.tab	my %language; # has the reference information present in language.tab
	my %dynhash; # hash of hashes for dynamic metadata
	my %dynread; # hash of directories already read for dynamic metadata
	my %fieldnames; # Metadata fieldnames
# ----- Values which are set by the handler subroutine and are accessible to	# ----- Values which are set by the handler subroutine and are accessible to
# ----- other methods.	# ----- other methods.
my $extrafield; # default extra table cell	my $extrafield; # default extra table cell
Line 70 my @Only = ();	Line 73 my @Only = ();
my @Omit = ();	my @Omit = ();




# ----------------------------- Handling routine called via Apache and mod_perl	# ----------------------------- Handling routine called via Apache and mod_perl
sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 85 sub handler {	Line 90 sub handler {
# these global to this package? It is just so wrong....)	# these global to this package? It is just so wrong....)
undef (@Only);	undef (@Only);
undef (@Omit);	undef (@Omit);
	%fieldnames=&Apache::lonmeta::fieldnames();

# ------------------------------------- read in machine configuration variables	# ------------------------------------- read in machine configuration variables
my $iconpath= $r->dir_config('lonIconsURL') . "/";	my $iconpath= $r->dir_config('lonIconsURL') . "/";
Line 110 sub handler {	Line 116 sub handler {
my $closebutton='';	my $closebutton='';
my $groupimportbutton='';	my $groupimportbutton='';
my $colspan='';	my $colspan='';

$extrafield='';	$extrafield='';
my $diropendb =	my $diropendb =
"/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_indexer.db";	"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db";
%hash = ();	%hash = ();
{	{
my %dbfile;	my %dbfile;
Line 125 sub handler {	Line 131 sub handler {
}	}
}	}
{	{
if ($ENV{'form.launch'} eq '1') {	if ($env{'form.launch'} eq '1') {
&start_fresh_session();	&start_fresh_session();
}	}
	#Hijack lonindexer to verify a title and be close down.
	if ($env{'form.launch'} eq '2') {
	&Apache::loncommon::content_type($r,'text/html');
	my $extra='';
	if (defined($env{'form.titleelement'}) &&
	$env{'form.titleelement'} ne '') {
	my $verify_title = &Apache::lonnet::gettitle($env{'form.acts'});
	# &Apache::lonnet::logthis("Hrrm $env{'form.acts'} -- $verify_title");
	$verify_title=~s/'/\\'/g;
	$extra='window.opener.document.forms["'.$env{'form.form'}.'"].elements["'.$env{'form.titleelement'}.'"].value=\''.$verify_title.'\';';
	}
	my $js = <<ENDSUBM;
	<script type="text/javascript">
	function load() {
	window.opener.document.forms["$env{'form.form'}"]
	.elements["$env{'form.element'}"]
	.value='$env{'form.acts'}';
	$extra
	window.close();
	}
	</script>
	ENDSUBM
	$r->print(&Apache::loncommon::start_page(undef,$js,
	{'only_body' =>1,
	'add_entries' =>
	{'onload' => "load();"},}
	).
	&Apache::loncommon::end_page());
	return OK;
	}

# -------------------- refresh environment with user database values (in %hash)	# -------------------- refresh environment with user database values (in %hash)
&setvalues(\%hash,'form.catalogmode',\%ENV,'form.catalogmode' );	&setvalues(\%hash,'form.catalogmode',\%env,'form.catalogmode' );

# --------------------- define extra fields and buttons in case of special mode	# --------------------- define extra fields and buttons in case of special mode
if ($ENV{'form.catalogmode'} eq 'interactive') {	if ($env{'form.catalogmode'} eq 'interactive') {
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.	$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'.	'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'.
' border="0" /></td>';	' border="0" /></td>';
$colspan=" colspan='2' ";	$colspan=" colspan='2' ";
my $cl=&mt('Close');	my $cl=&mt('Close');
$closebutton=<<END;	$closebutton=<<END;
<input type="button" name="close" value='$cl' onClick="self.close()">	<input type="button" name="close" value='$cl' onClick="self.close()" />
END	END
}	}
elsif ($ENV{'form.catalogmode'} eq 'groupimport') {	elsif ($env{'form.catalogmode'} eq 'import') {
$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.	$extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'.	'<a name="$anchor"><img src="'.$iconpath.'whitespace1.gif"'.
' border="0" /></td>';	' border="0" /></td>';
$colspan=" colspan='2' ";	$colspan=" colspan='2' ";
my $cl=&mt('Close');	my $cl=&mt('Close');
my $gi=&mt('Group Import');	my $gi=&mt('Import');
$closebutton=<<END;	$closebutton=<<END;
<input type="button" name="close" value='$cl' onClick="self.close()">	<input type="button" name="close" value='$cl' onClick="self.close()" />
END	END
$groupimportbutton=<<END;	$groupimportbutton=<<END;
<input type="button" name="groupimport" value='$gi'	<input type="button" name="groupimport" value='$gi'
onClick="javascript:select_group()">	onClick="javascript:select_group()" />
END	END
}	}
# Additions made by Matthew to make the browser a little easier to deal	# Additions made by Matthew to make the browser a little easier to deal
Line 166 END	Line 203 END
# $element is the name of the element in $formname which receives	# $element is the name of the element in $formname which receives
# the URL.	# the URL.
#&Apache::lonxml::debug('Checking mode, form, element');	#&Apache::lonxml::debug('Checking mode, form, element');
&setvalues(\%hash,'form.mode' ,\%ENV,'form.mode' );	&setvalues(\%hash,'form.mode' ,\%env,'form.mode' );
&setvalues(\%hash,'form.form' ,\%ENV,'form.form' );	&setvalues(\%hash,'form.form' ,\%env,'form.form' );
&setvalues(\%hash,'form.element' ,\%ENV,'form.element');	&setvalues(\%hash,'form.element' ,\%env,'form.element');
&setvalues(\%hash,'form.titleelement',\%ENV,'form.titleelement');	&setvalues(\%hash,'form.titleelement',\%env,'form.titleelement');
&setvalues(\%hash,'form.only' ,\%ENV,'form.only' );	&setvalues(\%hash,'form.only' ,\%env,'form.only' );
&setvalues(\%hash,'form.omit' ,\%ENV,'form.omit' );	&setvalues(\%hash,'form.omit' ,\%env,'form.omit' );

# Deal with 'omit' and 'only'	# Deal with 'omit' and 'only'
if (exists $ENV{'form.omit'}) {	if (exists $env{'form.omit'}) {
@Omit = split(',',$ENV{'form.omit'});	@Omit = split(',',$env{'form.omit'});
}	}
if (exists $ENV{'form.only'}) {	if (exists $env{'form.only'}) {
@Only = split(',',$ENV{'form.only'});	@Only = split(',',$env{'form.only'});
}	}

my $mode = $ENV{'form.mode'};	my $mode = $env{'form.mode'};
my ($form,$element,$titleelement);	my ($form,$element,$titleelement);
if ($mode eq 'edit' \|\| $mode eq 'parmset') {	if ($mode eq 'edit' \|\| $mode eq 'parmset') {
$form = $ENV{'form.form'};	$form = $env{'form.form'};
$element = $ENV{'form.element'};	$element = $env{'form.element'};
$titleelement = $ENV{'form.titleelement'};	$titleelement = $env{'form.titleelement'};
}	}
#&Apache::lonxml::debug("mode=$mode form=$form element=$element titleelement=$titleelement");	#&Apache::lonxml::debug("mode=$mode form=$form element=$element titleelement=$titleelement");
# ------ set catalogmodefunctions to have extra needed javascript functionality	# ------ set catalogmodefunctions to have extra needed javascript functionality
my $catalogmodefunctions='';	my $catalogmodefunctions='';
if ($ENV{'form.catalogmode'} eq 'interactive' or	if ($env{'form.catalogmode'} eq 'interactive' or
$ENV{'form.catalogmode'} eq 'groupimport') {	$env{'form.catalogmode'} eq 'import') {
# The if statement below sets us up to use the old version	# The if statement below sets us up to use the old version
# by default (ie. if $mode is undefined). This is the easy	# by default (ie. if $mode is undefined). This is the easy
# way out. Hopefully in the future I'll find a way to get	# way out. Hopefully in the future I'll find a way to get
Line 203 END	Line 240 END
#	#
#	#
if (!defined($mode) \|\| ($mode ne 'edit' && $mode ne 'parmset')) {	if (!defined($mode) \|\| ($mode ne 'edit' && $mode ne 'parmset')) {
my $location = "/adm/groupsort?catalogmode=groupimport&";	my $location = "/adm/groupsort?catalogmode=import&";
$location .= "mode=".$mode."&";	$location .= "mode=".$mode."&";
$location .= "acts=";	$location .= "acts=";
$catalogmodefunctions=<<"END";	$catalogmodefunctions=<<"END";
function select_data(title,url) {	function select_data(url) {
changeTitle(title);
changeURL(url);	changeURL(url);
self.close();	self.close();
}	}
function select_group() {	function select_group() {
window.location="$location"+document.forms.fileattr.acts.value;	window.location="$location"+document.forms.fileattr.acts.value;
}	}
function changeTitle(val) {
if (opener.inf) {
if (opener.inf.document.forms.resinfo.elements.t) {
opener.inf.document.forms.resinfo.elements.t.value=val;
}
}
}
function changeURL(val) {	function changeURL(val) {
if (opener.inf) {	if (opener.inf) {
if (opener.inf.document.forms.resinfo.elements.u) {	if (opener.inf.document.forms.resinfo.elements.u) {
Line 235 END	Line 264 END
$location .= "form=$form&element=$element&mode=edit&acts=";	$location .= "form=$form&element=$element&mode=edit&acts=";
$catalogmodefunctions=<<END;	$catalogmodefunctions=<<END;
// mode = $mode	// mode = $mode
function select_data(title,url) {	function select_data(url) {
changeURL(url);	var location = "/res/?launch=2&form=$form&element=$element&titleelement=$titleelement&acts=" + url;
changeTitle(title);	window.location=location;
self.close();
}	}

function select_group() {	function select_group() {
window.location="$location"+document.forms.fileattr.acts.value;	window.location="$location"+document.forms.fileattr.acts.value;
}	}
Line 271 END	Line 298 END
$location .= "form=$form&element=$element&mode=parmset&acts=";	$location .= "form=$form&element=$element&mode=parmset&acts=";
$catalogmodefunctions=<<END;	$catalogmodefunctions=<<END;
// mode = $mode	// mode = $mode
function select_data(title,url) {	function select_data(url) {
changeURL(url);	changeURL(url);
self.close();	self.close();
}	}
Line 300 function rep_dirpath(suffix,val) {	Line 327 function rep_dirpath(suffix,val) {
eval("document.forms.dirpath"+suffix+".acts.value=val");	eval("document.forms.dirpath"+suffix+".acts.value=val");
}	}
END	END
if ($ENV{'form.catalogmode'} eq 'groupimport') {	if ($env{'form.catalogmode'} eq 'import') {
$catalogmodefunctions.=<<END;	$catalogmodefunctions.=<<END;
function queue(val) {	function queue(val) {
if (eval("document.forms."+val+".filelink.checked")) {	if (eval("document.forms."+val+".filelink.checked")) {
Line 318 END	Line 345 END
}	}

# ---------------------------------------------------------------- Print Header	# ---------------------------------------------------------------- Print Header
$r->print(<<ENDHEADER);	my $js = <<"ENDHEADER";
<html>
<head>
<title>The LearningOnline Network With CAPA Directory Browser</title>

<script type="text/javascript">	<script type="text/javascript">
$catalogmodefunctions	$catalogmodefunctions
function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) {	function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) {
Line 340 function gothere(val) {	Line 363 function gothere(val) {
window.location=val+'?acts='+document.forms.fileattr.acts.value;	window.location=val+'?acts='+document.forms.fileattr.acts.value;
}	}
</script>	</script>

</head>
ENDHEADER	ENDHEADER
my ($headerdom)=($uri=~/^\/res\/(\w+)\//);
$r->print(&Apache::loncommon::bodytag('Browse Resources',undef,undef,undef,	my ($headerdom)=($uri=~/^\/res\/(\w+)\//);
$headerdom));	$r->print(&Apache::loncommon::start_page('Browse Resources',$js,
	{'domain' => $headerdom,}));
# - Evaluate actions from previous page (both cumulatively and chronologically)	# - Evaluate actions from previous page (both cumulatively and chronologically)
if ($ENV{'form.catalogmode'} eq 'groupimport') {	if ($env{'form.catalogmode'} eq 'import') {
my $acts=$ENV{'form.acts'};	my $acts=$env{'form.acts'};
my @Acts=split(/b/,$acts);	my @Acts=split(/b/,$acts);
my %ahash;	my %ahash;
my %achash;	my %achash;
Line 389 $r->print(&Apache::loncommon::bodytag('B	Line 411 $r->print(&Apache::loncommon::bodytag('B
}	}

# ---------------------------------- get state of file attributes to be showing	# ---------------------------------- get state of file attributes to be showing
if ($ENV{'form.attrs'}) {	if ($env{'form.attrs'}) {
for (my $i=0; $i<=9; $i++) {	for (my $i=0; $i<=11; $i++) {
delete $hash{'display_attrs_'.$i};	delete $hash{'display_attrs_'.$i};
if ($ENV{'form.attr'.$i} == 1) {	if ($env{'form.attr'.$i} == 1) {
$attrchk[$i] = 'checked';	$attrchk[$i] = 'checked';
$hash{'display_attrs_'.$i} = 1;	$hash{'display_attrs_'.$i} = 1;
}	}
}	}
} else {	} else {
for (my $i=0; $i<=9; $i++) {	for (my $i=0; $i<=11; $i++) {
$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;	$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;
}	}
}	}
Line 415 $r->print(&Apache::loncommon::bodytag('B	Line 437 $r->print(&Apache::loncommon::bodytag('B
'au' => 'Author',	'au' => 'Author',
'kw' => 'Keywords',	'kw' => 'Keywords',
'ln' => 'Language',	'ln' => 'Language',
	'sa' => 'Source Available',
'sr' => 'Show resource',	'sr' => 'Show resource',
	'li' => 'Linked/Related Resources',
'av' => 'All versions',	'av' => 'All versions',
'ud' => 'Update Display'	'ud' => 'Update Display'
);	);
my $Displayfileattributes=&mt('Display file attributes');
$r->print(<<END);	$r->print(<<END);
<form method="post" name="fileattr" action="$uri"	<form method="post" name="fileattr" action="$uri"
enctype="application/x-www-form-urlencoded">	enctype="application/x-www-form-urlencoded">
<b><font color="#666666">$Displayfileattributes</font></b><br />	<label><input type="checkbox" name="attr9" value="1" $attrchk[9] onClick="this.form.submit();" /> $lt{'av'}</label>
<table border=0><tr>	<table border="0">
<td><input type="checkbox" name="attr0" value="1" $attrchk[0] onClick="this.form.submit();" /> $lt{'ti'}</td>	<tr>
<td><input type="checkbox" name="attr1" value="1" $attrchk[1] onClick="this.form.submit();" /> $lt{'si'}</td>	<td><label><input type="checkbox" name="attr0" value="1" $attrchk[0] onClick="this.form.submit();" /> $lt{'ti'}</label></td>
<td><input type="checkbox" name="attr2" value="1" $attrchk[2] onClick="this.form.submit();" /> $lt{'la'}</td>	<td><label><input type="checkbox" name="attr4" value="1" $attrchk[4] onClick="this.form.submit();" /> $lt{'au'}</label></td>
<td><input type="checkbox" name="attr3" value="1" $attrchk[3] onClick="this.form.submit();" /> $lt{'lm'}</td>	<td><label><input type="checkbox" name="attr5" value="1" $attrchk[5] onClick="this.form.submit();" /> $lt{'kw'}</label></td>
<td><input type="checkbox" name="attr8" value="1" $attrchk[8] onClick="this.form.submit();" /> $lt{'st'}</td>	<td><label><input type="checkbox" name="attr6" value="1" $attrchk[6] onClick="this.form.submit();" /> $lt{'ln'}</label></td>
</tr><tr>	</tr>
<td><input type="checkbox" name="attr4" value="1" $attrchk[4] onClick="this.form.submit();" /> $lt{'au'}</td>	<tr>
<td><input type="checkbox" name="attr5" value="1" $attrchk[5] onClick="this.form.submit();" /> $lt{'kw'}</td>	<td><label><input type="checkbox" name="attr1" value="1" $attrchk[1] onClick="this.form.submit();" /> $lt{'si'}</label></td>
<td><input type="checkbox" name="attr6" value="1" $attrchk[6] onClick="this.form.submit();" /> $lt{'ln'}</td>	<td><label><input type="checkbox" name="attr2" value="1" $attrchk[2] onClick="this.form.submit();" /> $lt{'la'}</label></td>
<td><input type="checkbox" name="attr7" value="1" $attrchk[7] onClick="this.form.submit();" /> $lt{'sr'}</td>	<td><label><input type="checkbox" name="attr3" value="1" $attrchk[3] onClick="this.form.submit();" /> $lt{'lm'}</label></td>
<td><input type="checkbox" name="attr9" value="1" $attrchk[9] onClick="this.form.submit();" /> $lt{'av'}</td>	<td><label><input type="checkbox" name="attr10" value="1" $attrchk[10] onClick="this.form.submit();" /> $lt{'sa'}</label></td>
	</tr>
	<tr>
	<td><label><input type="checkbox" name="attr8" value="1" $attrchk[8] onClick="this.form.submit();" /> $lt{'st'}</label></td>
	<td><label><input type="checkbox" name="attr11" value="1" $attrchk[11] onClick="this.form.submit();" /> $lt{'li'}</label></td>
	<td><label><input type="checkbox" name="attr7" value="1" $attrchk[7] onClick="this.form.submit();" /> $lt{'sr'}</label></td>
<td> </td>	<td> </td>
</tr></table>	</tr>
	</table>
<input type="hidden" name="attrs" value="1" />	<input type="hidden" name="attrs" value="1" />
<input type="submit" name="updatedisplay" value="$lt{'ud'}" />	<input type="submit" name="updatedisplay" value="$lt{'ud'}" />
<input type="hidden" name="acts" value="" />	<input type="hidden" name="acts" value="" />
Line 449 END	Line 478 END
$storeuri=~s/\/+/\//g;	$storeuri=~s/\/+/\//g;
# ---------------------------------------------------------------- Bread crumbs	# ---------------------------------------------------------------- Bread crumbs
$r->print(&Apache::lonhtmlcommon::crumbs($storeuri,'','',	$r->print(&Apache::lonhtmlcommon::crumbs($storeuri,'','',
(($ENV{'form.catalogmode'} eq 'groupimport')?	(($env{'form.catalogmode'} eq 'import')?
'document.forms.fileattr':'')).	'document.forms.fileattr':'')).
&Apache::lonhtmlcommon::select_recent('residx','resrecent',	&Apache::lonhtmlcommon::select_recent('residx','resrecent',
'this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();'));	'window.status=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.action=this.form.resrecent.options[this.form.resrecent.selectedIndex].value;this.form.submit();'));
# -------------------------------------------------------- Resource Home Button	# -------------------------------------------------------- Resource Home Button
my $reshome=$ENV{'course.'.$ENV{'request.course.id'}.'.reshome'};	my $reshome=$env{'course.'.$env{'request.course.id'}.'.reshome'};
if ($reshome) {	if ($reshome) {
$r->print("<font size='+2'><a href='");	$r->print("<font size='+2'><a href='");
if ($ENV{'form.catalogmode'} eq 'groupimport') {	if ($env{'form.catalogmode'} eq 'import') {
$r->print('javascript:document.forms.fileattr.action="'.$reshome.'";document.forms.fileattr.submit();');	$r->print('javascript:document.forms.fileattr.action="'.$reshome.'";document.forms.fileattr.submit();');
} else {	} else {
$r->print($reshome);	$r->print($reshome);
Line 470 END	Line 499 END
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);	&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);
# ----------------- output starting row to the indexed file/directory hierarchy	# ----------------- output starting row to the indexed file/directory hierarchy
my $titleclr="#ddffff";	my $titleclr="#ddffff";
# $r->print(&initdebug());	#$r->print(&initdebug());
# $r->print(&writedebug("Omit:@Omit")) if (@Omit);	#$r->print(&writedebug("Omit:@Omit")) if (@Omit);
# $r->print(&writedebug("Only:@Only")) if (@Only);	#$r->print(&writedebug("Only:@Only")) if (@Only);
$r->print("<table width='100\%' border=0><tr><td bgcolor=#777777>\n");	$r->print('<table width="100%" border="0"><tr><td bgcolor="#777777">'."\n");
$r->print("<table width='100\%' border=0><tr bgcolor=$titleclr>\n");	$r->print('<table width="100%" border="0"><tr bgcolor="'.$titleclr.'">'."\n");
$r->print("<td $colspan><b>".&mt('Name')."</b></td>\n");	$r->print("<td $colspan><b>".&mt('Name')."</b></td>\n");
$r->print("<td><b>".&mt('Title')."</b></td>\n")	$r->print("<td><b>".&mt('Title')."</b></td>\n")
if ($hash{'display_attrs_0'} == 1);	if ($hash{'display_attrs_0'} == 1);
Line 490 END	Line 519 END
if ($hash{'display_attrs_5'} == 1);	if ($hash{'display_attrs_5'} == 1);
$r->print("<td><b>".&mt("Language")."</b></td>\n")	$r->print("<td><b>".&mt("Language")."</b></td>\n")
if ($hash{'display_attrs_6'} == 1);	if ($hash{'display_attrs_6'} == 1);
$r->print("<td><b>".&mt("Resource")."</b></td>\n")
if ($hash{'display_attrs_7'} == 1);
$r->print("<td><b>".&mt("Usage Statistics")." <br />(".	$r->print("<td><b>".&mt("Usage Statistics")." <br />(".
&mt("Courses/Network Hits").")</b></td>\n")	&mt("Courses/Network Hits").")</b> ".&mt('updated periodically')."</td>\n")
if ($hash{'display_attrs_8'} == 1);	if ($hash{'display_attrs_8'} == 1);
	$r->print("<td><b>".&mt("Source Available")."</b></td>\n")
	if ($hash{'display_attrs_10'} == 1);
	$r->print("<td><b>".&mt("Linked/Related Resources")."</b></td>\n")
	if ($hash{'display_attrs_11'} == 1);
	$r->print("<td><b>".&mt("Resource")."</b></td>\n")
	if ($hash{'display_attrs_7'} == 1);
$r->print('</tr>');	$r->print('</tr>');

# ----------------- read in what directories have previously been set to "open"	# ----------------- read in what directories have previously been set to "open"
Line 506 END	Line 539 END
}	}
}	}

if ($ENV{'form.openuri'}) { # take care of review and refresh options	if ($env{'form.openuri'}) { # take care of review and refresh options
my $uri=$ENV{'form.openuri'};	my $uri=$env{'form.openuri'};
if (exists($hash{'diropen_status_'.$uri})) {	if (exists($hash{'diropen_status_'.$uri})) {
my $cursta = $hash{'diropen_status_'.$uri};	my $cursta = $hash{'diropen_status_'.$uri};
$dirs{$uri} = 'open';	$dirs{$uri} = 'open';
Line 526 END	Line 559 END
my $indent = 0;	my $indent = 0;
$uri = $uri.'/' if $uri !~ /.*\/$/;	$uri = $uri.'/' if $uri !~ /.*\/$/;

if ($ENV{'form.dirPointer'} ne 'on') {	if ($env{'form.dirPointer'} ne 'on') {
$hash{'top.level'} = $uri;	$hash{'top.level'} = $uri;
$toplevel = $uri;	$toplevel = $uri;
} else {	} else {
Line 548 END	Line 581 END

# ---------------------------- embed hidden information useful for group import	# ---------------------------- embed hidden information useful for group import
$r->print("<form name='fnum'>");	$r->print("<form name='fnum'>");
$r->print("<input type='hidden' name='fnum' value='$fnum'></form>");	$r->print("<input type='hidden' name='fnum' value='$fnum' /></form>");

# -------------------------------------------------------------- end the tables	# -------------------------------------------------------------- end the tables
$r->print('</table>');	$r->print('</table>');
$r->print('</td></tr></table>');	$r->print('</td></tr></table>');

# --------------------------------------------------- end the output and return	# --------------------------------------------------- end the output and return
$r->print('</body></html>'."\n");	$r->print(&Apache::loncommon::end_page()."\n");
}	}
if(! $c->aborted()) {	if(! $c->aborted()) {
# write back into the temporary file	# write back into the temporary file
Line 627 sub get_list {	Line 660 sub get_list {
my ($r,$uri)=@_;	my ($r,$uri)=@_;
my @list=();	my @list=();
(my $luri = $uri) =~ s/\//_/g;	(my $luri = $uri) =~ s/\//_/g;
if ($ENV{'form.updatedisplay'}) {	if ($env{'form.updatedisplay'}) {
foreach (keys %hash) {	foreach (keys %hash) {
delete $hash{$_} if ($_ =~ /^dirlist_files_/);	delete $hash{$_} if ($_ =~ /^dirlist_files_/);
	delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/);
}	}
}	}

if ($hash{'dirlist_files_'.$luri}) {	if (defined($hash{'dirlist_files_'.$luri}) &&
	$hash{'dirlist_timestamp_files_'.$luri}+600 > (time)) {
@list = split(/\n/,$hash{'dirlist_files_'.$luri});	@list = split(/\n/,$hash{'dirlist_files_'.$luri});
} elsif ($uri=~/\.(page\|sequence)\/$/) {	} elsif ($uri=~/\.(page\|sequence)\/$/) {
# is a page or a sequence	# is a page or a sequence
Line 649 sub get_list {	Line 684 sub get_list {
# is really a directory	# is really a directory
@list = &Apache::lonnet::dirlist($uri);	@list = &Apache::lonnet::dirlist($uri);
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
	$hash{'dirlist_timestamp_files_'.$luri} = time;
}	}
return @list=&match_ext($r,@list);	return @list=&match_ext($r,@list);
}	}

	sub dynmetaread {
	my $uri=shift;
	if (($hash{'display_attrs_8'}==1) \|\| ($hash{'display_attrs_11'}==1)) {
	# We don't want the filename
	$uri=~s/\/[^\/]+$//;
	# Did we already see this?
	my $builddir=$uri;
	while ($builddir) {
	if ($dynread{$builddir}) {
	return 0;
	}
	$builddir=~s/\/[^\/]+$//;
	}
	# Actually get the data
	%dynhash=
	(%dynhash,&Apache::lonmeta::get_dynamic_metadata_from_sql($uri.'/'));
	# Remember that we got it
	$dynread{$uri}=1;
	}
	}

sub initdebug {	sub initdebug {
	my $start_page=
	&Apache::loncommon::start_page('Debug',undef,
	{'only_body' => 1,});
	$start_page =~ s/\n/ /g;
return <<ENDJS;	return <<ENDJS;
<script>	<script type="text/javascript">
var debugging = true;	var debugging = true;
if (debugging) {	if (debugging) {
var debuggingWindow = window.open('','Debug','width=400,height=300',true);	var debuggingWindow = window.open('','Debug','width=400,height=300',true);
Line 666 function output(text) {	Line 727 function output(text) {
debuggingWindow.document.writeln(text);	debuggingWindow.document.writeln(text);
}	}
}	}
output("<html><head><title>Debugging Window</title></head><body><pre>");	output('$start_page<pre>');
</script>	</script>
ENDJS	ENDJS
}	}

sub writedebug {	sub writedebug {
my $text = shift;	my ($text) = @_;
return "<script>output('$text');</script>";	return "<script type=\"text/javascript\">output('$text');</script>";
}	}

# -------------------- filters out files based on extensions (returns an array)	# -------------------- filters out files based on extensions (returns an array)
Line 713 sub display_line {	Line 774 sub display_line {
# or absolute paths (for example, from sequences)	# or absolute paths (for example, from sequences)
my $absolute;	my $absolute;
my $pathprefix;	my $pathprefix;
if ($line=~/^\/res\//) {	if ($line=~m\|^/res/\| && $startdir ne '') {
$absolute=1;	$absolute=1;
$pathprefix='';	$pathprefix='';
} else {	} else {
Line 733 sub display_line {	Line 794 sub display_line {

my $tabtag='</td>';	my $tabtag='</td>';
my $i=0;	my $i=0;
while ($i<=8) {	while ($i<=11) {
$tabtag=join('',$tabtag,"<td> </td>")	$tabtag=join('',$tabtag,"<td> </td>")
if $hash{'display_attrs_'.$i} == 1;	if $hash{'display_attrs_'.$i} == 1;
$i++;	$i++;
}	}

my $valign = ($hash{'display_attrs_7'} == 1 ? 'top' : 'bottom');	my $valign = ($hash{'display_attrs_7'} == 1 ? 'top' : 'bottom');

# display uplink arrow	# display uplink arrow
Line 757 sub display_line {	Line 817 sub display_line {
'enctype="application/x-www-form-urlencoded"'.	'enctype="application/x-www-form-urlencoded"'.
'>'."\n");	'>'."\n");
$r->print ('<input type=hidden name=openuri value="'.	$r->print ('<input type=hidden name=openuri value="'.
$startdir.'">'."\n");	$startdir.'" />'."\n");
$r->print ('<input type="hidden" name="acts" value="">'."\n");	$r->print ('<input type="hidden" name="acts" value="" />'."\n");
$r->print ('<input src="'.$iconpath.'arrow_up.gif"');	$r->print ('<input src="'.$iconpath.'arrow_up.gif"');
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.	$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'.
"\n");	"\n");
$r->print(&mt("Up")." $tabtag</tr></form>\n");	$r->print(&mt("Up")."</form>$tabtag</tr>\n");
return OK;	return OK;
}	}
# Do we have permission to look at this?	# Do we have permission to look at this?
Line 770 sub display_line {	Line 830 sub display_line {
if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])); }	if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])); }

# make absolute links appear on different background	# make absolute links appear on different background
if ($absolute) { $fileclr='#aaaa88'; }	if ($absolute) { $fileclr='#ccdd99'; }

# display domain	# display domain
if ($filecom[1] eq 'domain') {	if ($filecom[1] eq 'domain') {
$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n")	$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n")
if ($ENV{'form.dirPointer'} eq "on");	if ($env{'form.dirPointer'} eq "on");
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");	$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");
$r->print("<td>");	$r->print("<td>");
&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.'">');	$r->print ('<a name="'.$anchor.'">');
$r->print ('<input type="hidden" name="acts" value="">');	$r->print ('<input type="hidden" name="acts" value="" />');
$r->print ('<input src="'.$iconpath.'folder_pointer_'.	$r->print ('<input src="'.$iconpath.'folder_pointer_'.
$diropen.'.gif"');	$diropen.'.gif"');
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.	$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'.
"\n");	"\n");
$r->print ('<a href="javascript:gothere(\''.$filecom[0].	my $quotable_filecom = &Apache::loncommon::escape_single($filecom[0]);
	$r->print ('<a href="javascript:gothere(\''.$quotable_filecom.
'\')"><img src="'.$iconpath.'server.gif"');	'\')"><img src="'.$iconpath.'server.gif"');
$r->print (' border="0" /></a>'."\n");	$r->print (' border="0" /></a>'."\n");
$r->print (&mt("Domain")." - $listname ");	$r->print (&mt("Domain")." - $listname ");
Line 795 sub display_line {	Line 856 sub display_line {
$r->print("(".$Apache::lonnet::domaindescription{$listname}.	$r->print("(".$Apache::lonnet::domaindescription{$listname}.
")");	")");
}	}
$r->print (" $tabtag</tr></form>\n");	$r->print ("</form>$tabtag</tr>\n");
return OK;	return OK;

# display user directory	# display user directory
Line 809 sub display_line {	Line 870 sub display_line {
&begin_form ($r,$curdir);	&begin_form ($r,$curdir);
$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.	$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.
'whitespace1.gif" border="0" />'."\n");	'whitespace1.gif" border="0" />'."\n");
$r->print ('<input type="hidden" name="acts" value="">');	$r->print ('<input type="hidden" name="acts" value="" />');
$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.	$r->print ('<input src="'.$iconpath.'folder_pointer_'.$diropen.
'.gif"');	'.gif"');
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.	$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'.
"\n");	"\n");
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src='.	my $quotable_curdir = &Apache::loncommon::escape_single($curdir);
	$r->print ('<a href="javascript:gothere(\''.$quotable_curdir
	.'\')"><img src='.
$iconpath.'quill.gif border="0" name="'.$msg.	$iconpath.'quill.gif border="0" name="'.$msg.
'" height="22" /></a>');	'" height="22" /></a>');
my $domain=(split(m\|/\|,$startdir))[2];	my $domain=(split(m\|/\|,$startdir))[2];
my $plainname=&Apache::loncommon::plainname($listname,$domain);	my $plainname=&Apache::loncommon::plainname($listname,$domain);
$r->print ($listname);	$r->print ($listname);
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); }	if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); }
$r->print ($tabtag.'</tr></form>'."\n");	$r->print ('</form>'.$tabtag.'</tr>'."\n");
return OK;	return OK;
}	}

Line 840 sub display_line {	Line 903 sub display_line {
}	}
# Set the icon for the file	# Set the icon for the file
my $iconname = &Apache::loncommon::icon($listname);	my $iconname = &Apache::loncommon::icon($listname);
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap>");	$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='nowrap' valign='top'>");
# my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list;
my $metafile=1;	if ($env{'form.catalogmode'} eq 'interactive') {
my $title;	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
if ($ENV{'form.catalogmode'} eq 'interactive') {
$title=$listname;
$title = &Apache::lonnet::metadata($filelink,'title')
if ($metafile == 1);
$title=$listname unless $title;
my $titleesc=HTML::Entities::encode($title,'<>&"');
$titleesc=~s/\'/\\'/; #' (clean up this spare quote)
$r->print("<a href=\"javascript:select_data(\'",	$r->print("<a href=\"javascript:select_data(\'",
$titleesc,"','",$filelink,"')\">");	$quotable_filelink,"')\">");
$r->print("<img src='",$iconpath,"select.gif' border='0' /></a>".	$r->print("<img src='",$iconpath,"select.gif' border='0' /></a>".
"\n");	"\n");
$r->print("</td><td nowrap>");	$r->print("</td><td nowrap>");
} elsif ($ENV{'form.catalogmode'} eq 'groupimport') {	} elsif ($env{'form.catalogmode'} eq 'import') {
$title=$listname;
$title = &Apache::lonnet::metadata($filelink,'title')
if ($metafile == 1);
$title=$listname unless $title;
my $titleesc=&HTML::Entities::encode($title,'<>&"');
$r->print("<form name='form$fnum'>\n");	$r->print("<form name='form$fnum'>\n");
$r->print("<input type='checkbox' name='filelink"."' ".	$r->print("<input type='checkbox' name='filelink"."' ".
"value='$filelink' onClick='".	"value='$filelink' onClick='".
Line 869 sub display_line {	Line 920 sub display_line {
if ($hash{'store_'.$filelink}) {	if ($hash{'store_'.$filelink}) {
$r->print("checked");	$r->print("checked");
}	}
$r->print(">\n");	$r->print(" />\n");
$r->print("<input type='hidden' name='title"."' ".	$r->print("</form></td><td nowrap>");
"value='$titleesc'>\n");
$r->print("</form>\n");
$r->print("</td><td nowrap>");
$hash{"pre_${fnum}_link"}=$filelink;	$hash{"pre_${fnum}_link"}=$filelink;
$hash{"pre_${fnum}_title"}=$titleesc;
$fnum++;	$fnum++;
}	}
# Form to open or close sequences	# Form to open or close sequences
Line 907 sub display_line {	Line 954 sub display_line {
my $curdir = $startdir.$filecom[0].'/';	my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;	my $anchor = $curdir;
$anchor =~ s/\///g;	$anchor =~ s/\///g;
$r->print ('<input type="hidden" name="acts" value="">');	$r->print ('<input type="hidden" name="acts" value="" />');
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.	$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.
'folder_pointer_'.$diropen.'.gif"');	'folder_pointer_'.$diropen.'.gif"');
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.	$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'.
"\n");	"\n");
}	}
# Filetype icons	# Filetype icons
$r->print("<img src='$iconname' border='0' />\n");	$r->print("<img src='$iconname' border='0' />\n");
# Close form to open/close sequence	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
if ($filelink=~/\.(page\|sequence)$/) {
$r->print('</form>');
}	$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink.
$r->print (" <a href=\"javascript:openWindow('".$filelink.
"', 'previewfile', '450', '500', 'no', 'yes','yes')\";".	"', 'previewfile', '450', '500', 'no', 'yes','yes')\";".
" TARGET=_self>$listname</a> ");	" TARGET=_self>$listname</a> ");

$r->print (" (<a href=\"javascript:openWindow('".$filelink.	$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink.
".meta', 'metadatafile', '500', '550', 'no', 'yes','no')\"; ".	".meta', 'metadatafile', '500', '550', 'no', 'yes','no')\"; ".
"TARGET=_self>metadata</a>) ") if ($metafile == 1);	"TARGET=_self>metadata</a>) ");
	# Close form to open/close sequence
	if ($filelink=~/\.(page\|sequence)$/) {
	$r->print('</form>');
	}
$r->print("</td>\n");	$r->print("</td>\n");
if ($hash{'display_attrs_0'} == 1) {	if ($hash{'display_attrs_0'} == 1) {
my $title = &Apache::lonnet::gettitle($filelink,'title')	my $title = &Apache::lonnet::gettitle($filelink,'title');
if ($metafile == 1);
$r->print('<td> '.($title eq '' ? ' ' : $title).	$r->print('<td> '.($title eq '' ? ' ' : $title).
' </td>'."\n");	' </td>'."\n");
}	}
Line 945 sub display_line {	Line 993 sub display_line {
if $hash{'display_attrs_3'} == 1;	if $hash{'display_attrs_3'} == 1;

if ($hash{'display_attrs_4'} == 1) {	if ($hash{'display_attrs_4'} == 1) {
my $author = &Apache::lonnet::metadata($filelink,'author')	my $author = &Apache::lonnet::metadata($filelink,'author');
if ($metafile == 1);
$r->print('<td> '.($author eq '' ? ' ' : $author).	$r->print('<td> '.($author eq '' ? ' ' : $author).
" </td>\n");	" </td>\n");
}	}
if ($hash{'display_attrs_5'} == 1) {	if ($hash{'display_attrs_5'} == 1) {
my $keywords = &Apache::lonnet::metadata($filelink,'keywords')	my $keywords = &Apache::lonnet::metadata($filelink,'keywords');
if ($metafile == 1);
# $keywords = ' ' if (!$keywords);	# $keywords = ' ' if (!$keywords);
$r->print('<td> '.($keywords eq '' ? ' ' : $keywords).	$r->print('<td> '.($keywords eq '' ? ' ' : $keywords).
" </td>\n");	" </td>\n");
}	}
	#'

if ($hash{'display_attrs_6'} == 1) {	if ($hash{'display_attrs_6'} == 1) {
my $lang = &Apache::lonnet::metadata($filelink,'language')	my $lang = &Apache::lonnet::metadata($filelink,'language');
if ($metafile == 1);
$lang = &Apache::loncommon::languagedescription($lang);	$lang = &Apache::loncommon::languagedescription($lang);
$r->print('<td> '.($lang eq '' ? ' ' : $lang).	$r->print('<td> '.($lang eq '' ? ' ' : $lang).
" </td>\n");	" </td>\n");
}	}
	if ($hash{'display_attrs_8'} == 1) {
	# statistics
	&dynmetaread($filelink);
	$r->print("<td>");
	&dynmetaprint($r,$filelink,'count');
	&dynmetaprint($r,$filelink,'course');
	&dynmetaprint($r,$filelink,'stdno');
	&dynmetaprint($r,$filelink,'avetries');
	&dynmetaprint($r,$filelink,'difficulty');
	&dynmetaprint($r,$filelink,'disc');
	&dynmetaprint($r,$filelink,'clear');
	&dynmetaprint($r,$filelink,'technical');
	&dynmetaprint($r,$filelink,'correct');
	&dynmetaprint($r,$filelink,'helpful');
	&dynmetaprint($r,$filelink,'depth');
	$r->print(" </td>\n");

	}
	if ($hash{'display_attrs_10'} == 1) {
	my $source = &Apache::lonnet::metadata($filelink,'sourceavail');
	if($source eq 'open') {
	my $sourcelink = &Apache::lonsource::make_link($filelink,$listname);
	my $quotable_sourcelink = &Apache::loncommon::escape_single($sourcelink);
	$r->print('<td>'."<a href=\"javascript:openWindow('"
	.$quotable_sourcelink.
	"', 'previewsource', '700', '700', 'no', 'yes','yes')\";".
	" TARGET=_self>Yes</a> "."</td>\n");
	} else { #A cuddled else. :P
	$r->print("<td> </td>\n");
	}
	}
	if ($hash{'display_attrs_11'} == 1) {
	# links
	&dynmetaread($filelink);
	$r->print('<td>');
	&coursecontext($r,$filelink);
	&dynmetaprint($r,$filelink,'goto_list');
	&dynmetaprint($r,$filelink,'comefrom_list');
	&dynmetaprint($r,$filelink,'sequsage_list');
	&dynmetaprint($r,$filelink,'dependencies');
	&dynmetaprint($r,$filelink,'course_list');
	$r->print('</td>');
	}
if ($hash{'display_attrs_7'} == 1) {	if ($hash{'display_attrs_7'} == 1) {
my $output='';	# Show resource
my $embstyle=&Apache::loncommon::fileembstyle($curfext);	my $output=&showpreview($filelink);
if ($embstyle eq 'ssi') {	$r->print('<td> '.($output eq '' ? ' ':$output).
my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink.
'.tmp';
if ((!$ENV{'form.updatedisplay'}) &&
(-e $cache)) {
open(FH,$cache);
$output=join("\n",<FH>);
close(FH);
} else {
$output=&Apache::lonnet::ssi_body($filelink);
open(FH,">$cache");
print FH $output;
close(FH);
}
$output='<font size="-2">'.$output.'</font>';
} elsif ($embstyle eq 'img') {
$output='<img src="'.$filelink.'" />';
} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) {
$output='<img src="http://'.
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}.
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />';
}
$r->print('<td> '.($output eq '' ? ' ':$output).
" </td>\n");	" </td>\n");
}	}
if ($hash{'display_attrs_8'} == 1) {
my (%stat) = &Apache::lonmeta::dynamicmeta($filelink) if ($metafile == 1);
my $stat = (exists($stat{'course'}) ? $stat{'course'} : '').
((exists($stat{'course'}) \|\| exists($stat{'count'})) ? '/' : '').
(exists($stat{'count'}) ? $stat{'count'} : '');
$r->print('<td align=center> '.($stat eq '' ? ' ' : $stat).
' </td>'."\n");
}

$r->print("</tr>\n");	$r->print("</tr>\n");
}	}

Line 1027 sub display_line {	Line 1086 sub display_line {
$r->print ("<img src=",$iconpath,"whitespace",$rem,	$r->print ("<img src=",$iconpath,"whitespace",$rem,
".gif border='0' />\n") if $rem > 0;	".gif border='0' />\n") if $rem > 0;
}	}
$r->print ('<input type="hidden" name="acts" value="">');	$r->print ('<input type="hidden" name="acts" value="" />');
$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.	$r->print ('<a name="'.$anchor.'"><input src="'.$iconpath.
'folder_pointer_'.$diropen.'.gif"');	'folder_pointer_'.$diropen.'.gif"');
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.	$r->print (' name="'.$msg.'" height="22" type="image" border="0" />'.
"\n");	"\n");
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src="'.	my $quotable_curdir = &Apache::loncommon::escape_single($curdir);
	$r->print ('<a href="javascript:gothere(\''
	.$quotable_curdir.'\')"><img src="'.
$iconpath.'folder_'.$diropen.'.gif" border="0" /></a>'.	$iconpath.'folder_'.$diropen.'.gif" border="0" /></a>'.
"\n");	"\n");
$r->print ("$listname</td>\n");	$r->print ("$listname</td>\n");
Line 1071 sub display_line {	Line 1132 sub display_line {
$r->print('<td> '.($lang eq '' ? ' ' : $lang).	$r->print('<td> '.($lang eq '' ? ' ' : $lang).
" </td>\n");	" </td>\n");
}	}
if ($hash{'display_attrs_7'} == 1) {
$r->print('<td> </td>');
}
if ($hash{'display_attrs_8'} == 1) {	if ($hash{'display_attrs_8'} == 1) {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}
	if ($hash{'display_attrs_10'} == 1) {
	$r->print('<td> </td>');
	}
	if ($hash{'display_attrs_11'} == 1) {
	$r->print('<td> </td>');
	}
	if ($hash{'display_attrs_7'} == 1) {
	$r->print('<td> </td>');
	}
$r->print('</form></tr>');	$r->print('</form></tr>');
}	}

}	}

	sub coursecontext {
	my ($r,$filelink)=@_;
	my $filesymb=&Apache::lonnet::symbread($filelink);
	if ($filesymb) {
	my ($map,$index,$resource)=&Apache::lonnet::decode_symb($filesymb);
	$r->print(&mt('Already in this course:<br />[_1] in folder/map [_2].<br />',
	&Apache::lonnet::gettitle($resource),
	&Apache::lonnet::gettitle($map)));
	}
	}

	sub showpreview {
	my ($filelink)=@_;
	my ($curfext)=($filelink=~/\.(\w+)$/);
	my $output='';
	my $embstyle=&Apache::loncommon::fileembstyle($curfext);
	if ($embstyle eq 'ssi') {
	my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink.
	'.tmp';
	if ((!$env{'form.updatedisplay'}) &&
	(-e $cache)) {
	open(FH,$cache);
	$output=join("\n",<FH>);
	close(FH);
	} else {
	# In update display mode, remove old cache. This is done to retroactively
	# clean up course context renderings.
	if (-e $cache) {
	unlink($cache);
	}
	$output=&Apache::lonnet::ssi_body($filelink);
	# Is access denied? Don't render, don't store
	if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/s) {
	$output='';
	# Was this rendered in course content? Don't store
	} elsif (!&Apache::lonnet::symbread($filelink)) {
	open(FH,">$cache");
	print FH $output;
	close(FH);
	}
	}
	$output='<font size="-2">'.$output.'</font>';
	} elsif ($embstyle eq 'img') {
	$output='<img src="'.$filelink.'" />';
	} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) {
	$output='<img src="http://'.
	$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}.
	'/cgi-bin/thumbnail.gif?url='.$filelink.'" />';
	}
	return $output;
	}

	sub dynmetaprint {
	my ($r,$filelink,$item)=@_;
	if ($dynhash{$filelink}->{$item}) {
	$r->print("\n<br />".$fieldnames{$item}.': '.
	&Apache::lonmeta::prettyprint($item,
	$dynhash{$filelink}->{$item},
	(($env{'form.catalogmode'} ne 'import')?'preview':''),
	'',
	(($env{'form.catalogmode'} eq 'import')?'document.forms.fileattr':''),1));
	}
	}

# ------------------- prints the beginning of a form for directory or file link	# ------------------- prints the beginning of a form for directory or file link
sub begin_form {	sub begin_form {
my ($r,$uri) = @_;	my ($r,$uri) = @_;
Line 1092 sub begin_form {	Line 1223 sub begin_form {
'" onSubmit="return rep_dirpath(\''.$dnum.'\''.	'" onSubmit="return rep_dirpath(\''.$dnum.'\''.
',document.forms.fileattr.acts.value)" '.	',document.forms.fileattr.acts.value)" '.
'enctype="application/x-www-form-urlencoded">'."\n");	'enctype="application/x-www-form-urlencoded">'."\n");
$r->print ('<input type="hidden" name="openuri" value="'.$uri.'">'.	$r->print ('<input type="hidden" name="openuri" value="'.$uri.'" />'.
"\n");	"\n");
$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n");	$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n");
$dnum++;	$dnum++;
}	}

Line 1130 sub cleanup {	Line 1261 sub cleanup {
if (tied(%hash)){	if (tied(%hash)){
&Apache::lonnet::logthis('Cleanup indexer: hash');	&Apache::lonnet::logthis('Cleanup indexer: hash');
}	}
	return OK;
}	}





=head1 NAME	=head1 NAME

Apache::lonindexer - mod_perl module for cross server filesystem browsing	Apache::lonindexer - mod_perl module for cross server filesystem browsing

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.102
changed lines
	Added in v.1.148