+ push @classic_fields, [ $info->{'ExposureCompensation'} . " EV", 0 ];
+ }
+
+ # Now piece together the rest
+ my @parts = ();
+
+ if (defined($info->{'DateTimeOriginal'}) &&
+ $info->{'DateTimeOriginal'} =~ /^(\d{4}):(\d\d):(\d\d) (\d\d):(\d\d):(\d\d)$/
+ && $1 >= 1990) {
+ push @parts, [ "$1-$2-$3 $4:$5", 0 ];
+ }
+
+ if (defined($info->{'Model'})) {
+ my $model = $info->{'Model'};
+ $model =~ s/^\s+//;
+ $model =~ s/\s+$//;
+
+ push @parts, [ ' - ', 0 ] if (scalar @parts > 0);
+ push @parts, [ $model, 0 ];