View | Details | Raw Unified | Return to bug 14924
Collapse All | Expand All

(-)a/members/memberentry.pl (-4 / +9 lines)
Lines 170-177 if ( $op eq 'insert' || $op eq 'modify' || $op eq 'save' || $op eq 'duplicate' ) Link Here
170
    foreach (qw(dateenrolled dateexpiry dateofbirth)) {
170
    foreach (qw(dateenrolled dateexpiry dateofbirth)) {
171
        next unless exists $newdata{$_};
171
        next unless exists $newdata{$_};
172
        my $userdate = $newdata{$_} or next;
172
        my $userdate = $newdata{$_} or next;
173
        if ( $userdate ) {
173
174
            $newdata{$_} = output_pref({ dt => dt_from_string( $userdate ), dateformat => 'iso', dateonly => 1 });
174
        my $formatteddate = eval { output_pref({ dt => dt_from_string( $userdate ), dateformat => 'iso', dateonly => 1 } ); };
175
        if ( $formatteddate ) {
176
            $newdata{$_} = $formatteddate;
177
        } else {
178
            ($userdate eq '0000-00-00') and warn "Data error: $_ is '0000-00-00'";
179
            $template->param( "ERROR_$_" => 1 );
180
            push(@errors,"ERROR_$_");
175
        }
181
        }
176
    }
182
    }
177
  # check permission to modify login info.
183
  # check permission to modify login info.
Lines 660-666 if (C4::Context->preference('uppercasesurnames')) { Link Here
660
666
661
foreach (qw(dateenrolled dateexpiry dateofbirth)) {
667
foreach (qw(dateenrolled dateexpiry dateofbirth)) {
662
    if ( $data{$_} ) {
668
    if ( $data{$_} ) {
663
        $data{$_} = output_pref({ dt => dt_from_string( $data{$_} ), dateonly => 1 }); # back to syspref for display
669
       $data{$_} = eval { output_pref({ dt => dt_from_string( $data{$_} ), dateonly => 1 } ); };  # back to syspref for display
664
    }
670
    }
665
    $template->param( $_ => $data{$_});
671
    $template->param( $_ => $data{$_});
666
}
672
}
667
- 

Return to bug 14924