Changeset 30853
- Timestamp:
- 2016-09-29T17:07:52+13:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/manifest.pm
r30601 r30853 182 182 my ($expat, $element) = @_; 183 183 184 print STDERR "@@@@ element: $element\n";184 #print STDERR "@@@@ element: $element\n"; 185 185 186 186 if ($element eq "Filename") … … 189 189 my $filename = $self->{'item-val'}; 190 190 191 print STDERR "@@@@ filename: $filename\n";191 #print STDERR "@@@@ filename: $filename\n"; 192 192 193 193 $self->{$filetype}->{$filename} = 1;
Note:
See TracChangeset
for help on using the changeset viewer.