loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.364, 2013/01/18 13:22:26	version 1.365, 2013/03/18 23:21:16
Line 4423 ENDREDIR	Line 4423 ENDREDIR
$cdom,$cnum);	$cdom,$cnum);
$contrib{'deleted'} =~ s/^\.//;	$contrib{'deleted'} =~ s/^\.//;
$contrib{'deleted'} =~ s/\.$//;	$contrib{'deleted'} =~ s/\.$//;
my $confirm_msg = '';	my $confirm_msg;
if ($contrib{'deleted'} ne '') {	if ($contrib{'deleted'} ne '') {
if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'},	if (&Apache::lonnet::store({'deleted' => ''},$symb,$env{'request.course.id'},
$cdom,$cnum) eq 'ok') {	$cdom,$cnum) eq 'ok') {
Line 4451 ENDREDIR	Line 4451 ENDREDIR
$uname,$udom,$env{'request.course.id'},	$uname,$udom,$env{'request.course.id'},
'undelete');	'undelete');
}	}
$confirm_msg .= &Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries"));	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Undeleted all entries"));
} else {	} else {
$confirm_msg .= &Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1);	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("Failed to undelete entries"),1);
}	}
} else {	} else {
$confirm_msg .= &Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1);	$confirm_msg = &Apache::lonhtmlcommon::confirm_success(&mt("No entries to undelete"),1);
}	}
$r->print(	$r->print(
'<br />'	'<br />'