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

Annotation of /WebApplication/SimpleWebPage.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (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 :     my $url = $application->url . "?page=$page";
56 : olson 1.2
57 :     my $username = ref($user) ? $user->login : "";
58 :     my $output = $self->page_content($fig, $cgi, $username, $url);
59 : olson 1.1
60 :     return $output;
61 :     }
62 :    
63 :    
64 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3