#!/usr/bin/perl -w
use strict;
use CGI qw/:all/;
use exitwound::AccessData qw(&accessData);
use HTML::Template;

$|++;   # disable buffering

my $q = new CGI;
my $NodeID     = $q->param( "NodeID" );
my $ActionName = $q->param( "ActionName" );
my $NodeTitle  = $q->param( "NodeTitle" );
my $NodeDate   = $q->param( "NodeDate" );
my $NodeSection= $q->param( "NodeSection" );
my $NodeAuthor = $q->param( "NodeAuthor" );
my $NodeContent= $q->param( "NodeContent" );

if (($NodeID) and
    ($ActionName eq "Modify")) {
    $ActionName = "Update";
}
elsif ($NodeID) {
    $ActionName = "Modify";
}
else {
    $ActionName = "Insert";
    $NodeID = "Unspecified";
}

my @DisplayContent;
($NodeID, $NodeTitle, $NodeDate, $NodeSection, $NodeAuthor, $NodeContent, @DisplayContent)
    = accessData($NodeID, $NodeTitle, $NodeDate, $NodeSection, $NodeAuthor, $ActionName, $NodeContent);

my $template = HTML::Template->new(filename => 'templates/mod-node.tmpl');
$template->param(NodeSection => $NodeSection,
                 NodeTitle   => $NodeTitle,
                 NodeAuthor  => $NodeAuthor,
                 NodeDate    => $NodeDate,
                 NodeContent => $NodeContent,
                 ActionName  => $ActionName,
                 DisplayContent => @DisplayContent,
                );
print $template->output;