oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more bug fixes

Browse source
This commit is contained in:
JT Smith 2005-02-23 20:42:09 +00:00
parent 1dc555e078
commit 7e0a5b13b9
8 changed files with 37 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Storage/Image.pm
View file

@ -106,6 +106,25 @@ sub generateThumbnail {
#-------------------------------------------------------------------
=head2 getFiles ( )
Returns an array reference of the files in this storage location.
=cut
sub getFiles {
my $self = shift;
my $files = $self->SUPER::getFiles;
my @newFiles;
foreach my $file (@{$files}) {
next if $file =~ /^thumb-/;
push (@newFiles,$file);
}
return \@newFiles;
}
#-------------------------------------------------------------------
=head2 getThumbnailUrl ( filename )