loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.104 and 1.130

version 1.104, 2004/05/11 05:19:30	version 1.130, 2005/02/17 08:50:20
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 127 sub handler {	Line 133 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 $html=&Apache::lonxml::xmlbegin();
	$r->print(<<ENDSUBM);
	$html
	<!-- Generated by lonindexer.pm -->
	<head>
	<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>
	</head>
	<body onLoad="load();">
	</body>
	</html>
	ENDSUBM
	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' );

Line 148 END	Line 187 END
' 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
Line 207 END	Line 246 END
$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 266 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 300 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 318 END	Line 347 END
}	}

# ---------------------------------------------------------------- Print Header	# ---------------------------------------------------------------- Print Header
	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
<html>	$html
<head>	<head>
<title>The LearningOnline Network With CAPA Directory Browser</title>	<title>The LearningOnline Network With CAPA Directory Browser</title>

	<!-- Generated by lonindexer.pm -->

<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 390 $r->print(&Apache::loncommon::bodytag('B	Line 422 $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';
Line 398 $r->print(&Apache::loncommon::bodytag('B	Line 430 $r->print(&Apache::loncommon::bodytag('B
}	}
}	}
} 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 447 $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 452 END	Line 491 END
(($ENV{'form.catalogmode'} eq 'groupimport')?	(($ENV{'form.catalogmode'} eq 'groupimport')?
'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) {
Line 470 END	Line 509 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 529 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 630 sub get_list {	Line 673 sub get_list {
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 694 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 $html=&Apache::lonxml::xmlbegin();
return <<ENDJS;	return <<ENDJS;
<script>	<script>
var debugging = true;	var debugging = true;
Line 666 function output(text) {	Line 734 function output(text) {
debuggingWindow.document.writeln(text);	debuggingWindow.document.writeln(text);
}	}
}	}
output("<html><head><title>Debugging Window</title></head><body><pre>");	output('$html<head><title>Debugging Window</title><!-- for lonindexer.pm --></head><body><pre>');
</script>	</script>
ENDJS	ENDJS
}	}
Line 713 sub display_line {	Line 781 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 801 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 770 sub display_line {	Line 837 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') {
Line 787 sub display_line {	Line 854 sub display_line {
$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 814 sub display_line {	Line 882 sub display_line {
'.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];
Line 840 sub display_line {	Line 910 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='1' align='top'>");

my $metafile = $Apache::lonnet::perlvar{'lonDocRoot'}.$pathprefix.
$filecom[0].'.meta';
if (-e $metafile) {
$metafile=1;
} else {
$metafile=0;
}
my $title;
if ($ENV{'form.catalogmode'} eq 'interactive') {	if ($ENV{'form.catalogmode'} eq 'interactive') {
$title=$listname;	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
$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 'groupimport') {
$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 876 sub display_line {	Line 928 sub display_line {
$r->print("checked");	$r->print("checked");
}	}
$r->print(">\n");	$r->print(">\n");
$r->print("<input type='hidden' name='title"."' ".
"value='$titleesc'>\n");
$r->print("</form>\n");	$r->print("</form>\n");
$r->print("</td><td nowrap>");	$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 925 sub display_line {	Line 974 sub display_line {
if ($filelink=~/\.(page\|sequence)$/) {	if ($filelink=~/\.(page\|sequence)$/) {
$r->print('</form>');	$r->print('</form>');
}	}
$r->print (" <a href=\"javascript:openWindow('".$filelink.	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);


	$r->print (" <a href=\"javascript:openWindow('".$quotable_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>) ");	"TARGET=_self>metadata</a>) ");
$r->print("</td>\n");	$r->print("</td>\n");
Line 959 sub display_line {	Line 1011 sub display_line {
$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');
$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>');
	&dynmetaprint($r,$filelink,'goto_list');
	&dynmetaprint($r,$filelink,'comefrom_list');
	&dynmetaprint($r,$filelink,'sequsage_list');
	&dynmetaprint($r,$filelink,'dependencies');
	$r->print('</td>');
	}
if ($hash{'display_attrs_7'} == 1) {	if ($hash{'display_attrs_7'} == 1) {
	# Show resource
my $output='';	my $output='';
my $embstyle=&Apache::loncommon::fileembstyle($curfext);	my $embstyle=&Apache::loncommon::fileembstyle($curfext);
if ($embstyle eq 'ssi') {	if ($embstyle eq 'ssi') {
Line 993 sub display_line {	Line 1089 sub display_line {
$r->print('<td> '.($output eq '' ? ' ':$output).	$r->print('<td> '.($output eq '' ? ' ':$output).
" </td>\n");	" </td>\n");
}	}
if ($hash{'display_attrs_8'} == 1) {
my (%stat) = &Apache::lonmeta::dynamicmeta($filelink);
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 1033 sub display_line {	Line 1120 sub display_line {
'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 1072 sub display_line {	Line 1161 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 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 'groupimport')?'preview':''),
	'',
	(($ENV{'form.catalogmode'} eq 'groupimport')?'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 1133 sub cleanup {	Line 1240 sub cleanup {
}	}
}	}





=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>

Removed from v.1.104
changed lines
	Added in v.1.130