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

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

version 1.178, 2007/08/17 22:27:00 version 1.180, 2008/02/15 11:06:22
Line 481  END Line 481  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{''} = &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} = $cat;      $select_file_categories{$types} = $cat;
Line 935  sub display_line { Line 935  sub display_line {
  my @file_ext = split (/\./,$listname);   my @file_ext = split (/\./,$listname);
  my $curfext = $file_ext[-1];   my $curfext = $file_ext[-1];
         if (@Omit) {          if (@Omit) {
             foreach (@Omit) { return OK if ($curfext eq $_); }              foreach (@Omit) { return OK if (lc($curfext) eq $_); }
         }          }
         if (@Only) {          if (@Only) {
             my $skip = 1;              my $skip = 1;
             foreach (@Only) { $skip = 0 if ($curfext eq $_); }              foreach (@Only) { $skip = 0 if (lc($curfext) eq $_); }
             return OK if ($skip > 0);              return OK if ($skip > 0);
         }          }
  # Set the icon for the file   # Set the icon for the file
Line 1014  sub display_line { Line 1014  sub display_line {
  &Apache::loncommon::inhibit_menu_check(\$quotable_filelink);   &Apache::loncommon::inhibit_menu_check(\$quotable_filelink);
  $r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink.   $r->print (" (<a href=\"javascript:openWindow('".$quotable_filelink.
    "?inhibitmenu=yes','metadatafile','500','550','no','yes','no');\" ".     "?inhibitmenu=yes','metadatafile','500','550','no','yes','no');\" ".
    " target=\"_self\">metadata</a>) ");     " target=\"_self\">".&mt('metadata')."</a>) ");
 # Close form to open/close sequence  # Close form to open/close sequence
  if ($filelink=~/\.(page|sequence)$/) {   if ($filelink=~/\.(page|sequence)$/) {
     $r->print('</form>');      $r->print('</form>');
Removed from v.1.178  
changed lines
  Added in v.1.180

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