Changeset 18455 for gsdl/trunk/perllib/classify/Collage.pm
- Timestamp:
- 2009-02-03T09:46:33+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/Collage.pm
r17209 r18455 139 139 140 140 my $self = shift (@_); 141 my ($doc_obj ) = @_;141 my ($doc_obj,$edit_mode) = @_; 142 142 143 143 my $has_image_type = 0; … … 159 159 160 160 if ($has_image_type) { 161 161 162 my $doc_OID = $doc_obj->get_OID(); 162 push (@{$self->{'list'}}, $doc_OID); 163 164 if ($edit_mode eq "delete") { 165 $self->oid_array_delete($doc_OID,'list'); 166 } 167 else { 168 push (@{$self->{'list'}}, $doc_OID); 169 } 163 170 } 164 171
Note:
See TracChangeset
for help on using the changeset viewer.