--- loncom/interface/lonindexer.pm 2009/03/17 23:11:20 1.192 +++ loncom/interface/lonindexer.pm 2009/03/19 15:01:24 1.195 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.192 2009/03/17 23:11:20 droeschl Exp $ +# $Id: lonindexer.pm,v 1.195 2009/03/19 15:01:24 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; } } @@ -448,6 +448,8 @@ ENDHEADER 'nt' => 'Notes', 'ab' => 'Abstract', 'ln' => 'Language', + 'gl' => 'Grade Level', + 'sd' => 'Standards', 'sa' => 'Source Available', 'sr' => 'Show resource', 'li' => 'Linked/Related Resources', @@ -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()); @@ -850,7 +859,7 @@ 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); @@ -1149,6 +1158,18 @@ $r->print ('\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()); } @@ -1252,6 +1273,19 @@ $r->print ('\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()); }