[Bio] / WebApplication / SimpleWebPage.pm Repository:
ViewVC logotype

Annotation of /WebApplication/SimpleWebPage.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (view) (download) (as text)

1 : olson 1.1 package SimpleWebPage;
2 :    
3 :     use base qw( WebPage );
4 :    
5 :     use strict;
6 :     use warnings;
7 : olson 1.2 use SubsystemPrimer;
8 : olson 1.1
9 :     1;
10 :    
11 :     =pod
12 :    
13 :     =head1 NAME
14 :    
15 :     SimpleWebPage
16 :    
17 :     =head1 DESCRIPTION
18 :    
19 :    
20 :     =head1 METHODS
21 :    
22 :     =over 4
23 :    
24 :     =item * B<init> ()
25 :    
26 :     Called when the web page is instanciated.
27 :    
28 :     =cut
29 :    
30 :     sub init {
31 :     my ($self) = @_;
32 :    
33 :     $self->title($self->page_title());
34 :    
35 :     return 1;
36 :     }
37 :    
38 :     =item * B<output> ()
39 :    
40 :     Returns the html output of the Annotation page.
41 :    
42 :     =cut
43 :    
44 :     sub output {
45 :     my ($self) = @_;
46 :    
47 :     my $application = $self->application;
48 :     my $cgi = $application->cgi;
49 :    
50 :     my $fig = $application->data_handle('FIG');
51 :    
52 :     my $user = $application->session->user;
53 :    
54 :     my $page = $cgi->param('page');
55 : olson 1.3 my $url = $application->url;
56 : olson 1.2
57 :     my $username = ref($user) ? $user->login : "";
58 : olson 1.3
59 :     local $SIG{__DIE__} = sub {
60 :     my $trace = Devel::StackTrace->new(frame_filter => sub {
61 :     my($dat) = @_;
62 :     return ($dat->{args}->[0] eq 'Devel::StackTrace') ? 0 : 1;
63 :     });
64 :    
65 :     die $trace->as_html;
66 :     };
67 :    
68 :     my $output;
69 :    
70 :     eval {
71 :     $output = $self->page_content($fig, $cgi, $username, $url);
72 :     };
73 :     if ($@)
74 :     {
75 :     $output = "<h1>Error during execution of page $page:</h1>" . $@;
76 :     }
77 : olson 1.1
78 :     return $output;
79 :     }
80 :    
81 :    
82 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3