[Bio] / Clearinghouse / utils.pm Repository:
ViewVC logotype

Diff of /Clearinghouse/utils.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Mon May 2 21:31:43 2005 UTC revision 1.2, Tue May 3 17:38:19 2005 UTC
# Line 6  Line 6 
6  use strict;  use strict;
7  use base 'Exporter';  use base 'Exporter';
8    
9    use HTML;
10  use Clearinghouse::ch_database;  use Clearinghouse::ch_database;
11    
12  our @EXPORT = qw(check_types  our @EXPORT = qw(check_types
13                  get_lock                  get_lock
14                  release_lock                  release_lock
15                     get_page_header
16                  );                  );
17    
18    sub get_page_header
19    {
20        my @page_header = &HTML::compute_html_header(undef, undef,
21                                                     header_name => 'clearinghouse.hdr',
22                                                     tail_name => 'clearinghouse.tail',
23                                                     no_fig_search => 1,
24                                                     no_release_info => 1);
25        return join("\n", @page_header);
26    }
27    
28  sub check_types {  sub check_types {
29          my ($type) = @_;          my ($type) = @_;
30          my $db = db_init();          my $db = db_init();
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3