-$data->{'dateenrolled'} = format_date( $data->{'dateenrolled'} );
-$data->{'dateexpiry'} = format_date( $data->{'dateexpiry'} );
-$data->{'dateofbirth'} = format_date( $data->{'dateofbirth'} );
-$data->{'IS_ADULT'} = ( $data->{'categorycode'} ne 'I' );
-
-if ( $data->{'debarred'}
- || $data->{'gonenoaddress'}
- || $data->{'lost'}
- || $data->{'borrowernotes'} )
-{
- $template->param( flagged => 1 );
+$debug and printf STDERR "dates (enrolled,expiry,birthdate) raw: (%s, %s, %s)\n", map {$data->{$_}} qw(dateenrolled dateexpiry dateofbirth);
+foreach (qw(dateenrolled dateexpiry dateofbirth)) {
+ my $userdate = $data->{$_};
+ unless ($userdate) {
+ $debug and warn sprintf "Empty \$data{%12s}", $_;
+ $data->{$_} = '';
+ next;
+ }
+ $userdate = C4::Dates->new($userdate,'iso')->output('syspref');
+ $data->{$_} = $userdate || '';
+ $template->param( $_ => $userdate );