version 1.181.2.1, 2008/12/13 15:33:04
|
version 1.181.4.1, 2009/05/21 00:36:16
|
Line 418 ENDHEADER
|
Line 418 ENDHEADER
|
|
|
# ---------------------------------- 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<=16; $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 426 ENDHEADER
|
Line 426 ENDHEADER
|
} |
} |
} |
} |
} else { |
} else { |
for (my $i=0; $i<=11; $i++) { |
for (my $i=0; $i<=16; $i++) { |
$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1; |
$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1; |
} |
} |
} |
} |
Line 442 ENDHEADER
|
Line 442 ENDHEADER
|
'st' => 'Statistics', |
'st' => 'Statistics', |
'au' => 'Author', |
'au' => 'Author', |
'kw' => 'Keywords', |
'kw' => 'Keywords', |
|
'sb' => 'Subject', |
|
'nt' => 'Notes', |
|
'ab' => 'Abstract', |
'ln' => 'Language', |
'ln' => 'Language', |
|
'gl' => 'Grade Level', |
|
'sd' => 'Standards', |
'sa' => 'Source Available', |
'sa' => 'Source Available', |
'sr' => 'Show resource', |
'sr' => 'Show resource', |
'li' => 'Linked/Related Resources', |
'li' => 'Linked/Related Resources', |
Line 450 ENDHEADER
|
Line 455 ENDHEADER
|
'ud' => 'Update Display', |
'ud' => 'Update Display', |
'pr' => 'Problems', |
'pr' => 'Problems', |
'gr' => 'Graphics', |
'gr' => 'Graphics', |
'at' => 'All types' |
'at' => 'All types', |
|
'hd' => 'Display Options', |
); |
); |
$r->print(<<END); |
$r->print(<<END); |
|
<fieldset> |
|
<legend>$lt{'hd'}</legend> |
<form method="post" name="fileattr" action="$uri" |
<form method="post" name="fileattr" action="$uri" |
enctype="application/x-www-form-urlencoded"> |
enctype="application/x-www-form-urlencoded"> |
<label><input type="checkbox" name="attr9" value="1" $attrchk[9] onClick="this.form.submit();" /> $lt{'av'}</label> |
<label><input type="checkbox" name="attr9" value="1" $attrchk[9] onClick="this.form.submit();" /> $lt{'av'}</label> |
Line 462 ENDHEADER
|
Line 470 ENDHEADER
|
<td><label><input type="checkbox" name="attr4" value="1" $attrchk[4] onClick="this.form.submit();" /> $lt{'au'}</label></td> |
<td><label><input type="checkbox" name="attr4" value="1" $attrchk[4] onClick="this.form.submit();" /> $lt{'au'}</label></td> |
<td><label><input type="checkbox" name="attr5" value="1" $attrchk[5] onClick="this.form.submit();" /> $lt{'kw'}</label></td> |
<td><label><input type="checkbox" name="attr5" value="1" $attrchk[5] onClick="this.form.submit();" /> $lt{'kw'}</label></td> |
<td><label><input type="checkbox" name="attr6" value="1" $attrchk[6] onClick="this.form.submit();" /> $lt{'ln'}</label></td> |
<td><label><input type="checkbox" name="attr6" value="1" $attrchk[6] onClick="this.form.submit();" /> $lt{'ln'}</label></td> |
|
<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> |
</tr> |
</tr> |
<tr> |
<tr> |
<td><label><input type="checkbox" name="attr1" value="1" $attrchk[1] onClick="this.form.submit();" /> $lt{'si'}</label></td> |
<td><label><input type="checkbox" name="attr1" value="1" $attrchk[1] onClick="this.form.submit();" /> $lt{'si'}</label></td> |
<td><label><input type="checkbox" name="attr2" value="1" $attrchk[2] onClick="this.form.submit();" /> $lt{'la'}</label></td> |
<td><label><input type="checkbox" name="attr2" value="1" $attrchk[2] onClick="this.form.submit();" /> $lt{'la'}</label></td> |
<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="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> |
<td><label><input type="checkbox" name="attr10" value="1" $attrchk[10] onClick="this.form.submit();" /> $lt{'sa'}</label></td> |
|
<td><label><input type="checkbox" name="attr14" value="1" $attrchk[14] onClick="this.form.submit();" /> $lt{'ab'}</label></td> |
|
<td> </td> |
</tr> |
</tr> |
<tr> |
<tr> |
<td><label><input type="checkbox" name="attr8" value="1" $attrchk[8] onClick="this.form.submit();" /> $lt{'st'}</label></td> |
<td><label><input type="checkbox" name="attr8" value="1" $attrchk[8] onClick="this.form.submit();" /> $lt{'st'}</label></td> |
<td><label><input type="checkbox" name="attr11" value="1" $attrchk[11] onClick="this.form.submit();" /> $lt{'li'}</label></td> |
<td><label><input type="checkbox" name="attr11" value="1" $attrchk[11] onClick="this.form.submit();" /> $lt{'li'}</label></td> |
<td><label><input type="checkbox" name="attr7" value="1" $attrchk[7] onClick="this.form.submit();" /> $lt{'sr'}</label></td> |
<td><label><input type="checkbox" name="attr7" value="1" $attrchk[7] onClick="this.form.submit();" /> $lt{'sr'}</label></td> |
|
<td><label><input type="checkbox" name="attr12" value="1" $attrchk[12] onClick="this.form.submit();" /> $lt{'sb'}</label></td> |
|
<td><label><input type="checkbox" name="attr15" value="1" $attrchk[15] onClick="this.form.submit();" /> $lt{'gl'}</label></td> |
<td> </td> |
<td> </td> |
</tr> |
</tr> |
</table> |
</table> |
Line 493 END
|
Line 507 END
|
%select_file_categories); |
%select_file_categories); |
$type_element = '<label>'.&mt('File Type Displayed: [_1]', |
$type_element = '<label>'.&mt('File Type Displayed: [_1]', |
$type_element).'</label>'; |
$type_element).'</label>'; |
|
$r->print($type_element |
|
.'</fieldset>'); |
$r->print(<<END); |
$r->print(<<END); |
$type_element |
|
<br /> |
<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="" /> |
Line 542 END
|
Line 557 END
|
$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); |
Line 563 END
|
Line 578 END
|
if ($hash{'display_attrs_11'} == 1); |
if ($hash{'display_attrs_11'} == 1); |
$r->print("<td><b>".&mt("Resource")."</b></td>\n") |
$r->print("<td><b>".&mt("Resource")."</b></td>\n") |
if ($hash{'display_attrs_7'} == 1); |
if ($hash{'display_attrs_7'} == 1); |
|
$r->print("<th>".&mt("Subject")."</th>\n") |
|
if ($hash{'display_attrs_12'} == 1); |
|
$r->print("<th>".&mt("Notes")."</th>\n") |
|
if ($hash{'display_attrs_13'} == 1); |
|
$r->print("<th>".&mt("Abstract")."</th>\n") |
|
if ($hash{'display_attrs_14'} == 1); |
|
$r->print("<th>".&mt("Grade Level")."</th>\n") |
|
if ($hash{'display_attrs_15'} == 1); |
|
$r->print("<th>".&mt("Standards")."</th>\n") |
|
if ($hash{'display_attrs_16'} == 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 830 sub display_line {
|
Line 855 sub display_line {
|
|
|
my $tabtag='</td>'; |
my $tabtag='</td>'; |
my $i=0; |
my $i=0; |
while ($i<=11) { |
while ($i<=16) { |
$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); |
Line 854 sub display_line {
|
Line 879 sub display_line {
|
'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 ('<input src="'.$iconpath.'arrow_up.gif"'); |
Line 978 sub display_line {
|
Line 1003 sub display_line {
|
$indent--; |
$indent--; |
} |
} |
# General indentation |
# General indentation |
if ($indent > 0 and $indent < 11) { |
if ($indent > 0 and $indent < 16) { |
$r->print("<img alt=\"\" src='",$iconpath,"whitespace",$indent, |
$r->print("<img alt=\"\" src='",$iconpath,"whitespace",$indent, |
".gif' class='LC_icon' />\n"); |
".gif' class='LC_icon' />\n"); |
} elsif ($indent >0) { |
} elsif ($indent >0) { |
Line 1058 sub display_line {
|
Line 1083 sub display_line {
|
# statistics |
# statistics |
&dynmetaread($filelink); |
&dynmetaread($filelink); |
$r->print("<td>"); |
$r->print("<td>"); |
&dynmetaprint($r,$filelink,'count'); |
for (qw(count course stdno avetries difficulty disc clear technical |
&dynmetaprint($r,$filelink,'course'); |
correct helpful depth)) { |
&dynmetaprint($r,$filelink,'stdno'); |
|
&dynmetaprint($r,$filelink,'avetries'); |
&dynmetaprint($r,$filelink,$_); |
&dynmetaprint($r,$filelink,'difficulty'); |
} |
&dynmetaprint($r,$filelink,'disc'); |
|
&dynmetaprint($r,$filelink,'clear'); |
|
&dynmetaprint($r,$filelink,'technical'); |
|
&dynmetaprint($r,$filelink,'correct'); |
|
&dynmetaprint($r,$filelink,'helpful'); |
|
&dynmetaprint($r,$filelink,'depth'); |
|
$r->print(" </td>\n"); |
$r->print(" </td>\n"); |
|
|
} |
} |
Line 1091 sub display_line {
|
Line 1110 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'); |
$r->print('</td>'); |
&dynmetaprint($r,$filelink,'course_list'); |
|
$r->print('</td>'); |
|
} |
} |
if ($hash{'display_attrs_7'} == 1) { |
if ($hash{'display_attrs_7'} == 1) { |
# Show resource |
# Show resource |
Line 1104 sub display_line {
|
Line 1121 sub display_line {
|
$r->print('<td> '.($output eq '' ? ' ':$output). |
$r->print('<td> '.($output eq '' ? ' ':$output). |
" </td>\n"); |
" </td>\n"); |
} |
} |
|
if ($hash{'display_attrs_12'} == 1) { |
|
my $subject = &Apache::lonnet::metadata($filelink,'subject'); |
|
$r->print('<td> '.($subject eq '' ? ' ' : $subject). |
|
" </td>\n"); |
|
} |
|
|
|
if ($hash{'display_attrs_13'} == 1) { |
|
my $notes = &Apache::lonnet::metadata($filelink,'notes'); |
|
$r->print('<td> '.($notes eq '' ? ' ' : $notes). |
|
" </td>\n"); |
|
} |
|
|
|
if ($hash{'display_attrs_14'} == 1) { |
|
my $abstract = &Apache::lonnet::metadata($filelink,'abstract'); |
|
$r->print('<td> '.($abstract eq '' ? ' ' : $abstract). |
|
" </td>\n"); |
|
} |
|
|
|
if ($hash{'display_attrs_15'} == 1) { |
|
my $gradelevel = &Apache::lonnet::metadata($filelink,'gradelevel'); |
|
$r->print('<td> '.($gradelevel eq '' ? ' ' : $gradelevel). |
|
" </td>\n"); |
|
} |
|
|
|
if ($hash{'display_attrs_16'} == 1) { |
|
my $standards = &Apache::lonnet::metadata($filelink,'standards'); |
|
$r->print('<td> '.($standards eq '' ? ' ' : $standards). |
|
" </td>\n"); |
|
} |
|
|
$r->print("</tr>\n"); |
$r->print("</tr>\n"); |
} |
} |
|
|
Line 1115 sub display_line {
|
Line 1162 sub display_line {
|
$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 < 16 and $indentm1 > 0) { |
$r->print("<img alt=\"\" src=",$iconpath,"whitespace",$indentm1, |
$r->print("<img alt=\"\" src=",$iconpath,"whitespace",$indentm1, |
".gif class='LC_icon' />\n"); |
".gif class='LC_icon' />\n"); |
} else { |
} else { |
Line 1150 sub display_line {
|
Line 1197 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 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> '. |
Line 1183 sub display_line {
|
Line 1230 sub display_line {
|
if ($hash{'display_attrs_10'} == 1) { |
if ($hash{'display_attrs_10'} == 1) { |
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |
if ($hash{'display_attrs_11'} == 1) { |
|
$r->print('<td> </td>'); |
|
} |
|
if ($hash{'display_attrs_7'} == 1) { |
if ($hash{'display_attrs_7'} == 1) { |
$r->print('<td> </td>'); |
$r->print('<td> </td>'); |
} |
} |
|
if ($hash{'display_attrs_12'} == 1) { |
|
my $subject = &Apache::lonnet::metadata($filelink,'subject'); |
|
$r->print('<td> '.($subject eq '' ? ' ' : $subject). |
|
" </td>\n"); |
|
} |
|
if ($hash{'display_attrs_11'} == 1) { |
|
$r->print('<td> </td>'); |
|
} |
|
if ($hash{'display_attrs_12'} == 1) { |
|
my $subject = &Apache::lonnet::metadata($filelink,'subject'); |
|
$r->print('<td> '.($subject eq '' ? ' ' : $subject). |
|
" </td>\n"); |
|
} |
|
if ($hash{'display_attrs_13'} == 1) { |
|
my $notes = &Apache::lonnet::metadata($filelink,'notes'); |
|
$r->print('<td> '.($notes eq '' ? ' ' : $notes). |
|
" </td>\n"); |
|
} |
|
if ($hash{'display_attrs_14'} == 1) { |
|
my $abstract = &Apache::lonnet::metadata($filelink,'abstract'); |
|
$r->print('<td> '.($abstract eq '' ? ' ' : $abstract). |
|
" </td>\n"); |
|
} |
|
if ($hash{'display_attrs_15'} == 1) { |
|
my $gradelevel = &Apache::lonnet::metadata($filelink,'gradelevel'); |
|
$r->print('<td> '.($gradelevel eq '' ? ' ' : $gradelevel). |
|
" </td>\n"); |
|
} |
|
if ($hash{'display_attrs_16'} == 1) { |
|
my $standards = &Apache::lonnet::metadata($filelink,'standards'); |
|
$r->print('<td> '.($standards eq '' ? ' ' : $standards). |
|
" </td>\n"); |
|
} |
$r->print('</tr>'); |
$r->print('</tr>'); |
} |
} |
|
|