File tree Expand file tree Collapse file tree 1 file changed +4
-3
lines changed
lib/HTFeed/PackageType/IA Expand file tree Collapse file tree 1 file changed +4
-3
lines changed Original file line number Diff line number Diff line change @@ -29,6 +29,7 @@ sub run {
2929 if (not defined $resolution or !$resolution ) {
3030 $resolution = $volume -> get_meta_xpc()-> findvalue(" //ppi" );
3131 }
32+ $resolution =~ s / ppi// ;
3233
3334 # decompress any lossless JPEG2000 images
3435 my @jp2 = glob (" $preingest_dir /*.jp2" );
@@ -63,7 +64,6 @@ sub run {
6364 ) if @tiffs ;
6465
6566 opendir (my $dirh , " $preingest_dir " ) or croak(" Can't opendir $preingest_dir : $! " );
66-
6767 while (my $file = readdir ($dirh )) {
6868 next unless $file =~ / (\d {4})\. jp2$ / ;
6969
@@ -82,8 +82,9 @@ sub run {
8282 if (my $capture_time = $self -> get_capture_time($file )) {
8383 $set_if_undefined_fields -> {' XMP-tiff:DateTime' } = $capture_time ;
8484 }
85-
86- $set_if_undefined_fields -> {' Resolution' } = $resolution if defined $resolution and $resolution ;
85+ if (defined $resolution and $resolution ) {
86+ $set_if_undefined_fields -> {' Resolution' } = $resolution ;
87+ }
8788
8889 $self -> remediate_image(
8990 $jp2_submitted ,
You can’t perform that action at this time.
0 commit comments