Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.193 and 1.228

version 1.193, 2009/03/18 13:47:14	version 1.228, 2018/08/07 17:41:40
Line 34	Line 34
## 1. Description of functions ##	## 1. Description of functions ##
## 2. Modules used by this module ##	## 2. Modules used by this module ##
## 3. Choices for different output views (detailed, summary, xml, etc) ##	## 3. Choices for different output views (detailed, summary, xml, etc) ##
## 4. BEGIN block (to be run once after compilation) ##	## 4. Handling routine called via Apache and mod_perl ##
## 5. Handling routine called via Apache and mod_perl ##	## 5. Other subroutines ##
## 6. Other subroutines ##
## ##	## ##
###############################################################################	###############################################################################

Line 60 use LONCAPA qw(:match);	Line 59 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
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 %dynhash; # hash of hashes for dynamic metadata	my %dynhash; # hash of hashes for dynamic metadata
my %dynread; # hash of directories already read for dynamic metadata	my %dynread; # hash of directories already read for dynamic metadata
my %fieldnames; # Metadata fieldnames	my %fieldnames; # Metadata fieldnames
Line 94 sub handler {	Line 92 sub handler {
undef (@Omit);	undef (@Omit);
%fieldnames=&Apache::lonmeta::fieldnames();	%fieldnames=&Apache::lonmeta::fieldnames();

# ------------------------------------- read in machine configuration variables	# --------------------------------------------------------------- get icon path
my $iconpath= $r->dir_config('lonIconsURL') . "/";	my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $domain = $r->dir_config('lonDefDomain');	my $defdom = &Apache::lonnet::default_login_domain();
my $role = $r->dir_config('lonRole');
my $loadlim = $r->dir_config('lonLoadLim');
my $servadm = $r->dir_config('lonAdmEMail');
my $sysadm = $r->dir_config('lonSysEMail');
my $lonhost = $r->dir_config('lonHostID');
my $tabdir = $r->dir_config('lonTabDir');

#SB my $fileclr='#ffffe6';	#SB my $fileclr='#ffffe6';
my $line;	my $line;
Line 120 sub handler {	Line 112 sub handler {
my $colspan='';	my $colspan='';

$extrafield='';	$extrafield='';
my $diropendb =	my $diropendb = LONCAPA::tempdir() .
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db";	"$env{'user.domain'}_$env{'user.name'}_sel_res.db";
%hash = ();	%hash = ();
{	{
my %dbfile;	my %dbfile;
Line 165 sub handler {	Line 157 sub handler {
ENDSUBM	ENDSUBM
$r->print(&Apache::loncommon::start_page(undef,$js,	$r->print(&Apache::loncommon::start_page(undef,$js,
{'only_body' =>1,	{'only_body' =>1,
	'add_modal' => 1,
	'add_wishlist' => 1,
'add_entries' =>	'add_entries' =>
{'onload' => "load();"},}	{'onload' => "load();"},}
).	).
Line 178 ENDSUBM	Line 172 ENDSUBM
# --------------------- 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') {
#SB $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.	#SB $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
$extrafield='<td valign="bottom">'.	$extrafield='<td class="LC_bottom">'.
'<img alt="" src="'.$iconpath.'whitespace1.gif"'.	'<img alt="" src="'.$iconpath.'whitespace1.gif"'.
' class="LC_icon" /></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 'import') {	elsif ($env{'form.catalogmode'} eq 'import') {
#SB $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.	#SB $extrafield='<td bgcolor="'.$fileclr.'" valign="bottom">'.
$extrafield='<td valign="bottom">'.	$extrafield='<td class="LC_bottom">'.
'<img alt="" src="'.$iconpath.'whitespace1.gif"'.	'<img alt="" src="'.$iconpath.'whitespace1.gif"'.
' class="LC_icon" /></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 321 function select_group() {	Line 315 function select_group() {

function changeURL(val) {	function changeURL(val) {
if (window.opener.document) {	if (window.opener.document) {
var elementname = "$element"+"_value";	var elementname = "$element";
var checkboxname = "$element"+"_setparmval";
window.opener.document.forms["$form"].elements[elementname].value=val;	window.opener.document.forms["$form"].elements[elementname].value=val;
window.opener.document.forms["$form"].elements[checkboxname].checked=true;
} else {	} else {
alert("The file you selected is: "+val);	alert("The file you selected is: "+val);
}	}
Line 361 END	Line 353 END

my $js = <<"ENDHEADER";	my $js = <<"ENDHEADER";
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[
$catalogmodefunctions;	$catalogmodefunctions;
function update_only(field) {	function update_only(field) {
alert(field.name);	alert(field.name);
Line 391 function uncheckAll() {	Line 384 function uncheckAll() {
}	}
}	}
}	}

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 402 function openWindow(url, wdwName, w, h,	Line 396 function openWindow(url, wdwName, w, h,
var newWin = window.open(url, wdwName, options);	var newWin = window.open(url, wdwName, options);
newWin.focus();	newWin.focus();
}	}

function gothere(val) {	function gothere(val) {
window.location=val+'?acts='+document.forms.fileattr.acts.value$inhibit_menu;	window.location=val+'?acts='+document.forms.fileattr.acts.value$inhibit_menu;
}	}
	// ]]>
</script>	</script>
ENDHEADER	ENDHEADER

my ($headerdom)=($uri=~m{^/res/($match_domain)/});	my ($headerdom)=($uri=~m{^/res/($match_domain)/});
$r->print(&Apache::loncommon::start_page('Browse Resources',$js,
{'domain' => $headerdom,}));	if ($env{'form.catalogmode'}) {
	# "Popup mode"
	$r->print(&Apache::loncommon::start_page('Browse published resources',$js,
	{'only_body' => 1, 'add_wishlist'=>1, 'add_modal' =>1,
	'domain' => $headerdom,}));
	} else {
	# Only display page header and breadcrumbs in non-popup mode
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb({
	'text' => 'Browse published resources',
	'href' => '/res/'.$headerdom.'/?launch=1',
	});
	$r->print(&Apache::loncommon::start_page('Browse published resources',$js,
	{'domain' => $headerdom,})
	.&Apache::lonhtmlcommon::breadcrumbs()
	);
	}

# ---------------------------------- get state of file types to be showing	# ---------------------------------- get state of file types to be showing
if ($env{'form.only'}) {	if ($env{'form.only'}) {
$typeselect = $env{'form.only'};	$typeselect = $env{'form.only'};
Line 429 ENDHEADER	Line 442 ENDHEADER
}	}
} else {	} else {
for (my $i=0; $i<=16; $i++) {	for (my $i=0; $i<=16; $i++) {
$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;	$attrchk[$i] = 'checked="checked"' if $hash{'display_attrs_'.$i} == 1;
}	}
}	}

	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} = &mt($cat);
	push(@select_form_order,$types);
	}
	$select_file_categories{'select_form_order'} = \@select_form_order;
	my $onchange = 'this.form.submit();';
	my $type_element=
	&Apache::loncommon::select_form(
	$typeselect,
	'only',
	\%select_file_categories,$onchange);
	my $type_selector = '<label>'.&mt('File Type Displayed: [_1]',
	$type_element).'</label>';

# ------------------------------- output state of file attributes to be showing	# ------------------------------- output state of file attributes to be showing
# All versions has to the last item	# All versions has to the last item
# since it does not take an extra col	# since it does not take an extra col
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'ti' => 'Title',
'si' => 'Size',
'la' => 'Last access',
'lm' => 'Last modified',
'st' => 'Statistics',
'au' => 'Author',
'kw' => 'Keywords',
'sb' => 'Subject',
'nt' => 'Notes',
'gl' => 'Grade Level',
'ab' => 'Abstract',
'sd' => 'Standards',
'ln' => 'Language',
'sa' => 'Source Available',
'sr' => 'Show resource',
'li' => 'Linked/Related Resources',
'av' => 'All versions',	'av' => 'All versions',
'ud' => 'Update Display',	'ud' => 'Update Display',
'pr' => 'Problems',	'pr' => 'Problems',
Line 460 ENDHEADER	Line 476 ENDHEADER
'at' => 'All types',	'at' => 'All types',
'hd' => 'Display Options'	'hd' => 'Display Options'
);	);
$r->print(<<END);	my @disp_order = ('0','4','5','6','13','1','2','3','10','14','8','11','7','12','15','16');
	my %disp_options = &Apache::lonlocal::texthash (
	0 => 'Title',
	4 => 'Author',
	5 => 'Keywords',
	6 => 'Language',
	13 => 'Notes',
	1 => 'Size',
	2 => 'Last access',
	3 => 'Last modified',
	10 => 'Source Available',
	14 => 'Abstract',
	8 => 'Statistics',
	11 => 'Linked/Related Resources',
	7 => 'Show resource',
	12 => 'Subject',
	15 => 'Grade Level',
	16 => 'Standards',
	);
	my $cell = 0;
	my $numinrow = 4;
	$r->print('
	<form method="post" name="fileattr" action="'.$uri.'" enctype="application/x-www-form-urlencoded">
<fieldset>	<fieldset>
<legend>$lt{'hd'}</legend>	<legend>'.$lt{'hd'}.'</legend>
<form method="post" name="fileattr" action="$uri"	<table style=" border-collapse: collapse; border-style: none;">'."\n");
enctype="application/x-www-form-urlencoded">	foreach my $item (@disp_order) {
<label><input type="checkbox" name="attr9" value="1" $attrchk[9] onClick="this.form.submit();" /> $lt{'av'}</label>	my $style = 'padding-left: 12px; padding-right: 8px;';
<table border="0">	if ($cell%$numinrow == 0) {
<tr>	$r->print('<tr>');
<td><label><input type="checkbox" name="attr0" value="1" $attrchk[0] onClick="this.form.submit();" /> $lt{'ti'}</label></td>	}
<td><label><input type="checkbox" name="attr4" value="1" $attrchk[4] onClick="this.form.submit();" /> $lt{'au'}</label></td>	$cell ++;
<td><label><input type="checkbox" name="attr5" value="1" $attrchk[5] onClick="this.form.submit();" /> $lt{'kw'}</label></td>	if ($cell > 3 * $numinrow) {
<td><label><input type="checkbox" name="attr6" value="1" $attrchk[6] onClick="this.form.submit();" /> $lt{'ln'}</label></td>	$style .= ' padding-bottom: 6px;';
<td><label><input type="checkbox" name="attr13" value="1" $attrchk[13] onClick="this.form.submit();" /> $lt{'nt'}</label></td>	}
<td><label><input type="checkbox" name="attr16" value="1" $attrchk[16] onClick="this.form.submit();" /> $lt{'sd'}</label></td>	if (defined($disp_options{$item})) {
</tr>	$r->print('<td style="'.$style.'"><span class="LC_nobreak">'.
<tr>	'<label><input type="checkbox" name="attr'.$item.'" value="1" '.
<td><label><input type="checkbox" name="attr1" value="1" $attrchk[1] onClick="this.form.submit();" /> $lt{'si'}</label></td>	$attrchk[$item].' onclick="this.form.submit();" /> '.$disp_options{$item}.
<td><label><input type="checkbox" name="attr2" value="1" $attrchk[2] onClick="this.form.submit();" /> $lt{'la'}</label></td>	'</label></span></td>'."\n");
<td><label><input type="checkbox" name="attr3" value="1" $attrchk[3] onClick="this.form.submit();" /> $lt{'lm'}</label></td>	}
<td><label><input type="checkbox" name="attr10" value="1" $attrchk[10] onClick="this.form.submit();" /> $lt{'sa'}</label></td>	if ($cell > 1 && $cell%$numinrow == 0) {
<td><label><input type="checkbox" name="attr14" value="1" $attrchk[14] onClick="this.form.submit();" /> $lt{'ab'}</label></td>	$r->print('</tr>');
<td> </td>	}
</tr>	}
	$r->print(<<END);
<tr>	<tr>
<td><label><input type="checkbox" name="attr8" value="1" $attrchk[8] onClick="this.form.submit();" /> $lt{'st'}</label></td>	<td style="font-style: italic; border-top: 1px solid black; padding-top: 6px">
<td><label><input type="checkbox" name="attr11" value="1" $attrchk[11] onClick="this.form.submit();" /> $lt{'li'}</label></td>	<label><input type="checkbox" name="attr9" value="1" $attrchk[9] onclick="this.form.submit();" /> $lt{'av'}</label>
<td><label><input type="checkbox" name="attr7" value="1" $attrchk[7] onClick="this.form.submit();" /> $lt{'sr'}</label></td>	</td>
<td><label><input type="checkbox" name="attr12" value="1" $attrchk[12] onClick="this.form.submit();" /> $lt{'sb'}</label></td>	<td colspan="3" style="padding-left:8px; padding-top: 4px; font-style: italic; border-top: 1px solid black; padding-top: 8px">$type_selector</td>
<td><label><input type="checkbox" name="attr15" value="1" $attrchk[15] onClick="this.form.submit();" /> $lt{'gl'}</label></td>
<td> </td>
</tr>	</tr>
</table>	</table>
<input type="hidden" name="attrs" value="1" />	<input type="hidden" name="attrs" value="1" />
END	</fieldset>
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($type_element
.'</fieldset>');
$r->print(<<END);
<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
Line 524 END	Line 542 END
$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(
(($env{'form.catalogmode'} eq 'import')?	'<p>'
'document.forms.fileattr':'')).	.&Apache::lonhtmlcommon::crumbs(
&Apache::lonhtmlcommon::select_recent('residx','resrecent',	$storeuri,
'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();'));	'',
	'',
	(($env{'form.catalogmode'} eq 'import')?
	'document.forms.fileattr':''))
	.'<br />'
	.&Apache::lonhtmlcommon::select_recent(
	'residx',
	'resrecent',
	'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();')
	.'</p>'
	);
# -------------------------------------------------------- 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("<span class=\"LC_fontsize_large\"><a href='");
if ($env{'form.catalogmode'} eq 'import') {	if ($env{'form.catalogmode'} eq 'import') {
$r->print('javascript:document.forms.fileattr.action="'.&Apache::loncommon::inhibit_menu_check($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);
}	}
$r->print("'>".&mt('Home').'</a></font>');	$r->print("'>".&mt('Home directory').'</a></span>');
}	}
$r->print('</form>');	$r->print('</form>');
# ------------------------------------------------------ Remember where we were	# ------------------------------------------------------ Remember where we were
Line 546 END	Line 574 END
&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);	&Apache::lonhtmlcommon::store_recent('residx',$storeuri,$storeuri);
# -------------------------------------------------- Check All and Uncheck all	# -------------------------------------------------- Check All and Uncheck all
if ($env{'form.catalogmode'} eq 'import') {	if ($env{'form.catalogmode'} eq 'import') {
$r->print('<br /><input type="button" value="'.&mt("Check All").'" id="checkallbutton" onClick="javascript:checkAll()" />');	$r->print('<p><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()" />');	$r->print('<input type="button" value="'.&mt("Uncheck All").'" id="uncheckallbutton" onclick="javascript:uncheckAll()" /></p>');
}	}
# ----------------- output starting row to the indexed file/directory hierarchy	# ----------------- output starting row to the indexed file/directory hierarchy
#$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('<br /><br />');	$r->print(&Apache::loncommon::start_data_table("LC_tableBrowseRes")
$r->print(&Apache::loncommon::start_data_table()
.&Apache::loncommon::start_data_table_header_row());	.&Apache::loncommon::start_data_table_header_row());
$r->print("<th $colspan>".&mt('Name')."</th>\n");	$r->print("<th $colspan>".&mt('Name')."</th>\n");
	$r->print("<th></th>\n");
$r->print("<th>".&mt('Title')."</th>\n")	$r->print("<th>".&mt('Title')."</th>\n")
if ($hash{'display_attrs_0'} == 1);	if ($hash{'display_attrs_0'} == 1);
$r->print('<th align="right">'.&mt("Size")." (".&mt("bytes").") ".	$r->print('<th class="LC_right">'.&mt("Size")." (".&mt("bytes").") ".
"</th>\n") if ($hash{'display_attrs_1'} == 1);	"</th>\n") if ($hash{'display_attrs_1'} == 1);
$r->print("<th>".&mt("Last accessed")."</th>\n")	$r->print("<th>".&mt("Last accessed")."</th>\n")
if ($hash{'display_attrs_2'} == 1);	if ($hash{'display_attrs_2'} == 1);
Line 596 END	Line 624 END


# ----------------- read in what directories have previously been set to "open"	# ----------------- read in what directories have previously been set to "open"
foreach (keys %hash) {	foreach (keys(%hash)) {
if ($_ =~ /^diropen_status_/) {	if ($_ =~ /^diropen_status_/) {
my $key = $_;	my $key = $_;
$key =~ s/^diropen_status_//;	$key =~ s/^diropen_status_//;
Line 637 END	Line 665 END
pop @uri_com;	pop @uri_com;
my $upone = join('/',@uri_com);	my $upone = join('/',@uri_com);
my @list = qw (0);	my @list = qw (0);
&display_line ($r,'opened',$upone.'&viewOneUp',0,$upone,@list);	&display_line ($r,$defdom,'opened',$upone.'&viewOneUp',0,$upone,@list);
$indent = 1;	$indent = 1;
}	}

# -------- 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,$defdom);

# -------------------------------------------------------------- end the tables	# -------------------------------------------------------------- end the tables
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
Line 670 END	Line 698 END

# ----------------------------------------------- recursive scan of a directory	# ----------------------------------------------- recursive scan of a directory
sub scanDir {	sub scanDir {
my ($r,$startdir,$indent,$hashref)=@_;	my ($r,$startdir,$indent,$hashref,$defdom)=@_;
my $c = $r->connection();	my $c = $r->connection();
my ($compuri,$curdir);	my ($compuri,$curdir);
my $dirptr=16384;	my $dirptr=16384;
Line 682 sub scanDir {	Line 710 sub scanDir {
return if ($c->aborted());	return if ($c->aborted());
#This is a kludge, sorry aboot this	#This is a kludge, sorry aboot this
my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);	my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);
next if($strip =~ /.*\.meta$/ \| $obs eq '1');	next if (($strip =~ /\.meta$/) \|\| ($obs));
	if ($dom ne 'domain') {
	my ($udom,$uname);
	if ($dom eq 'user') {
	($udom) = ($startdir =~ m{^/res/($match_domain)});
	$uname = $strip;
	} else {
	($udom,$uname) = ($startdir =~ m{^/res/($match_domain)/($match_courseid)});
	}
	if ($udom ne '' && $uname ne '') {
	# Don't display "course author" directory.
	next if (&Apache::lonnet::is_course($udom.'_'.$uname));
	}
	}
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
Line 713 sub scanDir {	Line 754 sub scanDir {
}	}
}	}
}	}
&display_line($r,$diropen,$line,$indent,$curdir,$hashref,@list);	&display_line($r,$defdom,$diropen,$line,$indent,$curdir,$hashref,@list);
&scanDir ($r,$compuri,$indent) if $diropen eq 'opened';	&scanDir ($r,$compuri,$indent,undef,$defdom) if $diropen eq 'opened';
}	}
$indent--;	$indent--;
}	}
Line 723 sub scanDir {	Line 764 sub scanDir {
sub get_list {	sub get_list {
my ($r,$uri)=@_;	my ($r,$uri)=@_;
my @list=();	my @list=();
	my $listerror;

(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 746 sub get_list {	Line 789 sub get_list {
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
} else {	} else {
# is really a directory	# is really a directory
@list = &Apache::lonnet::dirlist($uri);	(my $listref,$listerror) = &Apache::lonnet::dirlist($uri);
	if (ref($listref) eq 'ARRAY') {
	@list = @{$listref};
	}
$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;
}	}
	#Checking for error messages associated with empty directories or inaccessible servers (See Bug 4984)
	if (($listerror eq 'no_such_dir') \|\| ($listerror eq 'no_such_host') \|\| ($listerror eq 'no_host')) {
	$r->print("<p class='LC_info'>" . &mt("Directory does not exist."). "</p>");
	} elsif ($listerror eq 'con_lost') {
	$r->print("<p class='LC_info'>" . &mt("Directory temporarily not accessible."). "</p>");
	}

return @list=&match_ext($r,@list);	return @list=&match_ext($r,@list);
}	}

Line 832 sub match_ext {	Line 885 sub match_ext {

# ------------------------------- displays one line in appropriate table format	# ------------------------------- displays one line in appropriate table format
sub display_line {	sub display_line {
my ($r,$diropen,$line,$indent,$startdir,$hashref,@list)=@_;	my ($r,$defdom,$diropen,$line,$indent,$startdir,$hashref,@list)=@_;
my (@pathfn, $fndir);	my (@pathfn, $fndir);
# there could be relative paths (files actually belonging into this directory)	# there could be relative paths (files actually belonging into this directory)
# or absolute paths (for example, from sequences)	# or absolute paths (for example, from sequences)
Line 855 sub display_line {	Line 908 sub display_line {
my $fnptr = $filecom[3]&$dirptr;	my $fnptr = $filecom[3]&$dirptr;
my $msg = &mt('View').' '.$filecom[0].' '.&mt('resources');	my $msg = &mt('View').' '.$filecom[0].' '.&mt('resources');
$msg = &mt('Close').' '.$filecom[0].' '.&mt('directory') if $diropen eq 'opened';	$msg = &mt('Close').' '.$filecom[0].' '.&mt('directory') if $diropen eq 'opened';
	my $nowOpen = ($diropen eq 'opened' ? 1 : 0);

my $tabtag='</td>';	my $tabtag='</td>';
my $i=0;	my $i=0;
Line 862 sub display_line {	Line 916 sub display_line {
$tabtag=join('',$tabtag,"<td> </td>")	$tabtag=join('',$tabtag,"<td> </td>")
if ($i != 9 &&	if ($i != 9 &&
$hash{'display_attrs_'.$i} == 1);	$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 879 sub display_line {	Line 933 sub display_line {
$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.
'/" '.	'/" '.
'onSubmit="return rep_dirpath(\'UP\','.	'onsubmit="return rep_dirpath(\'UP\','.
'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(&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 ('<a href="#" onclick="document.dirpathUP.submit()"><img src="'.$iconpath.'arrow.up.gif"');
$r->print (' name="'.$msg.'" type="image" class="LC_indexer_icon" />'.	$r->print (' alt="'.$msg.'" class="LC_fileicon" />'.
"\n");	"\n");
$r->print(&mt("Up")."</form>$tabtag");	$r->print(&mt("Up")."</a></form></td><td>$tabtag");
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
return OK;	return OK;
}	}
# Do we have permission to look at this?	# Do we have permission to look at this?
	if($filecom[15] ne '1') { return OK if ((!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])) && (!&Apache::lonnet::allowed('bro',$pathprefix.$filecom[0]))); }

if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$pathprefix.$filecom[0])); }	if (($filecom[1] eq 'domain') && ($defdom ne $listname)) {
	unless (&Apache::lonnet::will_trust('shared',$listname,$defdom)) {
	return OK;
	}
	unless (&Apache::lonnet::will_trust('content',$defdom,$listname)) {
	return OK;
	}
	}

# make absolute links appear on different background	# make absolute links appear on different background
#SB if ($absolute) { $fileclr='#ccdd99'; }	#SB if ($absolute) { $fileclr='#ccdd99'; }
Line 913 sub display_line {	Line 975 sub display_line {
my $anchor = $filecom[0];	my $anchor = $filecom[0];
$anchor =~ s/\W//g;	$anchor =~ s/\W//g;
$r->print ('<a name="'.$anchor.'"></a>');	$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 ('<a href="#" onclick="document.dirpath'.($dnum-1).'.submit()"><img src="'.$iconpath.'arrow.'.($nowOpen ? "open" : "closed" ).'.gif"');
$diropen.'.gif"');	$r->print (' alt="'.$msg.'" class="LC_fileicon" /></a>'.
$r->print (' name="'.$msg.'" type="image" class="LC_indexer_icon" />'.
"\n");	"\n");
my $quotable_filecom = &Apache::loncommon::escape_single($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 alt="" src="'.$iconpath.'server.gif"');	'\')"><img alt="" src="'.$iconpath.'server.gif"');
$r->print (' class="LC_icon" /></a>'."\n");	$r->print (' class="LC_fileicon" />'."\n");
$r->print (&mt("Domain")." - $listname ");	$r->print (&mt("Domain")." - $listname </a>");
if (&Apache::lonnet::domain($listname,'description')) {	if (&Apache::lonnet::domain($listname,'description')) {
$r->print("(".&Apache::lonnet::domain($listname,'description').	$r->print("<br />(".&Apache::lonnet::domain($listname,'description').
")");	")");
}	}
$r->print("</form>$tabtag");	$r->print("</form></td><td>$tabtag");
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
return OK;	return OK;

# display user directory	# display user directory
}	}

if ($filecom[1] eq 'user') {	if ($filecom[1] eq 'user') {
	my $domain=(split(m\|/\|,$startdir))[2];
	if ($defdom ne $domain) {
	unless (&Apache::lonnet::will_trust('shared',$domain,$defdom)) {
	return OK;
	}
	unless (&Apache::lonnet::will_trust('content',$defdom,$domain)) {
	return OK;
	}
	}
# $r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield");	# $r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield");
my $curdir = $startdir.$filecom[0].'/';	my $curdir = $startdir.$filecom[0].'/';
my $anchor = $curdir;	my $anchor = $curdir;
$anchor =~ s/\W//g;	$anchor =~ s/\W//g;
#SB $r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");	#SB $r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");
$r->print(&Apache::loncommon::start_data_table_row()	$r->print(&Apache::loncommon::start_data_table_row()
.$extrafield.'<td valign="'.$valign.'">');	.$extrafield.'<td class="LC_'.$valign.'">');
&begin_form ($r,$curdir);	&begin_form ($r,$curdir);
$r->print ('<a name="'.$anchor.'"></a><img alt="" src="'.$iconpath.	$r->print ('<a name="'.$anchor.'"></a><img alt="" src="'.$iconpath.
'whitespace1.gif" class="LC_icon" />'."\n");	'whitespace_21.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 ('<a href="#" onclick="document.dirpath'.($dnum-1).'.submit()">');
'.gif"');	$r->print ('<img src="'.$iconpath.'arrow.'.($nowOpen ? "open" : "closed" ).
$r->print (' name="'.$msg.'" type="image" class="LC_indexer_icon" />'.	'.gif" class="LC_fileicon"');
	$r->print (' alt="'.$msg.'"/></a>'.
"\n");	"\n");
my $quotable_curdir = &Apache::loncommon::escape_single($curdir);	my $quotable_curdir = &Apache::loncommon::escape_single($curdir);
	my $quotable_startdir = &Apache::loncommon::escape_single($startdir);
	my $quotable_listname = &Apache::loncommon::escape_single($listname);

$r->print ('<a href="javascript:gothere(\''.$quotable_curdir	$r->print ('<a href="javascript:gothere(\''.$quotable_curdir
.'\')"><img alt="'.$msg.'" src="'.	.'\')"><img alt="'.$msg.'" src="'.
$iconpath.'quill.gif" class="LC_indexer_icon" /></a>');	$iconpath.'quill.gif" class="LC_fileicon" />');
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.'</a>');
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); }
$r->print('</form>'.$tabtag);	if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); }
	# Wishlistlink
	$r->print('</form></td><td><a href="javascript:;" '.
	'title="'.&mt('Save a link for this folder in your personal Stored Links repository').'" '.
	'onclick="set_wishlistlink('."'$plainname','$quotable_startdir$quotable_listname"."/'".')">'.
	'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '.
	'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a>'.$tabtag);
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
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 $title;
my $filelink = $pathprefix.$filecom[0];	my $filelink = $pathprefix.$filecom[0];
if ($hash{'display_attrs_0'} == 1) {	if ($hash{'display_attrs_0'} == 1) {
$title = &Apache::lonnet::gettitle($filelink);	$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 (lc($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 (lc($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);
#SB $r->print("<tr valign='$valign' bgcolor=\"$fileclr\">);	#SB $r->print("<tr valign='$valign' bgcolor=\"$fileclr\">);
$r->print(&Apache::loncommon::start_data_table_row()); #SB valign="$valign" ?!?	$r->print(&Apache::loncommon::start_data_table_row()); #SB valign="$valign" ?!?
$r->print('<td valign="top"><span class="LC_nobreak">');	$r->print('<td class="LC_middle LC_nobreak">');

if ($env{'form.catalogmode'} eq 'interactive') {	if ($env{'form.catalogmode'} eq 'interactive') {
my $quotable_filelink = &Apache::loncommon::escape_single($filelink);	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
Line 991 sub display_line {	Line 1072 sub display_line {
$quotable_filelink,"')\">");	$quotable_filelink,"')\">");
$r->print("<img alt=\"\" src='",$iconpath,"select.gif' class='LC_icon' /></a>".	$r->print("<img alt=\"\" src='",$iconpath,"select.gif' class='LC_icon' /></a>".
"\n");	"\n");
$r->print('</span></td><td valign="top"><span class="LC_nobreak">');	$r->print('</td><td class="LC_middle">');
} elsif ($env{'form.catalogmode'} eq 'import') {	} elsif ($env{'form.catalogmode'} eq 'import') {
$r->print("<form name='form$fnum' action=''>\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></span></td><td valign="top"><span class="LC_nobreak">');	$r->print('</form></td><td class="LC_middle">');
$hash{"pre_${fnum}_link"}=$filelink;	$hash{"pre_${fnum}_link"}=$filelink;
$hash{"pre_${fnum}_title"}=$title;	$hash{"pre_${fnum}_title"}=$title;
if (!$hash{"pre_${fnum}_title"}) {	if (!$hash{"pre_${fnum}_title"}) {
Line 1016 sub display_line {	Line 1097 sub display_line {
$indent--;	$indent--;
}	}
# General indentation	# General indentation
if ($indent > 0 and $indent < 16) {
$r->print("<img alt=\"\" src='",$iconpath,"whitespace",$indent,
".gif' class='LC_icon' />\n");
} elsif ($indent >0) {
my $ten = int($indent/10.);
my $rem = $indent%10.0;
my $count = 0;	my $count = 0;
while ($count < $ten) {	while ($count < $indent) {
$r->print("<img alt=\"\" src=".$iconpath.	$r->print('<img alt="" src="'.$iconpath.'whitespace_21.gif"
"whitespace10.gif class='LC_icon' />\n");	class="LC_icon" />');
$count++;	$count++;
}	}
$r->print("<img alt=\"\" src=",$iconpath,"whitespace",$rem,
".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/\W//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.'"></a><input src="'.$iconpath.	$r->print ('<a name="'.$anchor.'"></a>');
'folder_pointer_'.$diropen.'.gif"');	$r->print ('<a href="#" onclick="document.dirpath'.($dnum-1).'.submit()">');
$r->print (' name="'.$msg.'" type="image" class="LC_indexer_icon" />'.	$r->print ('<img src="'.$iconpath.'arrow.'.($nowOpen ? "open" : "closed" ).
	'.gif" class="LC_fileicon"');
	$r->print (' alt="'.$msg.'" /></a>'.
"\n");	"\n");
}	}
# Filetype icons	# Filetype icons
$r->print("<img alt=\"\" src='$iconname' class='LC_icon' />\n");	$r->print("<img alt=\"\" src='$iconname' class='LC_fileicon' />\n");
my $quotable_filelink = &Apache::loncommon::escape_single($filelink);	my $quotable_filelink = &Apache::loncommon::escape_single($filelink);
	my $quotable_startdir = Apache::loncommon::escape_single($startdir);
	my $quotable_listname = &Apache::loncommon::escape_single($listname);

$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink.	$r->print (" <a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes');\">$listname</a> ");
"?inhibitmenu=yes','previewfile','450','500','no','yes','yes');\"".
" target=\"_self\">$listname</a> ");
$quotable_filelink = &Apache::loncommon::escape_single($filelink.'.meta');	$quotable_filelink = &Apache::loncommon::escape_single($filelink.'.meta');
&Apache::loncommon::inhibit_menu_check(\$quotable_filelink);	&Apache::loncommon::inhibit_menu_check(\$quotable_filelink);
$r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink.	$r->print (" (<a href=\"javascript:openMyModal('".$quotable_filelink."?inhibitmenu=yes',500,500,'yes');\">".&mt('metadata')."</a>) ");
"?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>');
}	}
$r->print("</span></td>\n");	$r->print("</td>\n");
	# Wishlistlink
	$r->print('<td><a href="javascript:;" title="'.&mt('Save a link for this resource in your personal Stored Links repository').'" '.
	'onclick="set_wishlistlink('."'".&Apache::lonnet::gettitle($filelink).
	"','$quotable_startdir$quotable_listname'".')">'.
	'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '.
	'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a></td>');
if ($hash{'display_attrs_0'} == 1) {	if ($hash{'display_attrs_0'} == 1) {
$r->print('<td> '.($title eq '' ? ' ' : $title).	$r->print('<td> '.($title eq '' ? ' ' : $title).
' </td>'."\n");	' </td>'."\n");
}	}
$r->print('<td align="right"> ',	$r->print('<td class="LC_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 class="LC_nobreak"> '.
(&Apache::lonlocal::locallocaltime($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 class="LC_nobreak"> '.
(&Apache::lonlocal::locallocaltime($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) {
my $author = &Apache::lonnet::metadata($filelink,'author');	my $author = &Apache::lonnet::metadata($filelink,'author');
$r->print('<td> '.($author eq '' ? ' ' : $author).	$r->print('<td class="LC_nobreak"> '.($author eq '' ? ' ' : $author).
" </td>\n");	" </td>\n");
}	}
if ($hash{'display_attrs_5'} == 1) {	if ($hash{'display_attrs_5'} == 1) {
Line 1095 sub display_line {	Line 1173 sub display_line {
# statistics	# statistics
&dynmetaread($filelink);	&dynmetaread($filelink);
$r->print("<td>");	$r->print("<td>");
&dynmetaprint($r,$filelink,'count');
&dynmetaprint($r,$filelink,'course');	for (qw(count course stdno avetries difficulty disc clear technical
&dynmetaprint($r,$filelink,'stdno');	correct helpful depth)) {
&dynmetaprint($r,$filelink,'avetries');
&dynmetaprint($r,$filelink,'difficulty');	dynmetaprint($r,$filelink,$_);
&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");	$r->print(" </td>\n");

}	}
Line 1128 sub display_line {	Line 1202 sub display_line {
&dynmetaread($filelink);	&dynmetaread($filelink);
$r->print('<td>');	$r->print('<td>');
&coursecontext($r,$filelink);	&coursecontext($r,$filelink);
&dynmetaprint($r,$filelink,'goto_list');	for (qw(goto_list comefrom_list sequsage_list dependencies course_list)) {
&dynmetaprint($r,$filelink,'comefrom_list');	dynmetaprint($r,$filelink,$_);
&dynmetaprint($r,$filelink,'sequsage_list');	}
&dynmetaprint($r,$filelink,'dependencies');
&dynmetaprint($r,$filelink,'course_list');
$r->print('</td>');	$r->print('</td>');
}	}

Line 1141 sub display_line {	Line 1213 sub display_line {
if ($hash{'display_attrs_7'} == 1) {	if ($hash{'display_attrs_7'} == 1) {
# Show resource	# Show resource
my $output=&showpreview($filelink);	my $output=&showpreview($filelink);
$r->print('<td> '.($output eq '' ? ' ':$output).	$r->print('<td class="LC_fontsize_medium">'.($output eq '' ? ' ':$output).
" </td>\n");	" </td>\n");
}	}

Line 1188 sub display_line {	Line 1260 sub display_line {
#SB $r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");	#SB $r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>");
$r->print(&Apache::loncommon::start_data_table_row()); # SB: bgcolor suggestion: darkgrey ("LC_info_row"?!?)	$r->print(&Apache::loncommon::start_data_table_row()); # SB: bgcolor suggestion: darkgrey ("LC_info_row"?!?)
# $r->print('<tr class="LC_info_row">');	# $r->print('<tr class="LC_info_row">');
$r->print($extrafield.'<td valign="'.$valign.'">');	$r->print($extrafield.'<td class="LC_middle LC_nobreak">');
&begin_form ($r,$curdir);	&begin_form ($r,$curdir);
my $indentm1 = $indent-1;	my $indentm1 = $indent-1;
if ($indentm1 < 12 and $indentm1 > 0) {	my $count = 0;
$r->print("<img alt=\"\" src=",$iconpath,"whitespace",$indentm1,	while ($count < $indentm1) {
".gif class='LC_icon' />\n");	$r->print ('<img alt="" src="',$iconpath
} else {	,'whitespace_21.gif" class="LC_icon" />');
my $ten = int($indentm1/10.);	$count++;
my $rem = $indentm1%10.0;
my $count = 0;
while ($count < $ten) {
$r->print ("<img alt=\"\" src=",$iconpath
,"whitespace10.gif class='LC_icon' />\n");
$count++;
}
$r->print ("<img alt=\"\" src=",$iconpath,"whitespace",$rem,
".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.'"></a><input src="'.$iconpath.	$r->print ('<a name="'.$anchor.'"></a>');
'folder_pointer_'.$diropen.'.gif"');	$r->print ('<a href="#" onclick="document.dirpath'.($dnum-1).'.submit()"><img src="'.$iconpath.
$r->print (' name="'.$msg.'" type="image" class="LC_indexer_icon" />'.	'arrow.'.($nowOpen ? "open" : "closed" ).'.gif"');
	$r->print (' alt="'.$msg.'" class="LC_fileicon" /></a>'.
"\n");	"\n");
my $quotable_curdir = &Apache::loncommon::escape_single($curdir);	my $quotable_curdir = &Apache::loncommon::escape_single($curdir);
$r->print ('<a href="javascript:gothere(\''	my $quotable_startdir = &Apache::loncommon::escape_single($startdir);
.$quotable_curdir.'\')">'	my $quotable_listname = &Apache::loncommon::escape_single($listname);
.'<img alt="'.&mt('Open Folder').'"src="'.
$iconpath.'folder_'.$diropen.'.gif" class="LC_icon" /></a>'.	my $location = &Apache::loncommon::lonhttpdurl("/adm/lonIcons");
"\n");	my $icon = "navmap.folder.".($nowOpen ? "open":"closed").'.gif';
$r->print ("$listname</form></td>\n");	$r->print ('<a href="javascript:gothere('
	."'$quotable_curdir'".');">'
	.'<img class="LC_fileicon" alt="'.&mt('Open Folder').'" src="'
	.$location.'/'.$icon.'" />'
	."\n");
	$r->print ("$listname</a></form>");
	# Wishlistlink
	$r->print('</td><td><a href="javascript:;" '.
	'title="'.&mt('Save a link for this folder in Stored Links').'" '.
	'onclick="set_wishlistlink('."'$listname','$quotable_startdir$quotable_listname"."/'".')">'.
	'<img class="LC_icon" src="/res/adm/pages/wishlist.png" '.
	'alt="'.&mt('save in Stored Links').'" style="width:22px;"/></a></td>');
# Attributes	# Attributes
my $filelink = $startdir.$filecom[0].'/default';	my $filelink = $startdir.$filecom[0].'/default';

Line 1226 sub display_line {	Line 1301 sub display_line {
$r->print('<td> '.($title eq '' ? ' ' : $title).	$r->print('<td> '.($title eq '' ? ' ' : $title).
' </td>'."\n");	' </td>'."\n");
}	}
$r->print('<td align="right"> ',	$r->print('<td class="LC_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 class="LC_break"> '.
(&Apache::lonlocal::locallocaltime($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 class="LC_break"> '.
(&Apache::lonlocal::locallocaltime($filecom[10]))." </td>\n")	(&Apache::lonlocal::locallocaltime($filecom[10]))." </td>\n")
if $hash{'display_attrs_3'} == 1;	if $hash{'display_attrs_3'} == 1;

Line 1262 sub display_line {	Line 1337 sub display_line {
}	}
if ($hash{'display_attrs_7'} == 1) {	if ($hash{'display_attrs_7'} == 1) {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}
if ($hash{'display_attrs_11'} == 1) {	if ($hash{'display_attrs_11'} == 1) {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}
if ($hash{'display_attrs_12'} == 1) {	if ($hash{'display_attrs_12'} == 1) {
Line 1295 sub display_line {	Line 1370 sub display_line {
" </td>\n");	" </td>\n");
}	}


$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
}	}

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

sub showpreview {	sub showpreview {
my ($filelink)=@_;	my ($filelink)=@_;
if ($filelink=~m-^(/ext/\|http://)-) {	if ($filelink=~m-^(/ext/\|https?://)-) {
return &mt('External Resource, preview not enabled');	return &mt('External Resource, preview not enabled');
}	}
my ($curfext)=($filelink=~/\.(\w+)$/);	my ($curfext)=($filelink=~/\.(\w+)$/);
Line 1344 sub showpreview {	Line 1423 sub showpreview {
close(FH);	close(FH);
}	}
}	}
$output='<font size="-2">'.$output.'</font>';
} elsif ($embstyle eq 'img') {	} elsif ($embstyle eq 'img') {
$output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />';	$output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />';
} elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) {	} elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) {
Line 1375 sub begin_form {	Line 1453 sub begin_form {
$uri=&Apache::loncommon::escape_single($uri);	$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.'" />'.
Line 1394 sub start_fresh_session {	Line 1472 sub start_fresh_session {
delete $hash->{'form.element'};	delete $hash->{'form.element'};
delete $hash->{'form.omit'};	delete $hash->{'form.omit'};
delete $hash->{'form.only'};	delete $hash->{'form.only'};
foreach (keys %{$hash}) {	foreach (keys(%{$hash})) {
delete $hash->{$_} if (/^(pre_\|store)/);	delete $hash->{$_} if (/^(pre_\|store)/);
}	}
}	}
Line 1445 This module enables a scheme of browsing	Line 1523 This module enables a scheme of browsing
This is part of the LearningOnline Network with CAPA project	This is part of the LearningOnline Network with CAPA project
described at http://www.lon-capa.org.	described at http://www.lon-capa.org.

=head1 BEGIN SUBROUTINE

This routine is only run once after compilation.

=over 4

=item *

Initializes %language hash table.

=back

=head1 HANDLER SUBROUTINE	=head1 HANDLER SUBROUTINE

This routine is called by Apache and mod_perl.	This routine is called by Apache and mod_perl.

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.193
changed lines
	Added in v.1.228