#!/usr/bin/perl

BEGIN {
$|=1;
print "Content-type: text/html\n\n";
use CGI::Carp('fatalsToBrowser');
}

use strict;
use CGI qw(:standard escapeHTML);
use HTML::Template;
use rbs_db_connect; # Gets database connection and root directory 
use rbs_functions;

my $DEBUG = 0;

# Fix directory architecture and establish name of CGI/HTML default
my $dir = $data_dir;
$0 =~ /.*?([^\/]*).cgi\s*$/;
my $file = $1;

# Get input params
my $letter = param('letter');
my $userId = param('userid');

if (!$userId && !$letter) {
	$userId = 275 if !$userId; # V.QUICK patch to default to the first (currently!) member - Amery. 
}

# Set appropriate HTML template 
my $filename = "$dir/$file.html";


# Default to display all A sculptors if no letter entered
$letter = "A" if !$letter;
my $alphabet = &getAlphabet($letter, $file);

my $users = &getUsers($userId, $letter);
	
my $template = HTML::Template->new(filename => $filename,
	  		           die_on_bad_params => 0,
	  		           loop_context_vars => 1,
	  		           global_vars => 1,
    				  );

$template->param(
                userid        => $userId,
                letter        => $letter,
                                              
		alphabet_loop => $alphabet,
		user_loop     => $users,
		file          => $file,
						
		);     
     
print $template->output;

1;