Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.127 and 1.181.2.2

version 1.127, 2004/10/21 09:53:44	version 1.181.2.2, 2008/12/17 18:49:13
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 53 use Apache::lonmeta;	Line 53 use Apache::lonmeta;
use Apache::File;	use Apache::File;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonsource();	use Apache::lonsource();
	use Apache::groupsort();
use GDBM_File;	use GDBM_File;
	use LONCAPA qw(:match);

# ---------------------------------------- variables used throughout the module	# ---------------------------------------- variables used throughout the module
my %hash; # global user-specific gdbm file	my %hash; # global user-specific gdbm file
Line 104 sub handler {	Line 106 sub handler {

my $fileclr='#ffffe6';	my $fileclr='#ffffe6';
my $line;	my $line;
my (@attrchk,@openpath);	my (@attrchk,@openpath,$typeselect);
my $uri=$r->uri;	my $uri=$r->uri;

# -------------------------------------- see if called from an interactive mode	# -------------------------------------- see if called from an interactive mode
Line 116 sub handler {	Line 118 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;
if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_READER(),0640)) {	if (tie(%dbfile,'GDBM_File',$diropendb,&GDBM_WRITER(),0640)) {
	if ($env{'form.launch'} eq '1') {
	&start_fresh_session(\%dbfile);
	}
while(my($key,$value)=each(%dbfile)) {	while(my($key,$value)=each(%dbfile)) {
$hash{$key}=$value;	$hash{$key}=$value;
}	}
untie(%dbfile);	untie(%dbfile);
}	}
}	}
	# - Evaluate actions from previous page (both cumulatively and chronologically)
	if ($env{'form.catalogmode'} eq 'import' \|\| $hash{'form.catalogmode'} eq 'import') {
	&Apache::groupsort::update_actions_hash(\%hash);
	}

{	{
if ($ENV{'form.launch'} eq '1') {
&start_fresh_session();
}
#Hijack lonindexer to verify a title and be close down.	#Hijack lonindexer to verify a title and be close down.
if ($ENV{'form.launch'} eq '2') {	if ($env{'form.launch'} eq '2') {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
my $extra='';	my $extra='';
if (defined($ENV{'form.titleelement'}) &&	if (defined($env{'form.titleelement'}) &&
$ENV{'form.titleelement'} ne '') {	$env{'form.titleelement'} ne '') {
my $verify_title = &Apache::lonnet::gettitle($ENV{'form.acts'});	my $verify_title = &Apache::lonnet::gettitle($env{'form.acts'});
# &Apache::lonnet::logthis("Hrrm $ENV{'form.acts'} -- $verify_title");	# &Apache::lonnet::logthis("Hrrm $env{'form.acts'} -- $verify_title");
$verify_title=~s/'/\\'/g;	$verify_title=~s/'/\\'/g;
$extra='window.opener.document.forms["'.$ENV{'form.form'}.'"].elements["'.$ENV{'form.titleelement'}.'"].value=\''.$verify_title.'\';';	$extra='window.opener.document.forms["'.$env{'form.form'}.'"].elements["'.$env{'form.titleelement'}.'"].value=\''.$verify_title.'\';';
}	}
$r->print(<<ENDSUBM);	my $js = <<ENDSUBM;
<html>	<script type="text/javascript">
<script type="text/javascript">
function load() {	function load() {
window.opener.document.forms["$ENV{'form.form'}"]	window.opener.document.forms["$env{'form.form'}"]
.elements["$ENV{'form.element'}"]	.elements["$env{'form.element'}"]
.value='$ENV{'form.acts'}';	.value='$env{'form.acts'}';
$extra	$extra
window.close();	window.close();
}	}
</script>	</script>
<body onLoad=load();>
</body>
</html>
ENDSUBM	ENDSUBM
	$r->print(&Apache::loncommon::start_page(undef,$js,
	{'only_body' =>1,
	'add_entries' =>
	{'onload' => "load();"},}
	).
	&Apache::loncommon::end_page());
return OK;	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"'.	'<img alt="" src="'.$iconpath.'whitespace1.gif"'.
' border="0" /></td>';	' class="LC_icon" /></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"'.	'<img alt="" src="'.$iconpath.'whitespace1.gif"'.
' border="0" /></td>';	' class="LC_icon" /></td>';
$colspan=" colspan='2' ";	$colspan=" colspan='2' ";
my $cl=&mt('Close');	my $cl=&mt('Close');
my $gi=&mt('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 201 END	Line 210 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 238 END	Line 247 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?&inhibitmenu=yes&catalogmode=import&";
$location .= "mode=".$mode."&";	$location .= "mode=".$mode."&";
$location .= "acts=";	$location .= "acts=";
$catalogmodefunctions=<<"END";	$catalogmodefunctions=<<"END";
Line 265 END	Line 274 END
function select_data(url) {	function select_data(url) {
var location = "/res/?launch=2&form=$form&element=$element&titleelement=$titleelement&acts=" + url;	var location = "/res/?launch=2&form=$form&element=$element&titleelement=$titleelement&acts=" + url;
window.location=location;	window.location=location;
	if (window.opener.document.forms["$form"].elements["$element"].value != url) {
	window.opener.unClean();
	}
}	}
function select_group() {	function select_group() {
window.location="$location"+document.forms.fileattr.acts.value;	window.location="$location"+document.forms.fileattr.acts.value;
Line 325 function rep_dirpath(suffix,val) {	Line 337 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 342 function queue(val) {	Line 354 function queue(val) {
END	END
}	}

	my $inhibit_menu = "+'&".&Apache::loncommon::inhibit_menu_check()."'";
# ---------------------------------------------------------------- Print Header	# ---------------------------------------------------------------- Print Header
$r->print(<<ENDHEADER);
<html>	my $js = <<"ENDHEADER";
<head>
<title>The LearningOnline Network With CAPA Directory Browser</title>

<script type="text/javascript">	<script type="text/javascript">
$catalogmodefunctions	$catalogmodefunctions;
	function update_only(field) {
	alert(field.name);
	}
	function checkAll() {
	var numForms = document.forms.length;
	for (i=0;i<numForms;i++) {
	var numElements = document.forms[i].elements.length;
	for (j=0;j<numElements;j++){
	var fieldName = document.forms[i].elements[j].name;
	if (fieldName == 'filelink') {
	document.forms[i].elements[j].checked = true;
	queue(document.forms[i].name);
	}
	}
	}
	}
	function uncheckAll() {
	var numForms = document.forms.length;
	for (i=0;i<numForms;i++) {
	var numElements = document.forms[i].elements.length;
	for (j=0;j<numElements;j++){
	var fieldName = document.forms[i].elements[j].name;
	if (fieldName == 'filelink') {
	document.forms[i].elements[j].checked = false;
	queue(document.forms[i].name);
	}
	}
	}
	}
function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) {	function openWindow(url, wdwName, w, h, toolbar,scrollbar,locationbar) {
var xpos = (screen.width-w)/2;	var xpos = (screen.width-w)/2;
xpos = (xpos < 0) ? '0' : xpos;	xpos = (xpos < 0) ? '0' : xpos;
Line 362 function openWindow(url, wdwName, w, h,	Line 401 function openWindow(url, wdwName, w, h,
newWin.focus();	newWin.focus();
}	}
function gothere(val) {	function gothere(val) {
window.location=val+'?acts='+document.forms.fileattr.acts.value;	window.location=val+'?acts='+document.forms.fileattr.acts.value$inhibit_menu;
}	}
</script>	</script>

</head>
ENDHEADER	ENDHEADER
my ($headerdom)=($uri=~/^\/res\/(\w+)\//);
$r->print(&Apache::loncommon::bodytag('Browse Resources',undef,undef,undef,	my ($headerdom)=($uri=~m{^/res/($match_domain)/});
$headerdom));	$r->print(&Apache::loncommon::start_page('Browse Resources',$js,
# - Evaluate actions from previous page (both cumulatively and chronologically)	{'domain' => $headerdom,}));
if ($ENV{'form.catalogmode'} eq 'groupimport') {	# ---------------------------------- get state of file types to be showing
my $acts=$ENV{'form.acts'};	if ($env{'form.only'}) {
my @Acts=split(/b/,$acts);	$typeselect = $env{'form.only'};
my %ahash;	} else {
my %achash;	$typeselect = '';
my $ac=0;
# some initial hashes for working with data
foreach (@Acts) {
my ($state,$ref)=split(/a/);
$ahash{$ref}=$state;
$achash{$ref}=$ac;
$ac++;
}
# sorting through the actions and changing the global database hash
foreach (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {
my $key=$_;
if ($ahash{$key} eq '1') {
$hash{'store_'.$hash{'pre_'.$key.'_link'}}=
$hash{'pre_'.$key.'_title'};
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}}=
$hash{'storectr'}+0;
$hash{'storectr'}++;
}
if ($ahash{$key} eq '0') {
if ($hash{'store_'.$hash{'pre_'.$key.'_link'}}) {
delete $hash{'store_'.$hash{'pre_'.$key.'_link'}};
}
}
}
# deleting the previously cached listing
foreach (keys %hash) {
if ($_ =~ /^pre_/ && $_ =~/link$/) {
my $key = $_;
$key =~ s/^pre_//;
$key =~ s/_[^_]*$//;
delete $hash{'pre_'.$key.'_title'};
delete $hash{'pre_'.$key.'_link'};
}
}
}	}

# ---------------------------------- 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<=11; $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;
}	}
Line 444 $r->print(&Apache::loncommon::bodytag('B	Line 447 $r->print(&Apache::loncommon::bodytag('B
'sr' => 'Show resource',	'sr' => 'Show resource',
'li' => 'Linked/Related Resources',	'li' => 'Linked/Related Resources',
'av' => 'All versions',	'av' => 'All versions',
'ud' => 'Update Display'	'ud' => 'Update Display',
	'pr' => 'Problems',
	'gr' => 'Graphics',
	'at' => 'All types'
);	);
$r->print(<<END);	$r->print(<<END);
<form method="post" name="fileattr" action="$uri"	<form method="post" name="fileattr" action="$uri"
Line 471 $r->print(&Apache::loncommon::bodytag('B	Line 477 $r->print(&Apache::loncommon::bodytag('B
</tr>	</tr>
</table>	</table>
<input type="hidden" name="attrs" value="1" />	<input type="hidden" name="attrs" value="1" />
	END
	my @file_categories = &Apache::loncommon::filecategories();
	my %select_file_categories;
	my @select_form_order = ('');
	$select_file_categories{''} = &mt('All file types');
	foreach my $cat (@file_categories) {
	my $types = join(",",&Apache::loncommon::filecategorytypes($cat));
	$select_file_categories{$types} = $cat;
	push(@select_form_order,$types);
	}
	$select_file_categories{'select_form_order'} = \@select_form_order;
	my $type_element=
	&Apache::loncommon::select_form($typeselect,'only',
	%select_file_categories);
	$type_element = '<label>'.&mt('File Type Displayed: [_1]',
	$type_element).'</label>';
	$r->print(<<END);
	$type_element
	<br />
<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="" />
$closebutton $groupimportbutton	$closebutton $groupimportbutton
END	END
	$r->print(&Apache::loncommon::inhibit_menu_check('input'));

# -------------- Filter out sequence containment in crumbs and "recent folders"	# -------------- Filter out sequence containment in crumbs and "recent folders"
my $storeuri=$uri;	my $storeuri=$uri;
$storeuri='/'.(split(/\.(page\|sequence)\/\//,$uri))[-1];	$storeuri='/'.(split(/\.(page\|sequence)\/\//,$uri))[-1];
$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="'.&Apache::loncommon::inhibit_menu_check($reshome).'";document.forms.fileattr.submit();');
} else {	} else {
$r->print($reshome);	$r->print($reshome);
}	}
Line 500 END	Line 527 END
# ------------------------------------------------------ Remember where we were	# ------------------------------------------------------ Remember where we were
&Apache::loncommon::storeresurl($storeuri);	&Apache::loncommon::storeresurl($storeuri);
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);	&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);
	# -------------------------------------------------- Check All and Uncheck all
	if ($env{'form.catalogmode'} eq 'import') {
	$r->print('<br /><input type="button" value="'.&mt("Check All").'" id="checkallbutton" onClick="javascript:checkAll()" />');
	$r->print('<input type="button" value="'.&mt("Uncheck All").'" id="uncheckallbutton" onClick="javascript:uncheckAll()" />');
	}
# ----------------- 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);
$r->print("<td align=right><b>".&mt("Size")." (".&mt("bytes").") ".	$r->print('<td align="right"><b>'.&mt('Size').' ('.&mt('bytes').') '.
"</b></td>\n") if ($hash{'display_attrs_1'} == 1);	'</b></td>'."\n") if ($hash{'display_attrs_1'} == 1);
$r->print("<td><b>".&mt("Last accessed")."</b></td>\n")	$r->print("<td><b>".&mt("Last accessed")."</b></td>\n")
if ($hash{'display_attrs_2'} == 1);	if ($hash{'display_attrs_2'} == 1);
$r->print("<td><b>".&mt("Last modified")."</b></td>\n")	$r->print("<td><b>".&mt("Last modified")."</b></td>\n")
Line 542 END	Line 574 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 562 END	Line 594 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 582 END	Line 614 END
# -------- recursively go through all the directories and output as appropriate	# -------- recursively go through all the directories and output as appropriate
&scanDir ($r,$toplevel,$indent,\%hash);	&scanDir ($r,$toplevel,$indent,\%hash);

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

# -------------------------------------------------------------- end the tables	# -------------------------------------------------------------- end the tables
$r->print('</table>');	$r->print('</table>');
	# ---------------------------- embed hidden information useful for group import
	$r->print("<form name='fnum' action=''>");
	$r->print("<input type='hidden' name='fnum' value='$fnum' /></form>");
	# -------------------------------------------------------------- end the tables
$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 624 sub scanDir {	Line 657 sub scanDir {
next if($strip =~ /.*\.meta$/ \| $obs eq '1');	next if($strip =~ /.*\.meta$/ \| $obs eq '1');
my (@fileparts) = split(/\./,$strip);	my (@fileparts) = split(/\./,$strip);
if ($hash{'display_attrs_9'} != 1) {	if ($hash{'display_attrs_9'} != 1) {
# if not all versions to be shown	# if not all versions to be shown
if (scalar(@fileparts) >= 3) {	if (scalar(@fileparts) >= 3) {
my $fext = pop @fileparts;	my $fext = pop @fileparts;
my $ov = pop @fileparts;	my $ov = pop @fileparts;
Line 663 sub get_list {	Line 696 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_/);	delete $hash{$_} if ($_ =~ /^dirlist_timestamp_files_/);
Line 680 sub get_list {	Line 713 sub get_list {
$uri=~s/\/+/\//g;	$uri=~s/\/+/\//g;
foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$uri))) {	foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$uri))) {
my @ratpart=split(/\:/,$_);	my @ratpart=split(/\:/,$_);
push @list,$ratpart[1];	push(@list,&LONCAPA::map::qtescape($ratpart[1]));
}	}
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
} else {	} else {
Line 689 sub get_list {	Line 722 sub get_list {
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
$hash{'dirlist_timestamp_files_'.$luri} = time;	$hash{'dirlist_timestamp_files_'.$luri} = time;
}	}
return @list=&match_ext($r,@list);	return @list=&match_ext($r,@list);
}	}

sub dynmetaread {	sub dynmetaread {
Line 707 sub dynmetaread {	Line 740 sub dynmetaread {
}	}
# Actually get the data	# Actually get the data
%dynhash=	%dynhash=
(%dynhash,&Apache::lonmeta::get_dynamic_metadata_from_sql($uri));	(%dynhash,&Apache::lonmeta::get_dynamic_metadata_from_sql($uri.'/'));
# Remember that we got it	# Remember that we got it
$dynread{$uri}=1;	$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 726 function output(text) {	Line 763 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 795 sub display_line {	Line 832 sub display_line {
my $i=0;	my $i=0;
while ($i<=11) {	while ($i<=11) {
$tabtag=join('',$tabtag,"<td> </td>")	$tabtag=join('',$tabtag,"<td> </td>")
if $hash{'display_attrs_'.$i} == 1;	if ($i != 9 &&
	$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');
Line 807 sub display_line {	Line 845 sub display_line {
$updir='/'.(split(/\.(page\|sequence)\/\//,$startdir))[-1];	$updir='/'.(split(/\.(page\|sequence)\/\//,$startdir))[-1];
$updir=~s/\/+/\//g;	$updir=~s/\/+/\//g;

$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield");	$r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield");
$r->print("<td>\n");	$r->print("<td>\n");
$r->print ('<form method="post" name="dirpathUP" action="'.$updir.	$r->print ('<form method="post" name="dirpathUP" action="'.$updir.
'/" '.	'/" '.
Line 815 sub display_line {	Line 853 sub display_line {
'document.forms.fileattr.acts.value)" '.	'document.forms.fileattr.acts.value)" '.
'enctype="application/x-www-form-urlencoded"'.	'enctype="application/x-www-form-urlencoded"'.
'>'."\n");	'>'."\n");
	$r->print(&Apache::loncommon::inhibit_menu_check('input'));
$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.'" type="image" class="LC_indexer_icon" />'.
"\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 833 sub display_line {	Line 872 sub display_line {

# 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/\W//g;
$r->print ('<a name="'.$anchor.'">');	$r->print ('<a name="'.$anchor.'"></a>');
$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.'" type="image" class="LC_indexer_icon" />'.
"\n");	"\n");
my $quotable_filecom = &Apache::loncommon::javascript_escape($filecom[0]);	my $quotable_filecom = &Apache::loncommon::escape_single($filecom[0]);
$r->print ('<a href="javascript:gothere(\''.$quotable_filecom.	$r->print ('<a href="javascript:gothere(\''.$quotable_filecom.
'\')"><img src="'.$iconpath.'server.gif"');	'\')"><img alt="" src="'.$iconpath.'server.gif"');
$r->print (' border="0" /></a>'."\n");	$r->print (' class="LC_icon" /></a>'."\n");
$r->print (&mt("Domain")." - $listname ");	$r->print (&mt("Domain")." - $listname ");
if ($Apache::lonnet::domaindescription{$listname}) {	if (&Apache::lonnet::domain($listname,'description')) {
$r->print("(".$Apache::lonnet::domaindescription{$listname}.	$r->print("(".&Apache::lonnet::domain($listname,'description').
")");	")");
}	}
$r->print (" $tabtag</tr></form>\n");	$r->print ("</form>$tabtag</tr>\n");
return OK;	return OK;

# display user directory	# display user directory
}	}
if ($filecom[1] eq 'user') {	if ($filecom[1] eq 'user') {
$r->print("<tr valign=$valign bgcolor=$fileclr>$extrafield");	# $r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield");
$r->print("<td nowrap>\n");
my $curdir = $startdir.$filecom[0].'/';	my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;	my $anchor = $curdir;
$anchor =~ s/\///g;	$anchor =~ s/\W//g;
	$r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");
&begin_form ($r,$curdir);	&begin_form ($r,$curdir);
$r->print ('<a name="'.$anchor.'"><img src="'.$iconpath.	$r->print ('<a name="'.$anchor.'"></a><img alt="" src="'.$iconpath.
'whitespace1.gif" border="0" />'."\n");	'whitespace1.gif" class="LC_icon" />'."\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.'" type="image" class="LC_indexer_icon" />'.
"\n");	"\n");
my $quotable_curdir = &Apache::loncommon::javascript_escape($curdir);	my $quotable_curdir = &Apache::loncommon::escape_single($curdir);
$r->print ('<a href="javascript:gothere(\''.$quotable_curdir	$r->print ('<a href="javascript:gothere(\''.$quotable_curdir
.'\')"><img src='.	.'\')"><img alt="'.$msg.'" src="'.
$iconpath.'quill.gif border="0" name="'.$msg.	$iconpath.'quill.gif" class="LC_indexer_icon" /></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;
}	}

# display file	# display file
if (($fnptr == 0 and $filecom[3] ne '') or $absolute) {	if (($fnptr == 0 and $filecom[3] ne '') or $absolute) {
	my $title;
my $filelink = $pathprefix.$filecom[0];	my $filelink = $pathprefix.$filecom[0];
	if ($hash{'display_attrs_0'} == 1) {
	$title = &Apache::lonnet::gettitle($filelink);
	}
my @file_ext = split (/\./,$listname);	my @file_ext = split (/\./,$listname);
my $curfext = $file_ext[-1];	my $curfext = $file_ext[-1];
if (@Omit) {	if (@Omit) {
foreach (@Omit) { return OK if ($curfext eq $_); }	foreach (@Omit) { return OK if (lc($curfext) eq $_); }
}	}
if (@Only) {	if (@Only) {
my $skip = 1;	my $skip = 1;
foreach (@Only) { $skip = 0 if ($curfext eq $_); }	foreach (@Only) { $skip = 0 if (lc($curfext) eq $_); }
return OK if ($skip > 0);	return OK if ($skip > 0);
}	}
# 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='1' align='top'>");	$r->print('<tr valign="'.$valign.'" bgcolor="'.$fileclr.'">'.
	'<td valign="top"><span class="LC_nobreak">');

if ($ENV{'form.catalogmode'} eq 'interactive') {	if ($env{'form.catalogmode'} eq 'interactive') {
my $quotable_filelink = &Apache::loncommon::javascript_escape($filelink);	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
$r->print("<a href=\"javascript:select_data(\'",	$r->print("<a href=\"javascript:select_data(\'",
$quotable_filelink,"')\">");	$quotable_filelink,"')\">");
$r->print("<img src='",$iconpath,"select.gif' border='0' /></a>".	$r->print("<img alt=\"\" src='",$iconpath,"select.gif' class='LC_icon' /></a>".
"\n");	"\n");
$r->print("</td><td nowrap>");	$r->print('</span></td><td valign="top"><span class="LC_nobreak">');
} elsif ($ENV{'form.catalogmode'} eq 'groupimport') {	} elsif ($env{'form.catalogmode'} eq 'import') {
$r->print("<form name='form$fnum'>\n");	$r->print("<form name='form$fnum' action=''>\n");
$r->print("<input type='checkbox' name='filelink"."' ".	$r->print("<input type='checkbox' name='filelink"."' ".
"value='$filelink' onClick='".	"value='$filelink' onClick='".
"javascript:queue(\"form$fnum\")' ");	"javascript:queue(\"form$fnum\")' ");
if ($hash{'store_'.$filelink}) {	if ($hash{'store_'.$filelink}) {
$r->print("checked");	$r->print("checked");
}	}
$r->print(">\n");	$r->print(" />\n");
$r->print("</form>\n");	$r->print('</form></span></td><td valign="top"><span class="LC_nobreak">');
$r->print("</td><td nowrap>");
$hash{"pre_${fnum}_link"}=$filelink;	$hash{"pre_${fnum}_link"}=$filelink;
	$hash{"pre_${fnum}_title"}=$title;
	if (!$hash{"pre_${fnum}_title"}) {
	$hash{"pre_${fnum}_title"} = 'Not_retrieved';
	}
$fnum++;	$fnum++;
}	}
# Form to open or close sequences	# Form to open or close sequences
if ($filelink=~/\.(page\|sequence)$/) {	if ($filelink=~/\.(page\|sequence)$/) {
my $curdir = $startdir.$filecom[0].'/';	my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;
$anchor =~ s/\///g;
&begin_form($r,$curdir);	&begin_form($r,$curdir);
$indent--;	$indent--;
}	}
# General indentation	# General indentation
if ($indent > 0 and $indent < 11) {	if ($indent > 0 and $indent < 11) {
$r->print("<img src=",$iconpath,"whitespace",$indent,	$r->print("<img alt=\"\" src='",$iconpath,"whitespace",$indent,
".gif border='0' />\n");	".gif' class='LC_icon' />\n");
} elsif ($indent >0) {	} 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;
while ($count < $ten) {	while ($count < $ten) {
$r->print("<img src=",$iconpath,	$r->print("<img alt=\"\" src=".$iconpath.
"whitespace10.gif border='0' />\n");	"whitespace10.gif class='LC_icon' />\n");
$count++;	$count++;
}	}
$r->print("<img src=",$iconpath,"whitespace",$rem,	$r->print("<img alt=\"\" src=",$iconpath,"whitespace",$rem,
".gif border='0' />\n") if $rem > 0;	".gif class='LC_icon' />\n") if $rem > 0;
}	}
# Sequence open/close icon	# Sequence open/close icon
if ($filelink=~/\.(page\|sequence)$/) {	if ($filelink=~/\.(page\|sequence)$/) {
my $curdir = $startdir.$filecom[0].'/';	my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;	my $anchor = $curdir;
$anchor =~ s/\///g;	$anchor =~ s/\W//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.'"></a><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.'" type="image" class="LC_indexer_icon" />'.
"\n");	"\n");
}	}
# Filetype icons	# Filetype icons
$r->print("<img src='$iconname' border='0' />\n");	$r->print("<img alt=\"\" src='$iconname' class='LC_icon' />\n");
	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);

	$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink.
	"?inhibitmenu=yes','previewfile','450','500','no','yes','yes');\"".
	" target=\"_self\">$listname</a> ");
	$quotable_filelink = &Apache::loncommon::escape_single($filelink.'.meta');
	&Apache::loncommon::inhibit_menu_check(\$quotable_filelink);
	$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink.
	"?inhibitmenu=yes','metadatafile','500','550','no','yes','no');\" ".
	" target=\"_self\">".&mt('metadata')."</a>) ");
# Close form to open/close sequence	# Close form to open/close sequence
if ($filelink=~/\.(page\|sequence)$/) {	if ($filelink=~/\.(page\|sequence)$/) {
$r->print('</form>');	$r->print('</form>');
}	}
my $quotable_filelink = &Apache::loncommon::javascript_escape($filelink);	$r->print("</span></td>\n");


$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink.
"', 'previewfile', '450', '500', 'no', 'yes','yes')\";".
" TARGET=_self>$listname</a> ");

$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink.
".meta', 'metadatafile', '500', '550', 'no', 'yes','no')\"; ".
"TARGET=_self>metadata</a>) ");
$r->print("</td>\n");
if ($hash{'display_attrs_0'} == 1) {	if ($hash{'display_attrs_0'} == 1) {
my $title = &Apache::lonnet::gettitle($filelink,'title');
$r->print('<td> '.($title eq '' ? ' ' : $title).	$r->print('<td> '.($title eq '' ? ' ' : $title).
' </td>'."\n");	' </td>'."\n");
}	}
$r->print('<td align=right> ',	$r->print('<td align="right"> ',
$filecom[8]," </td>\n")	$filecom[8]," </td>\n")
if $hash{'display_attrs_1'} == 1;	if $hash{'display_attrs_1'} == 1;
$r->print('<td> '.	$r->print('<td> '.
(localtime($filecom[9]))." </td>\n")	(&Apache::lonlocal::locallocaltime($filecom[9]))." </td>\n")
if $hash{'display_attrs_2'} == 1;	if $hash{'display_attrs_2'} == 1;
$r->print('<td> '.	$r->print('<td> '.
(localtime($filecom[10]))." </td>\n")	(&Apache::lonlocal::locallocaltime($filecom[10]))." </td>\n")
if $hash{'display_attrs_3'} == 1;	if $hash{'display_attrs_3'} == 1;

if ($hash{'display_attrs_4'} == 1) {	if ($hash{'display_attrs_4'} == 1) {
Line 1033 sub display_line {	Line 1076 sub display_line {
my $source = &Apache::lonnet::metadata($filelink,'sourceavail');	my $source = &Apache::lonnet::metadata($filelink,'sourceavail');
if($source eq 'open') {	if($source eq 'open') {
my $sourcelink = &Apache::lonsource::make_link($filelink,$listname);	my $sourcelink = &Apache::lonsource::make_link($filelink,$listname);
my $quotable_sourcelink = &Apache::loncommon::javascript_escape($sourcelink);	my $quotable_sourcelink = &Apache::loncommon::escape_single($sourcelink);
	&Apache::loncommon::inhibit_menu_check(\$quotable_sourcelink);
$r->print('<td>'."<a href=\"javascript:openWindow('"	$r->print('<td>'."<a href=\"javascript:openWindow('"
.$quotable_sourcelink.	.$quotable_sourcelink.
"', 'previewsource', '700', '700', 'no', 'yes','yes')\";".	"', 'previewsource', '700', '700', 'no', 'yes','yes');\"".
" TARGET=_self>Yes</a> "."</td>\n");	" target=\"_self\">".&mt('Source Code')."</a> "."</td>\n");
} else { #A cuddled else. :P	} else { #A cuddled else. :P
$r->print("<td> </td>\n");	$r->print("<td> </td>\n");
}	}
Line 1046 sub display_line {	Line 1090 sub display_line {
# links	# links
&dynmetaread($filelink);	&dynmetaread($filelink);
$r->print('<td>');	$r->print('<td>');
	&coursecontext($r,$filelink);
&dynmetaprint($r,$filelink,'goto_list');	&dynmetaprint($r,$filelink,'goto_list');
&dynmetaprint($r,$filelink,'comefrom_list');	&dynmetaprint($r,$filelink,'comefrom_list');
&dynmetaprint($r,$filelink,'sequsage_list');	&dynmetaprint($r,$filelink,'sequsage_list');
&dynmetaprint($r,$filelink,'dependencies');	&dynmetaprint($r,$filelink,'dependencies');
	&dynmetaprint($r,$filelink,'course_list');
$r->print('</td>');	$r->print('</td>');
}	}
if ($hash{'display_attrs_7'} == 1) {	if ($hash{'display_attrs_7'} == 1) {
# Show resource	# Show resource
my $output='';	my $output=&showpreview($filelink);
my $embstyle=&Apache::loncommon::fileembstyle($curfext);	$r->print('<td> '.($output eq '' ? ' ':$output).
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 {
$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");
}	}
$r->print("</tr>\n");	$r->print("</tr>\n");
Line 1088 sub display_line {	Line 1111 sub display_line {
if ($fnptr == $dirptr) {	if ($fnptr == $dirptr) {
my $curdir = $startdir.$filecom[0].'/';	my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;	my $anchor = $curdir;
$anchor =~ s/\///g;	$anchor =~ s/\W//g;
$r->print("<tr bgcolor=$fileclr>$extrafield<td valign=$valign>");	$r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");
&begin_form ($r,$curdir);	&begin_form ($r,$curdir);
my $indentm1 = $indent-1;	my $indentm1 = $indent-1;
if ($indentm1 < 11 and $indentm1 > 0) {	if ($indentm1 < 11 and $indentm1 > 0) {
$r->print("<img src=",$iconpath,"whitespace",$indentm1,	$r->print("<img alt=\"\" src=",$iconpath,"whitespace",$indentm1,
".gif border='0' />\n");	".gif class='LC_icon' />\n");
} else {	} else {
my $ten = int($indentm1/10.);	my $ten = int($indentm1/10.);
my $rem = $indentm1%10.0;	my $rem = $indentm1%10.0;
my $count = 0;	my $count = 0;
while ($count < $ten) {	while ($count < $ten) {
$r->print ("<img src=",$iconpath	$r->print ("<img alt=\"\" src=",$iconpath
,"whitespace10.gif border='0' />\n");	,"whitespace10.gif class='LC_icon' />\n");
$count++;	$count++;
}	}
$r->print ("<img src=",$iconpath,"whitespace",$rem,	$r->print ("<img alt=\"\" src=",$iconpath,"whitespace",$rem,
".gif border='0' />\n") if $rem > 0;	".gif class='LC_icon' />\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.'"></a><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.'" type="image" class="LC_indexer_icon" />'.
"\n");	"\n");
my $quotable_curdir = &Apache::loncommon::javascript_escape($curdir);	my $quotable_curdir = &Apache::loncommon::escape_single($curdir);
$r->print ('<a href="javascript:gothere(\''	$r->print ('<a href="javascript:gothere(\''
.$quotable_curdir.'\')"><img src="'.	.$quotable_curdir.'\')">'
$iconpath.'folder_'.$diropen.'.gif" border="0" /></a>'.	.'<img alt="'.&mt('Open Folder').'"src="'.
	$iconpath.'folder_'.$diropen.'.gif" class="LC_icon" /></a>'.
"\n");	"\n");
$r->print ("$listname</td>\n");	$r->print ("$listname</form></td>\n");
# Attributes	# Attributes
my $filelink = $startdir.$filecom[0].'/default';	my $filelink = $startdir.$filecom[0].'/default';

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);
$r->print('<td> '.($title eq '' ? ' ' : $title).	$r->print('<td> '.($title eq '' ? ' ' : $title).
' </td>'."\n");	' </td>'."\n");
}	}
$r->print('<td align=right> ',	$r->print('<td align="right"> ',
$filecom[8]," </td>\n")	$filecom[8]," </td>\n")
if $hash{'display_attrs_1'} == 1;	if $hash{'display_attrs_1'} == 1;
$r->print('<td> '.	$r->print('<td> '.
(localtime($filecom[9]))." </td>\n")	(&Apache::lonlocal::locallocaltime($filecom[9]))." </td>\n")
if $hash{'display_attrs_2'} == 1;	if $hash{'display_attrs_2'} == 1;
$r->print('<td> '.	$r->print('<td> '.
(localtime($filecom[10]))." </td>\n")	(&Apache::lonlocal::locallocaltime($filecom[10]))." </td>\n")
if $hash{'display_attrs_3'} == 1;	if $hash{'display_attrs_3'} == 1;

if ($hash{'display_attrs_4'} == 1) {	if ($hash{'display_attrs_4'} == 1) {
Line 1165 sub display_line {	Line 1189 sub display_line {
if ($hash{'display_attrs_7'} == 1) {	if ($hash{'display_attrs_7'} == 1) {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}
$r->print('</form></tr>');	$r->print('</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)=@_;
	if ($filelink=~m-^(/ext/\|http://)-) {
	return &mt('External Resource, preview not enabled');
	}
	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 alt="'.&mt('Preview').'" src="'.$filelink.'" />';
	} elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) {
	$output='<img alt="'.&mt('Preview').'" src="http://'.
	&Apache::lonnet::hostname(&Apache::lonnet::homeserver($2,$1)).
	'/cgi-bin/thumbnail.gif?url='.$filelink.'" />';
	}
	return $output;
	}

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

Line 1186 sub dynmetaprint {	Line 1265 sub dynmetaprint {
sub begin_form {	sub begin_form {
my ($r,$uri) = @_;	my ($r,$uri) = @_;
my $anchor = $uri;	my $anchor = $uri;
$anchor =~ s/\///g;	$anchor =~ s/\W//g;
	$uri=&Apache::loncommon::escape_single($uri);
$r->print ('<form method="post" name="dirpath'.$dnum.'" action="'.$uri.	$r->print ('<form method="post" name="dirpath'.$dnum.'" action="'.$uri.
'#'.$anchor.	'#'.$anchor.
'" 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");
	$r->print(&Apache::loncommon::inhibit_menu_check('input'));
$dnum++;	$dnum++;
}	}

# --------- settings whenever the user causes the indexer window to be launched	# --------- settings whenever the user causes the indexer window to be launched
sub start_fresh_session {	sub start_fresh_session {
delete $hash{'form.catalogmode'};	my ($hash) = @_;
delete $hash{'form.mode'};	delete $hash->{'form.catalogmode'};
delete $hash{'form.form'};	delete $hash->{'form.mode'};
delete $hash{'form.element'};	delete $hash->{'form.form'};
delete $hash{'form.omit'};	delete $hash->{'form.element'};
delete $hash{'form.only'};	delete $hash->{'form.omit'};
foreach (keys %hash) {	delete $hash->{'form.only'};
delete $hash{$_} if (/^(pre_\|store)/);	foreach (keys %{$hash}) {
	delete $hash->{$_} if (/^(pre_\|store)/);
}	}
}	}

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

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.127
changed lines
	Added in v.1.181.2.2