Changeset 4759

Timestamp:

Jan 27, 2010, 8:34:20 AM (14 years ago)

Author:

ronosman

Message:

Bug 1069 fixed : too many photos automatically removed from selection

File:

• extensions/pLoader/trunk/src/Uploader/ImageList.pm (modified) (2 diffs)

extensions/pLoader/trunk/src/Uploader/ImageList.pm

@@ -418 +418 @@
 sub _remove_image_list {
     my ( $self, $list ) = @_;
-
-    # higher first, to keep same indexes during remove
-    my @images = reverse @$list;     
+    # the list is sorted, ascendant
+    # we reverse it to have
+    # higher first, and keep same indexes during remove
+    @$list = reverse @$list;     
     map {
         $self->DeleteImage($_);
         splice @{$self->sums}, $_, 1 ;
         $self->wx_thumb_imglist->Remove($_);
-        shift @images;
-    }
-    @images;
+        shift @$list;
+    }
+    @$list;
 }
 
@@ -1251 +1252 @@
     # set default values only if not defined
     # || operator is not used because 0 is a choice value
+    # and woukd replace a valid choice with a default value
     $self->reupload_action_files(1) 
         unless defined $self->reupload_action_files;