Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, October 16, 2026
[BACK] [TXT][DIR] Up to [Platon] / web-apps / fastcgi-gallery / _modules

Diff for web-apps/fastcgi-gallery/_modules/gallery.pm between version 1.4 and 1.5

version 1.4, 2005/10/18 12:51:47 version 1.5, 2005/10/18 12:57:19
Line 10 
Line 10 
 # 2005-07-19 - created  # 2005-07-19 - created
 #  #
   
 # $Platon: web-apps/fastcgi-gallery/_modules/gallery.pm,v 1.3 2005/10/18 12:50:30 rajo Exp $  # $Platon: web-apps/fastcgi-gallery/_modules/gallery.pm,v 1.4 2005/10/18 12:51:47 rajo Exp $
   
 package gallery;  package gallery;
   
Line 1099  sub get_subentries_count($$;)
Line 1099  sub get_subentries_count($$;)
         my $img_pattern         = ($self->config('GalleryImgFile') or '\.(jpe?g|png|tiff?|ppm)$');          my $img_pattern         = ($self->config('GalleryImgFile') or '\.(jpe?g|png|tiff?|ppm)$');
   
         opendir(DIR, "$topdir/$dir") or return $data;          opendir(DIR, "$topdir/$dir") or return $data;
         my @files       = grep { !/^\./ && -f "$topdir/$dir/$_" } readdir (DIR);          my @files       = grep { !/^\./ && !/^CVS$/ && -f "$topdir/$dir/$_" } readdir (DIR);
         rewinddir(DIR);          rewinddir(DIR);
         my @dirs        = grep { !/^\./ && -d "$topdir/$dir/$_" } readdir (DIR);          my @dirs        = grep { !/^\./ && !/^CVS$/ && -d "$topdir/$dir/$_" } readdir (DIR);
         closedir(DIR);          closedir(DIR);
   
         my @new_files = ();          my @new_files = ();
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top