#!/usr/bin/perl -w
use strict;
use Apache::Request;
use Apache::Okcomputer qw(:all);
use Okcomputer::Qofbux qw(:all);
use Okcomputer::User;
use HTML::Template;

my $r = Apache::Request->new(Apache->request);
my $user = Okcomputer::User->new($r->connection->user);
my $use_tables = $r->param('tables') || 1;
my $templ_file = $use_tables ? 'purchases-tables.html' : 'purchases.html';
my $template = HTML::Template->new(filename => $templ_file,
                                   loop_context_vars => 1);

$r->content_type('text/html');
$r->send_http_header;

my $uid = $user->uid;

$template->param(title         => 'purchases',
		 name          => $user->name,
		 menu          => qofbux_menu('purchases'),
		 purchases_by  => purchases_by_user($uid),
		 purchases_for => purchases_for_user($uid),
		);
print $template->output;