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

Annotation of /WebApplication/SimpleWebPage.pm

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : olson 1.1 package SimpleWebPage;
2 :    
3 :     use base qw( WebPage );
4 :    
5 :     use strict;
6 :     use warnings;
7 :    
8 :    
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 :     my $output = $self->page_content($fig, $cgi, $user->login, $url);
57 :    
58 :     return $output;
59 :     }
60 :    
61 :    
62 :     1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3