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

Diff for /loncom/interface/lonindexer.pm between versions 1.177 and 1.178

version 1.177, 2007/08/17 21:33:19 version 1.178, 2007/08/17 22:27:00
Line 477  ENDHEADER Line 477  ENDHEADER
 </tr>  </tr>
 </table>  </table>
 <input type="hidden" name="attrs" value="1" />  <input type="hidden" name="attrs" value="1" />
 <label>  
 END  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{''} = 'All file types';          $select_file_categories{''} = '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} = $cat;      $select_file_categories{$types} = $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;
 $r->print(&Apache::loncommon::select_form($typeselect,'only',          my $type_element=
  %select_file_categories      &Apache::loncommon::select_form($typeselect,'only',
  ));      %select_file_categories);
 $r->print(<<END);          $type_element = '<label>'.&mt('File Type Displayed: [_1]',
 File Type Displayed</label>        $type_element).'</label>';
           $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="" />
 $closebutton $groupimportbutton  $closebutton $groupimportbutton
 END  END
         $r->print(&Apache::loncommon::inhibit_menu_check('input'));          $r->print(&Apache::loncommon::inhibit_menu_check('input'));
      
 # -------------- Filter out sequence containment in crumbs and "recent folders"  # -------------- Filter out sequence containment in crumbs and "recent folders"
  my $storeuri=$uri;   my $storeuri=$uri;
  $storeuri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1];   $storeuri='/'.(split(/\.(page|sequence)\/\//,$uri))[-1];
Removed from v.1.177  
changed lines
  Added in v.1.178

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