[Bio] / FortyEight / WebPage / Error.pm Repository:
ViewVC logotype

View of /FortyEight/WebPage/Error.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Fri May 11 19:19:39 2007 UTC (13 years, 2 months ago) by paarmann
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, rast_rel_2008_06_18, rast_rel_2008_06_16, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07, HEAD
*** empty log message ***

package WebPage::Error;

use base qw( WebApp::WebPage );

1;

=pod

=head1 NAME

Error - display an error page for the WebApplication Server

=head1 DESCRIPTION

WebPage module to display an error message within the context of the WebApplication web framework. This module file only defines the output method, all other functionality is inherited from WebPage.pm

=head1 METHODS

=over 4

=item * B<output> ()

Returns the html output of the Error page.

=cut

sub output {
  my ($self) = @_;
  
  my $html = "<h2>An error has occured:</h2>";
  $html .= "<p>".$self->application->error."</p>";
  
  $html .= "<p>To continue please go back to the <a href='".$self->application->url."'>start page</a>.</p>";
  
  return $html;

}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3