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

Annotation of /WebApplication/SimpleWebPage.pm

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : olson 1.1 package SimpleWebPage;
2 :    
3 :     use base qw( WebPage );
4 :    
5 :     use strict;
6 :     use warnings;
7 : disz 1.4 use Devel::StackTrace::AsHTML;
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 : olson 1.3 my $output;
48 :    
49 : olson 1.8 my $application = $self->application;
50 :     my $cgi = $application->cgi;
51 : olson 1.7 my $page = $cgi->param('page');
52 :    
53 : olson 1.3 eval {
54 : olson 1.6
55 :     my $fig = $application->data_handle('FIG');
56 :    
57 :     my $user = $application->session->user;
58 :    
59 :     my $url = $application->url."?page=".$page;
60 :    
61 :     my $username = ref($user) ? $user->login : "";
62 :    
63 : olson 1.3 $output = $self->page_content($fig, $cgi, $username, $url);
64 :     };
65 :     if ($@)
66 :     {
67 :     $output = "<h1>Error during execution of page $page:</h1>" . $@;
68 :     }
69 : olson 1.1
70 :     return $output;
71 :     }
72 :    
73 :    
74 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3