Webmin/ResultPage.pm

   1 package Webmin::ResultPage;
   2 use WebminCore;
   3
   4 =head2 new Webmin::ResultPage(subheading, title, message, [help-name])
   5 Create a new page object for showing some success message.
   6 =cut
   7 sub new
   8 {
   9 if (defined(&Webmin::Theme::ResultPage::new) &&
  10     caller() !~ /Webmin::Theme::ResultPage/) {
  11         return new Webmin::Theme::ResultPage(@_[1..$#_]);
  12         }
  13 my ($self, $subheading, $title, $message, $help) = @_;
  14 $self = new Webmin::Page($subheading, $title, $help);
  15 $self->add_message("<b>$message</b>");
  16 return $self;
  17 }
  18
  19 1;
  20