--- loncom/interface/lonhtmlcommon.pm 2009/04/25 16:53:13 1.208 +++ loncom/interface/lonhtmlcommon.pm 2009/05/20 20:27:37 1.217 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.208 2009/04/25 16:53:13 www Exp $ +# $Id: lonhtmlcommon.pm,v 1.217 2009/05/20 20:27:37 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -74,10 +74,18 @@ Successful completion of an operation me =cut sub confirm_success { - my ($message)=@_; - return ''. - $message. - ' '; + my ($message,$failure)=@_; + if ($failure) { + return ''."\n" + .' '."\n" + .$message."\n" + .''."\n"; + } else { + return ''."\n" + .' '."\n" + .$message."\n" + .''."\n"; + } } ############################################## @@ -972,7 +980,7 @@ sub Create_PrgWin { popwin=open(\'\',\'popwin\',\'width=400,height=100\');". "popwin.document.writeln(\'".$start_page. "