--- 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;
}