Merge branch 'new/bug11240'

diff --git a/members/memberentry.pl b/members/memberentry.pl
index 4b410a7..e7f07a9 100755 (executable)
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -104,7 +104,11 @@ foreach my $d ( @debarments_to_remove ) {
 if ( $input->param('add_debarment') ) {
 
     my $expiration = $input->param('debarred_expiration');
-    $expiration = $expiration ? output_pref( dt_from_string($expiration), 'iso' ) : undef;
+    $expiration =
+      $expiration
+      ? output_pref(
+        { 'dt' => dt_from_string($expiration), 'dateformat' => 'iso' } )
+      : undef;
 
     AddUniqueDebarment(
         {