Changeset 4803 for extensions/pLoader
- Timestamp:
- Jan 30, 2010, 5:34:35 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/ImageList.pm
r4801 r4803 27 27 use Uploader::Image; 28 28 use Data::Dumper; 29 use List::MoreUtils qw/uniq/;30 29 use Storable; 31 30 use Digest::MD5::File qw/file_md5_hex md5_hex/; … … 1410 1409 @{$self->image_selection_tags}, 1411 1410 ]; 1412 @$tags = uniq @$tags; 1411 #deduplicate 1412 my $uniq = { 1413 map { $_ => 1 } @$tags 1414 }; 1415 @$tags = keys %$uniq; 1413 1416 $self->GetImage($_)->site_tags( 1414 1417 $tags
Note: See TracChangeset
for help on using the changeset viewer.