define prototype for reply_message_nl() for natural language

modified to use it

1 files changed, 20 insertions, 1 deletions

diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 4d4ea657..75b28da3 100644
--- a/fml/lib/FML/Process/Kernel.pm
+++ b/fml/lib/FML/Process/Kernel.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Kernel.pm,v 1.53 2001/10/08 20:25:53 fukachan Exp $
+# $FML: Kernel.pm,v 1.54 2001/10/10 03:15:19 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -526,6 +526,25 @@ sub reply_message
 }
 
 
+=head2 C<reply_message_nl($class, $default_msg, $args)>
+
+This is a wrapper for C<reply_message()> with natural language support.
+The message in natural language corresponding with C<$class> is sent.
+If translation fails, $default_msg, English by default, is used.
+
+We need parameters in some cases. 
+They are stored in $args if needed.
+
+=cut
+
+
+sub reply_message_nl
+{
+    my ($curproc, $class, $default_msg, $args) = @_;
+    $curproc->reply_message($default_msg);
+}
+
+
 =head2 C<inform_reply_messages($args)>
 
 inform the error messages to the sender or maintainer.