loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.108 and 1.109

version 1.108, 2004/05/18 15:53:58	version 1.109, 2004/06/12 01:08:11
Line 52 use Apache::Constants qw(:common);	Line 52 use Apache::Constants qw(:common);
use Apache::lonmeta;	use Apache::lonmeta;
use Apache::File;	use Apache::File;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonsource();
use GDBM_File;	use GDBM_File;

# ---------------------------------------- variables used throughout the module	# ---------------------------------------- variables used throughout the module
Line 406 $r->print(&Apache::loncommon::bodytag('B	Line 407 $r->print(&Apache::loncommon::bodytag('B

# ---------------------------------- get state of file attributes to be showing	# ---------------------------------- get state of file attributes to be showing
if ($ENV{'form.attrs'}) {	if ($ENV{'form.attrs'}) {
for (my $i=0; $i<=9; $i++) {	for (my $i=0; $i<=10; $i++) {
delete $hash{'display_attrs_'.$i};	delete $hash{'display_attrs_'.$i};
if ($ENV{'form.attr'.$i} == 1) {	if ($ENV{'form.attr'.$i} == 1) {
$attrchk[$i] = 'checked';	$attrchk[$i] = 'checked';
Line 414 $r->print(&Apache::loncommon::bodytag('B	Line 415 $r->print(&Apache::loncommon::bodytag('B
}	}
}	}
} else {	} else {
for (my $i=0; $i<=9; $i++) {	for (my $i=0; $i<=10; $i++) {
$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;	$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;
}	}
}	}
Line 431 $r->print(&Apache::loncommon::bodytag('B	Line 432 $r->print(&Apache::loncommon::bodytag('B
'au' => 'Author',	'au' => 'Author',
'kw' => 'Keywords',	'kw' => 'Keywords',
'ln' => 'Language',	'ln' => 'Language',
	'sa' => 'Source Available',
'sr' => 'Show resource',	'sr' => 'Show resource',
'av' => 'All versions',	'av' => 'All versions',
'ud' => 'Update Display'	'ud' => 'Update Display'
Line 446 $r->print(&Apache::loncommon::bodytag('B	Line 448 $r->print(&Apache::loncommon::bodytag('B
<td><input type="checkbox" name="attr2" value="1" $attrchk[2] onClick="this.form.submit();" /> $lt{'la'}</td>	<td><input type="checkbox" name="attr2" value="1" $attrchk[2] onClick="this.form.submit();" /> $lt{'la'}</td>
<td><input type="checkbox" name="attr3" value="1" $attrchk[3] onClick="this.form.submit();" /> $lt{'lm'}</td>	<td><input type="checkbox" name="attr3" value="1" $attrchk[3] onClick="this.form.submit();" /> $lt{'lm'}</td>
<td><input type="checkbox" name="attr8" value="1" $attrchk[8] onClick="this.form.submit();" /> $lt{'st'}</td>	<td><input type="checkbox" name="attr8" value="1" $attrchk[8] onClick="this.form.submit();" /> $lt{'st'}</td>
	<td><input type="checkbox" name="attr10" value="1" $attrchk[10] onClick="this.form.submit();" /> $lt{'sa'}</td>
</tr><tr>	</tr><tr>
<td><input type="checkbox" name="attr4" value="1" $attrchk[4] onClick="this.form.submit();" /> $lt{'au'}</td>	<td><input type="checkbox" name="attr4" value="1" $attrchk[4] onClick="this.form.submit();" /> $lt{'au'}</td>
<td><input type="checkbox" name="attr5" value="1" $attrchk[5] onClick="this.form.submit();" /> $lt{'kw'}</td>	<td><input type="checkbox" name="attr5" value="1" $attrchk[5] onClick="this.form.submit();" /> $lt{'kw'}</td>
Line 511 END	Line 514 END
$r->print("<td><b>".&mt("Usage Statistics")." <br />(".	$r->print("<td><b>".&mt("Usage Statistics")." <br />(".
&mt("Courses/Network Hits").")</b></td>\n")	&mt("Courses/Network Hits").")</b></td>\n")
if ($hash{'display_attrs_8'} == 1);	if ($hash{'display_attrs_8'} == 1);
	$r->print("<td><b>".&mt("Source Available")."</b></td>\n")
	if ($hash{'display_attrs_10'} == 1);
$r->print('</tr>');	$r->print('</tr>');

# ----------------- read in what directories have previously been set to "open"	# ----------------- read in what directories have previously been set to "open"
Line 749 sub display_line {	Line 754 sub display_line {

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

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

# display uplink arrow	# display uplink arrow
Line 960 sub display_line {	Line 964 sub display_line {
$r->print('<td> '.($keywords eq '' ? ' ' : $keywords).	$r->print('<td> '.($keywords eq '' ? ' ' : $keywords).
" </td>\n");	" </td>\n");
}	}
	#'

if ($hash{'display_attrs_6'} == 1) {	if ($hash{'display_attrs_6'} == 1) {
my $lang = &Apache::lonnet::metadata($filelink,'language');	my $lang = &Apache::lonnet::metadata($filelink,'language');
$lang = &Apache::loncommon::languagedescription($lang);	$lang = &Apache::loncommon::languagedescription($lang);
Line 1002 sub display_line {	Line 1008 sub display_line {
$r->print('<td align=center> '.($stat eq '' ? ' ' : $stat).	$r->print('<td align=center> '.($stat eq '' ? ' ' : $stat).
' </td>'."\n");	' </td>'."\n");
}	}
	if ($hash{'display_attrs_10'} == 1) {
	my $source = &Apache::lonnet::metadata($filelink,'sourceavail');
	if($source eq 'open') {
	my $sourcelink = &Apache::lonsource::make_link($filelink);
	$r->print('<td>'."<a href=\"javascript:openWindow('".$sourcelink.
	"', 'previewsource', '700', '700', 'no', 'yes','yes')\";".
	" TARGET=_self>Yes</a> "."</td>\n");
	} else { #A cuddled else. :P
	$r->print('<td>'."</td>\n");
	}
	}
$r->print("</tr>\n");	$r->print("</tr>\n");
}	}

Line 1079 sub display_line {	Line 1095 sub display_line {
if ($hash{'display_attrs_8'} == 1) {	if ($hash{'display_attrs_8'} == 1) {
$r->print('<td> </td>');	$r->print('<td> </td>');
}	}
	if ($hash{'display_attrs_10'} == 1) {
	$r->print('<td> </td>');
	}
$r->print('</form></tr>');	$r->print('</form></tr>');
}	}

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

Removed from v.1.108
changed lines
	Added in v.1.109