[BACK]Return to lonindexer.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.181.4.4 and 1.181.4.5

version 1.181.4.4, 2010/01/28 00:01:13 version 1.181.4.5, 2010/03/31 00:41:44
Line 437  ENDHEADER Line 437  ENDHEADER
     }      }
  }   }
   
 # ------------------------------- output state of file attributes to be showing  
 #                                 All versions has to the last item  
 #                                 since it does not take an extra col  
  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',  
                                            'ab' => 'Abstract',  
    'ln' => 'Language',  
                                            'gl' => 'Grade Level',  
                                            'sd' => 'Standards',  
    'sa' => 'Source Available',  
    'sr' => 'Show resource',  
    'li' => 'Linked/Related Resources',  
    'av' => 'All versions',  
    'ud' => 'Update Display',  
    'pr' => 'Problems',  
    'gr' => 'Graphics',  
    'at' => 'All types',  
                                            'hd' => 'Display Options',  
    );  
  $r->print(<<END);  
 <fieldset>  
 <legend>$lt{'hd'}</legend>  
 <form method="post" name="fileattr" action="$uri" enctype="application/x-www-form-urlencoded">  
 <label><input type="checkbox" name="attr9" value="1" $attrchk[9] onclick="this.form.submit();" /> $lt{'av'}</label>  
 <table border="0">  
 <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>  
 <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="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>  
 <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="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="attr14" value="1" $attrchk[14] onclick="this.form.submit();" /> $lt{'ab'}</label></td>  
 <td>&nbsp;</td>  
 </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="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="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>&nbsp;</td>  
 </tr>  
 </table>  
 <input type="hidden" name="attrs" value="1" />  
 END  
         my @file_categories = &Apache::loncommon::filecategories();          my @file_categories = &Apache::loncommon::filecategories();
         my %select_file_categories;          my %select_file_categories;
         my @select_form_order = ('');          my @select_form_order = ('');
         $select_file_categories{''} = &mt('All file types');          $select_file_categories{''} = &mt('All file types');
         foreach my $cat (@file_categories) {          foreach my $cat (@file_categories) {
     my $types = join(",",&Apache::loncommon::filecategorytypes($cat));              my $types = join(",",&Apache::loncommon::filecategorytypes($cat));
     $select_file_categories{$types} = &mt($cat);              $select_file_categories{$types} = &mt($cat);
     push(@select_form_order,$types);              push(@select_form_order,$types);
  }          }
         $select_file_categories{'select_form_order'} = \@select_form_order;          $select_file_categories{'select_form_order'} = \@select_form_order;
         my $type_element=          my $type_element=
             &Apache::loncommon::select_form(              &Apache::loncommon::select_form(
                 $typeselect,                  $typeselect,
                 'only',                  'only',
                 %select_file_categories);                  %select_file_categories);
         $type_element = '<label>'.&mt('File Type Displayed: [_1]',          my $type_selector = '<label>'.&mt('File Type Displayed: [_1]',
       $type_element).'</label>';                                            $type_element).'</label>';
         $r->print($type_element  
                  .'</fieldset>');  # ------------------------------- output state of file attributes to be showing
   #                                 All versions has to the last item
   #                                 since it does not take an extra col
   
           my %lt=&Apache::lonlocal::texthash(
                                              'av' => 'All versions',
                                              'ud' => 'Update Display',
                                              'pr' => 'Problems',
                                              'gr' => 'Graphics',
                                              'at' => 'All types',
                                              'hd' => 'Display Options'
                                              );
           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>
   <legend><b>'.$lt{'hd'}.'</b></legend>
   <table style=" border-collapse: collapse; border-style: none;">'."\n");
           foreach my $item (@disp_order) {
               my $style = 'padding-left: 12px; padding-right: 8px;';
               if ($cell%$numinrow == 0) {
                   $r->print('<tr>');
               }
               $cell ++;
               if ($cell > 3 * $numinrow) {
                   $style .= ' padding-bottom: 6px;';
               }
               if (defined($disp_options{$item})) {
                   $r->print('<td style="'.$style.'"><span class="LC_nobreak">'.
                             '<label><input type="checkbox" name="attr'.$item.'" value="1" '.
                             $attrchk[$item].' onclick="this.form.submit();" /> '.$disp_options{$item}.
                             '</label></span></td>'."\n");
               }
               if ($cell > 1 && $cell%$numinrow == 0) {
                   $r->print('</tr>');
               }
           }
         $r->print(<<END);          $r->print(<<END);
 <br />  <tr>
   <td style="font-style: italic; border-top: 1px solid black; padding-top: 6px">
   <label><input type="checkbox" name="attr9" value="1" $attrchk[9] onclick="this.form.submit();" /> $lt{'av'}</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>
   </tr>
   </table>
   <input type="hidden" name="attrs" value="1" />
   </fieldset>
 <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 585  END Line 589  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")          $r->print("<td><b>".&mt("Subject")."</b></td>\n")
             if ($hash{'display_attrs_12'} == 1);              if ($hash{'display_attrs_12'} == 1);
         $r->print("<th>".&mt("Notes")."</th>\n")          $r->print("<td><b>".&mt("Notes")."</b></td>\n")
             if ($hash{'display_attrs_13'} == 1);              if ($hash{'display_attrs_13'} == 1);
         $r->print("<th>".&mt("Abstract")."</th>\n")          $r->print("<td><b>".&mt("Abstract")."</b></td>\n")
             if ($hash{'display_attrs_14'} == 1);              if ($hash{'display_attrs_14'} == 1);
         $r->print("<th>".&mt("Grade Level")."</th>\n")          $r->print("<td><b>".&mt("Grade Level")."</b></td>\n")
             if ($hash{'display_attrs_15'} == 1);              if ($hash{'display_attrs_15'} == 1);
         $r->print("<th>".&mt("Standards")."</th>\n")          $r->print("<td><b>".&mt("Standards")."</b></td>\n")
             if ($hash{'display_attrs_16'} == 1);              if ($hash{'display_attrs_16'} == 1);
  $r->print('</tr>');   $r->print('</tr>');
   
Removed from v.1.181.4.4  
changed lines
  Added in v.1.181.4.5

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