--- loncom/interface/lonfeedback.pm 2013/01/03 20:51:23 1.363
+++ loncom/interface/lonfeedback.pm 2013/01/18 13:22:26 1.364
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.363 2013/01/03 20:51:23 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.364 2013/01/18 13:22:26 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4423,6 +4423,7 @@ ENDREDIR
$cdom,$cnum);
$contrib{'deleted'} =~ s/^\.//;
$contrib{'deleted'} =~ s/\.$//;
+ my $confirm_msg = '';
if ($contrib{'deleted'} ne '') {
if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'},
$cdom,$cnum) eq 'ok') {
@@ -4450,14 +4451,19 @@ ENDREDIR
$uname,$udom,$env{'request.course.id'},
'undelete');
}
- $r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries")));
+ $confirm_msg .= &Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries"));
} else {
- $r->print(&Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1));
+ $confirm_msg .= &Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1);
}
} else {
- $r->print(&Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1));
+ $confirm_msg .= &Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1);
}
- $r->print("
".&mt("Return and reload")."");
+ $r->print(
+ '
'
+ .&Apache::loncommon::confirmwrapper($confirm_msg)
+ .&Apache::lonhtmlcommon::actionbox(
+ ["".&mt("Return and reload").""])
+ );
}
$r->print(&Apache::loncommon::end_page());
return OK;