#!/usr/local/bin/perl -w

use strict;
use CGI;

use CGI::Carp qw(fatalsToBrowser);

use lib '/home/web/lauan.com';
$ENV{HTML_TEMPLATE_ROOT} = '/home/web/lauan.com';
use Lauan::DB;
use Lauan::Press;
use HTML::Template;

my $cgi = new CGI;
my $db = new Lauan::DB($cgi);
my $press = new Lauan::Press($db->dbh());

my %fdat = $db->vars();

my ($template);

if ($fdat{press_id}) {
   $template = press_item_template($fdat{press_id});

} else {
   $template = listing_template($press);
}

print $cgi->header();
print $template->output();


sub press_item_template {
   my ($press_id) = @_;
    
   my $template = new HTML::Template('filename' => 'press_item.tmpl',
				      'die_on_bad_params' => 0,);

   my $press_item = $press->get_press_item($press_id);
   $template->param($press_item) if $press_item;
   $template->param('press_release' => '1') if $press_item->{pub_id} eq "1";

   $template->param('page_title' => "Press");

   return $template;
}


sub listing_template {
   my ($press) = @_;
    
   my $template = new HTML::Template('filename' => 'press_list.tmpl',
				      'die_on_bad_params' => 0,);

   my $pr_list = $press->get_press_list('pr');
   my $press_list = $press->get_press_list();
      
   $template->param('pr_list' => $pr_list) if $pr_list;
   $template->param('press_list' => $press_list) if $press_list;

   $template->param('page_title' => "Press");

   return $template;
}