--- loncom/interface/lonwishlist.pm 2013/04/10 22:12:43 1.17 +++ loncom/interface/lonwishlist.pm 2013/06/18 13:23:42 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility-routines for wishlist # -# $Id: lonwishlist.pm,v 1.17 2013/04/10 22:12:43 raeburn Exp $ +# $Id: lonwishlist.pm,v 1.18 2013/06/18 13:23:42 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1786,25 +1786,28 @@ SCRIPT # Returns the HTML-Markup for the page, shown when a link was set sub makePageSet { - # start_page - my $startPage = &Apache::loncommon::start_page('Stored Links',undef, - {'only_body' => 1}); + my $title = 'Stored Links'; + + # start_page + my $output = + &Apache::loncommon::start_page($title,undef, + {'only_body' => 1}) + .'

'.&mt($title).'

'; # confirm success and offer link to wishlist - my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Link successfully saved!')); - $message = &Apache::loncommon::confirmwrapper($message); - - my $inner .= '
'.$message.'

'. - ''.&mt('Go to Stored Links').''.(' ' x 3). - ''.&mt('Close this window').''; + $output .= + &Apache::loncommon::confirmwrapper( + &Apache::lonhtmlcommon::confirm_success( + &mt('Link successfully saved!'))) + .&Apache::lonhtmlcommon::actionbox( + [''.&mt('Go to Stored Links').'', + ''.&mt('Close this window').'' + ]); # end_page - my $endPage = &Apache::loncommon::end_page(); + $output .= &Apache::loncommon::end_page(); - # put all page-elements together - my $page = $startPage.$inner.$endPage; - - return $page; + return $output; }