##--------------------------------------------------------------------
## SUBROUTINE: header 
## ARGUMENTS:  2 strings 
## RETURNS:    void 
## PURPOSE:    sends cgi header to client browser, starts html, 
##             displays string 1 in window titlebar, displays string 2
##			   as bold page heading between 2 horiz colorbar images. 
##--------------------------------------------------------------------
sub header {

	my ($title, $heading) = @_;

	print $cgi->header();
	print $cgi->start_html(-title=>$title,
		-bgcolor=>'#E6E6E6', -link=>'darkred', -vlink=>'darkred',
		-alink=>'darkred');

	print "
	<table>\n
	<tr>\n
	<td align=left><img src='images/banner.jpg'></td>\n
	<td align=right valign=center><img src='images/cc_logo.jpg'></td>\n
	</tr>\n
	</table>\n
	<img src='images/colorbar.jpg' width='100%'>\n
	<font face='verdana','arial','helvetica' size='2' color='darkred'>\n
	<b>$heading</b>\n
	</font>\n
	<img src='images/colorbar.jpg' width='100%'>\n";
}

##--------------------------------------------------------------------
## SUBROUTINE: trailer 
## ARGUMENTS:  none 
## RETURNS:    void
## PURPOSE:    ends html output. 
##--------------------------------------------------------------------
sub trailer {

	print $cgi->end_html();
}