--- loncom/interface/lonindexer.pm 2009/02/03 18:21:41 1.187
+++ loncom/interface/lonindexer.pm 2009/03/18 13:47:14 1.193
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.187 2009/02/03 18:21:41 bisitz Exp $
+# $Id: lonindexer.pm,v 1.193 2009/03/18 13:47:14 jms Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -420,7 +420,7 @@ ENDHEADER
# ---------------------------------- get state of file attributes to be showing
if ($env{'form.attrs'}) {
- for (my $i=0; $i<=14; $i++) {
+ for (my $i=0; $i<=16; $i++) {
delete $hash{'display_attrs_'.$i};
if ($env{'form.attr'.$i} == 1) {
$attrchk[$i] = 'checked';
@@ -428,7 +428,7 @@ ENDHEADER
}
}
} else {
- for (my $i=0; $i<=14; $i++) {
+ for (my $i=0; $i<=16; $i++) {
$attrchk[$i] = 'checked' if $hash{'display_attrs_'.$i} == 1;
}
}
@@ -446,7 +446,9 @@ ENDHEADER
'kw' => 'Keywords',
'sb' => 'Subject',
'nt' => 'Notes',
+ 'gl' => 'Grade Level',
'ab' => 'Abstract',
+ 'sd' => 'Standards',
'ln' => 'Language',
'sa' => 'Source Available',
'sr' => 'Show resource',
@@ -471,6 +473,7 @@ ENDHEADER
+
@@ -478,12 +481,14 @@ ENDHEADER
+
+
@@ -581,6 +586,10 @@ END
if ($hash{'display_attrs_13'} == 1);
$r->print("
".&mt("Abstract")."
\n")
if ($hash{'display_attrs_14'} == 1);
+ $r->print("
".&mt("Grade Level")."
\n")
+ if ($hash{'display_attrs_15'} == 1);
+ $r->print("
".&mt("Standards")."
\n")
+ if ($hash{'display_attrs_16'} == 1);
$r->print(&Apache::loncommon::end_data_table_header_row());
@@ -849,11 +858,11 @@ sub display_line {
my $tabtag='';
my $i=0;
- while ($i<=14) {
+ while ($i<=16) {
$tabtag=join('',$tabtag,"
")
if ($i != 9 &&
$hash{'display_attrs_'.$i} == 1);
- $i++;
+ $i++;
}
my $valign = ($hash{'display_attrs_7'} == 1 ? 'top' : 'bottom');
@@ -1007,7 +1016,7 @@ sub display_line {
$indent--;
}
# General indentation
- if ($indent > 0 and $indent < 14) {
+ if ($indent > 0 and $indent < 16) {
$r->print("\n");
} elsif ($indent >0) {
@@ -1154,6 +1163,18 @@ sub display_line {
" \n");
}
+ if ($hash{'display_attrs_15'} == 1) {
+ my $gradelevel = &Apache::lonnet::metadata($filelink,'gradelevel');
+ $r->print('
'.($gradelevel eq '' ? ' ' : $gradelevel).
+ "
\n");
+ }
+
+ if ($hash{'display_attrs_16'} == 1) {
+ my $standards = &Apache::lonnet::metadata($filelink,'standards');
+ $r->print('
'.($standards eq '' ? ' ' : $standards).
+ "
\n");
+ }
+
$r->print(&Apache::loncommon::end_data_table_row());
}
@@ -1262,6 +1283,18 @@ sub display_line {
" \n");
}
+ if ($hash{'display_attrs_15'} == 1) {
+ my $gradelevel = &Apache::lonnet::metadata($filelink,'gradelevel');
+ $r->print('
'.($gradelevel eq '' ? ' ' : $gradelevel).
+ "
\n");
+ }
+
+ if ($hash{'display_attrs_16'} == 1) {
+ my $standards = &Apache::lonnet::metadata($filelink,'standards');
+ $r->print('