--- loncom/interface/lonhtmlcommon.pm	2009/04/07 15:40:38	1.207
+++ loncom/interface/lonhtmlcommon.pm	2009/04/25 16:53:13	1.208
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.207 2009/04/07 15:40:38 amueller Exp $
+# $Id: lonhtmlcommon.pm,v 1.208 2009/04/25 16:53:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -62,6 +62,23 @@ use Apache::lonlocal;
 use Apache::lonnet;
 use LONCAPA;
 
+##############################################
+##############################################
+
+=pod
+
+=item confirm_success
+
+Successful completion of an operation message
+
+=cut
+
+sub confirm_success {
+   my ($message)=@_;
+   return '<span class="LC_success_confirm">'.
+          $message.
+          ' <img src="/adm/lonIcons/navmap.correct.gif" /></span>';
+}
 
 ##############################################
 ##############################################