<!-- Begin
/* ============================================================== */
/* This file contains five functions used throughout this site:   */
/*     do_header - generates the page header                      */
/*     do_menu - generates the dynamic menu on the left of page   */
/*     do_footer - generates the page footer                      */
/*     fit_image - adjust image to fit in browser window          */
/*     resSet - resize browser window                             */
/* ============================================================== */

/* Global logo variable */

header_logo = 'hnc-logo-horiz-text';
menu_logo   = 'hnc-logo-vert-text';
footer_logo = 'hnc-logo-smallest';
logoext  = '.gif';


/* ============================================================== */
/* do_header                                                      */
/*    Construct page header                                       */

function do_header(depth) {
/*                                                                */
/* The "depth" parameter indicates the number of levels down in   */
/* the directory structure, relative to the top, of the calling   */
/* html file.  0=top level, 1=one level down, etc.                */
/*    Default: depth=0                                            */
/*                                                                */

var dirprefix = new Array(5);  /* Calling file directory depth */
if (depth == null) depth = 0;
depth++;
dirprefix[1]='./';
dirprefix[2]='../';
dirprefix[3]='../../';
dirprefix[4]='../../../';
dirprefix[5]='../../../../';

pnpos = location.pathname.lastIndexOf('/');
thispage = location.pathname.substring(pnpos);

if (depth == 1 && (thispage == "/" || thispage == "/index.html")) {
    hdrlogoext = "-main" + logoext;
    subhdr1 = 'style="font-size: 100%;"';
    subhdr2 = 'style="font-size: 80%;"';
    slogan = 'Since 1977, serving the people<br>of North Carolina<br>affected by bleeding disorders.';
    contact = '260 Town Hall Dr., Suite A<br>Morrisville, NC 27560<br>1-800-990-5557 (toll free)';
//  contact = 'PO Box 70, Cary, NC 27512<br>1-800-990-5557 (toll free)';
}
else if (thispage.substring(0,6) == "/news-") {
    hdrlogoext = "-news" + logoext;
    subhdr1 = 'style="font-size: 75%;"';
    subhdr2 = 'style="font-size: 60%;"';
    slogan = '<br>1-800-990-5557<br>(toll free)';
    contact = '<a href="javascript:window.print()">Print This Article</a>';
}
else {
    hdrlogoext = logoext;
    subhdr1 = 'style="font-size: 85%;"';
    subhdr2 = 'style="font-size: 70%;"';
    slogan = 'Since 1977, serving the people of North Carolina<br>affected by bleeding disorders.';
    contact = '260 Town Hall Dr., Suite A, Morrisville, NC 27560<br>1-800-990-5557 (toll free)';
//  contact = '260 Town Hall Dr., Suite A, Morrisville, NC 27560 &mdash; 1-800-990-5557 (toll free)';
//  contact = 'PO Box 70, Cary, NC 27512 &mdash; 1-800-990-5557 (toll free)';
}

var hdrline = new Array(12);

hdrline[1] = '<td align="left" valign=middle>';
hdrline[2] = '	<img src="' + dirprefix[depth] + 'images/' + header_logo + hdrlogoext + '" ALT="Hemophilia of North Carolina" class=L>';
hdrline[3] = '</td>';

hdrline[4] = '<td width="15px"><br /></td>';

hdrline[5] = '<td valign=middle align=center>';

hdrline[6] = '	<h4 ' + subhdr1 + '>' + slogan + '</h4>';
hdrline[7] = '	<h5 ' + subhdr2 + '>' + contact + '</h5>';

hdrline[8] = '</td>';

/*
hdrline[1] = '<a class=external href="http://www.hemophilia-nc.org/">';
hdrline[2] = '   <img src="' + dirprefix[depth] + 'images/' + header_logo + logoext + '" ALT="Hemophilia of North Carolina">';
hdrline[3] = '   </a>';

hdrline[4] = '<h1>Hemophilia of North Carolina</h1>';
hdrline[5] = '<h3>PO Box 70, Cary, NC 27512 &mdash; 1-800-990-5557 (toll free)</h3>';
hdrline[6] = '<h5>email: <a href="mailto:info@hemophilia-nc.org">info@hemophilia-nc.org</a>';
hdrline[7] = ' &mdash; www.hemophilia-nc.org</h5>';
hdrline[8] = '<h6>In service to the people of North Carolina affected by bleeding disorders';
hdrline[9] = '</h6>';
*/

var firstline = 1;
var lastline  = 8;

for (i=firstline; i<=lastline; i++) {
	document.write(hdrline[i]);
	}

} /* End of do_header */


/* ============================================================== */
/* do_menu                                                        */
/*    Construct menu dynamically based on current page            */

function do_menu(depth, basename) {
/*                                                                */
/* The "depth" parameter indicates the number of levels down in   */
/* the directory structure, relative to the top, of the calling   */
/* html file.  0=top level, 1=one level down, etc.                */
/*    Default: depth=0                                            */
/*                                                                */
/* Each menu item must be defined in the following table.         */
/*                                                                */
/* The "refname" paramenter is the base filename of the target    */
/* page (without extension).  It overrides the calling page's     */
/* filename. The "depth" value gets prepended to this filename.   */
/* This value may be a null string (for blank menu lines) or      */
/* assigned the norefpage variable when a menu item with no       */
/* target page is desired.                                        */
/*                                                                */
/* The "menutext" is the menu text to be displayed.  It may be    */
/* asigned the variable "blanktext" if a blank line is wanted.    */
/*                                                                */
/* Menu items may be in a hierarchy up to 3 level deep, as        */
/* specified in the "menulevel variable.                          */
/* Menu items must be put in a group according to their level.    */
/* The value of the group variable is somewhat arbitrary, but     */
/* groups values must increase as the table grows downward.       */
/*                                                                */
/* The "always" variable may be true or false, depending on       */
/* whether the menu item is always displayed on every page, or    */
/* only when it, its parent, or sibling (according to group       */
/* value) is currently being displayed.                           */
/*                                                                */
/* Pages that are too deep in the hierachy to have their own      */
/* menu entry -- or when a menu item is simply not desired --     */
/* must have name containing a dollar sign ($), where the text    */
/* to the left of the $ identifies the next highest parent page   */
/* corresponding to a menu item.  The text to the right of the $  */
/* may be anything.                                               */
/*    Example: a subordinate page could be named                  */
/*        bar$foo.html                                            */
/*    making its parent page                                      */
/*        bar.html                                                */
/* ----------------------------------------------------- */
/*                                Menu   Menu  Always    */
/*  Menu Item                    Level  Group Displayed  */
/*  ---------------------------- -----  ----- ---------  */
/*  Home                          1     1      yes       */
/*  About HNC                     1     1      yes       */
/*          Bylaws                  3       3      no    */
/*      Board of Directors         2      5      yes     */
/*      Membership                 2      5      yes     */
/*      Volunteering               2      5      yes     */
/*  Bleeding Disorders            1     1      yes       */   
/*      Hemophilia                 2      7      yes     */
/*      von Willebrand Disease     2      7      yes     */
/*  Resources [no page]           1     1      yes       */   
/*      Treatment Centers          2      9      yes     */
/*      Travel Services            2      9      yes     */
/*      Other Resources            2      9      yes     */
/*  Newsletter                    1     1      yes       */   
/*  Events [no page]              1     1      yes       */   
/*      Upcoming Events            2      11     yes     */
/*      Recent Events              2      11     yes     */
/*  [blank line]                  1     1      yes       */   
/*  Contact Us                    1     1      yes       */   
/*  Donate                        1     1      yes       */   
/*  [blank line]                  1     1      yes       */   
/*  Site Map                      1     1      yes       */   
/* ----------------------------------------------------- */

var refpage   = new Array(40);  /* Reference page file name, without .html extension  */
var menutext  = new Array(40);  /* Menu item text to be displayed                     */
var menulevel = new Array(40);  /* Menu depth level                                   */
var always    = new Array(40);  /* "Always displayed" flag                            */
var grp       = new Array(40);  /* Menu Group number                                  */

var parentno  = new Array(40);  /* Index of menu item's parent (computed)             */
    /* Note that this item could be hard-coded in advance, but computing it makes it  */
    /* easier to add, remove, and rearrange menu elements.                            */

var blanktext = "[blank line]"; /* Place holder text when a blank menu item is wanted */
var blankline = "<br>";         /* HTML code to generate blank line                   */

var norefpage = "[no link]"; /* Place holder text when a menu itself has no link */

var i         = 0;
/* i++; menutext[i]="<u><i>Table of Contents</i></u>";		menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]=norefpage; */
i++; menutext[i]="Home/Table of Contents";	menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="index";                 
i++; menutext[i]="About this Site";			menulevel[i]=3; grp[i]=2; always[i]=true;  refpage[i]="about-this-site";

i++; menutext[i]="About HNC";				menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="about";
/* i++; menutext[i]="Bylaws";					menulevel[i]=3; grp[i]=3; always[i]=false; refpage[i]="bylaws"; */
/* i++; menutext[i]="Board of Directors";		menulevel[i]=2; grp[i]=5; always[i]=true;  refpage[i]="board"; */
i++; menutext[i]="Board &amp; Staff";		menulevel[i]=2; grp[i]=5; always[i]=true;  refpage[i]="board";
i++; menutext[i]="Membership";				menulevel[i]=2; grp[i]=5; always[i]=true;  refpage[i]="membership";
i++; menutext[i]="Volunteering";			menulevel[i]=2; grp[i]=5; always[i]=true;  refpage[i]="volunteering";
i++; menutext[i]="Opportunities";			menulevel[i]=3; grp[i]=6; always[i]=true;  refpage[i]="volunteer-opportunities";
i++; menutext[i]="Programs &amp; Services";	menulevel[i]=2; grp[i]=5; always[i]=true;  refpage[i]="programs-services";
i++; menutext[i]="Financial Assistance";	menulevel[i]=3; grp[i]=6.5; always[i]=true;  refpage[i]="financial-aid";
i++; menutext[i]="Scholarships";	menulevel[i]=3; grp[i]=6.5; always[i]=true;  refpage[i]="scholarships";

i++; menutext[i]="Bleeding Disorders";		menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="bleeding-disorders";    
i++; menutext[i]="Hemophilia";				menulevel[i]=2; grp[i]=7; always[i]=true;  refpage[i]="hemophilia";
i++; menutext[i]="von Willebrand Disease";	menulevel[i]=2; grp[i]=7; always[i]=true;  refpage[i]="vwd";

i++; menutext[i]="Resources";				menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]=norefpage;
i++; menutext[i]="Treatment Centers";		menulevel[i]=2; grp[i]=9; always[i]=true;  refpage[i]="treatment-centers";
i++; menutext[i]="Travel Services";			menulevel[i]=2; grp[i]=9; always[i]=true;  refpage[i]="travel-services";
i++; menutext[i]="Other Resources";			menulevel[i]=2; grp[i]=9; always[i]=true;  refpage[i]="other-resources";

i++; menutext[i]="Newsletter";				menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="newsletter";    

/* Removed 2009-08-22
i++; menutext[i]="Events";					menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]=norefpage;
i++; menutext[i]="Upcoming Events";			menulevel[i]=2; grp[i]=11; always[i]=true;  refpage[i]="upcoming-events";
i++; menutext[i]="Recent Events";			menulevel[i]=2; grp[i]=11; always[i]=true;  refpage[i]="recent-events";
*/

/* Added 2009-08-22 */
i++; menutext[i]="Recent Events";			menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="recent-events";
i++; menutext[i]="News Archives";			menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="newsarchives";

i++; menutext[i]=blanktext;					menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="";

i++; menutext[i]="Contact Us";				menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="contact";
i++; menutext[i]="Donate";					menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="donate";

i++; menutext[i]=blanktext;					menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="";

i++; menutext[i]="Site Map";				menulevel[i]=1; grp[i]=1; always[i]=true;  refpage[i]="site-map";

i++; menutext[i]=blanktext;					menulevel[i]=1; grp[i]=1; always[i]=false;  refpage[i]="errors";

var maxitems = i; /* Total number of menu items */

var dirprefix = new Array(5);  /* Calling file directory depth */
if (depth == null) depth = 0;
depth++;
dirprefix[1]='./';
dirprefix[2]='../';
dirprefix[3]='../../';
dirprefix[4]='../../../';
dirprefix[5]='../../../../';

var aclass = new Array(3); /* CSS menu item class labels */
aclass[1]='menu';
aclass[2]='sub';
aclass[3]='sub2';

var bullet    = new Array(3); /* Bullet graphics for each menu level */
bullet[1]='<img src="' + dirprefix[depth] + 'images/menu.gif" width=14px height=14px alt="*">';
bullet[2]='<img src="' + dirprefix[depth] + 'images/menu-sub1.gif" width=12px height=12px alt="-">';
bullet[3]='<img src="' + dirprefix[depth] + 'images/menu-sub2.gif" width=10px height=10px alt=".">';

var blankbull = new Array(3); /* Blank Bullet graphics for each menu level */
blankbull[1]='<img src="' + dirprefix[depth] + 'images/menu-space.gif" width=14px height=14px alt=" ">';
blankbull[2]='<img src="' + dirprefix[depth] + 'images/menu-space.gif" width=12px height=12px alt=" ">';
blankbull[3]='<img src="' + dirprefix[depth] + 'images/menu-space.gif" width=10px height=10px alt=" ">';

var ruler  ='<img src="' + dirprefix[depth] + 'images/rule05.gif" width=100px height=9px alt="------">';
var orglogo='<img src="' + dirprefix[depth] + 'images/' + menu_logo + logoext +'" alt="[HNC]" class="side">';

var adef1='<a href="' + dirprefix[depth];              /* Miscellaneous HTML code fragments for menu lines */
var adef2='" class=';
var adef3='>';
var adef4='</a>';

var adef5='<h3 class=';
var adef6='</h3>';

var ddef1='<div class=';
var ddefon='sel>';
var ddefoff='nosel>';
var ddef2='</div>';

var thisitem = 0;   /* Scratchpad variables */
var thispage = "";
var thisname = "";
var star     = "";
var ext      = "";
var extpos   = 0;

var thisurl = location.href;
var thisdir = thisurl.substring(0,thisurl.lastIndexOf('/')+1); /* This page's directory value           */

if (basename == null || basename == "") {
	if (thisdir == thisurl) {
		thispage = 'index.html';
	}
	else {
		thispage = thisurl.substring(thisdir.length,thisurl.length+1);
		/* This page's file name with extension  */
	}

	var splat   = thisname.lastIndexOf('#')	/* If we have JS pseudo-name,   */
	if (splat > -1) {                       /*   chop off the splat.        */
	thisname = thispage.substring(0,splat);
	}

	extpos   = thispage.lastIndexOf('.htm');
	if (extpos > -1) {
		thisname = thispage.substring(0,extpos);  /* This page's file name                   */
		ext = thispage.substring(extpos);         /* This page's file name extension (.html) */
	}
	else {
		thisname = thispage;
	}
}
else {
	thisname = basename;
	ext = '.html';
	thispage = thisname;
}

var dollar   = thisname.lastIndexOf('$')	/* If low-level page name,   */
if (dollar > -1) {                 /*  extract its parent menu file name */
	thisname = thispage.substring(0,dollar);
}
else {  /* Check for %24 - equivalent of dollar sign */
	var dollar   = thisname.lastIndexOf('%24')	
	if (dollar > -1) {
		thisname = thispage.substring(0,dollar);
	}
}

var lastparent = 0;
var lastgrp    = 0;

for (i=1; i<=maxitems; i++) {
	/* Run through the table to find which page is being displayed  */
	if (thisname == refpage[i]) thisitem = i;

	/* and determine each item's parent index value                 */
	if (i == 1) {
		/* Set values for first item in the menu table  */
		parentno[i] = 0;
		lastparent = parentno[i];
		lastgrp = grp[i];
	}
	else {  /* Not first item -- determine parent index  */
		if (grp[i] > lastgrp) {
			/* If group number increases since last item then last item is parent */
			lastgrp = grp[i];
			parentno[i] = i-1;
			lastparent = parentno[i];
		}
		else {
			if (grp[i] == lastgrp) {
				/* If group number is unchanged parent is unchanged */
				parentno[i] = lastparent;
			}
			else { /* grp[i] < lastgrp */
				/* If group number decreases, we skip back a level  */
				if (menulevel[i] == 1) {
					/* If highest menu level (1) then there is no parent item */
					parentno[i] = 0;
				}
				else {
					/* Otherwise parent is grandparent of previous item */
					parentno[i] = parentno[lastparent];
				}
				lastparent = parentno[i];
				lastgrp = grp[i];
			}
		}
	}
}

if (thisitem == 0) {
	/* Safety code, in case we messed up the table */
	document.write('JavaScript menu table error');
	thisitem=1;
}

/* Run through table again to display menu items */
for (i=1; i<=maxitems; i++) {
	/* Check to see whether this item gets gets highlighted */
	if (i == thisitem) {
		dsel = ddefon;
	}
	else {
		dsel = ddefoff;
	}
	/* Check to see whether this item gets a bullet */
	if (i == thisitem
	 || i == parentno[thisitem]
	 || (parentno[thisitem] != 0
	 && i == parentno[parentno[thisitem]])) {
		star = bullet[menulevel[i]];
	}
	else { /* space bullet */
		star = blankbull[menulevel[i]];
	}
	if (menutext[i] == blanktext) {
		/* Check first for a blank line */
		document.write(blankline);
	}
	else {  /* No blank */
		if (always[i]  /* Print if always display */
		 || parentno[i] == thisitem  /* or if displaying items subordinate to this page's menu item */
		 || grp[i] == grp[thisitem]) /* or if displaying items in the same group as this page's menu item */ {
		 	if (refpage[i] == norefpage) {
				document.write(ddef1 + dsel + adef5 + aclass[menulevel[i]] + adef3 + star + menutext[i] + adef6 + ddef2);
		 	}
		 	else {
				document.write(ddef1 + dsel + adef1 + refpage[i] + ext + adef2 + aclass[menulevel[i]] + adef3 + star + menutext[i] + adef4 + ddef2);
			}
		}
	}
}

document.write('<br>' + ruler);
document.write('<br><br>');
document.write('<div align="center">' + orglogo + '</div>');

/* document.write('<h4>Hemophilia<br><span style=\"display: inline; font-variant: normal; font-weight: normal; font-style: italic;\">of</span> North<br>Carolina</h4>'); */


} /* End of do_menu */


/* ============================================================== */
/* resSet (called in do_footer)                                   */
/* Resize browser window to simulate change in screen resolution. */

function resSet(w,h) {
	frm = document.forms[0];
	urlF = document.URL;
	properties  = "width=" + w;
	properties += ",height=" + h;
	properties += ",scrollbars=1,toolbar=1,location=1";
	properties += ",directories=1,status=1,menubar=1";
	properties += ",resizable=1,left=0,top=0";

	window.open(urlF,"TestRes",properties);
}


/* ============================================================== */
/* do_footer                                                      */
/* Display standard page footer.                                  */

function do_footer(depth) {
/*                                                                */
/* The "depth" parameter indicates the number of levels down in   */
/* the directory structure, relative to the top, of the calling   */
/* html file.  0=top level, 1=one level down, etc.                */
/*    Default: depth=0                                            */

/* Set logical value of testWin depending on whether you want to  */
/* enable the resolution test buttons in the signature table.     */

var produrl = 'www.upperregister.com';
var myuser = "charlie";
var mysite = "duke.edu";
var myname = "Charles Register";
var myurl  = "http://www.upperregister.com/~charlie"
var ShowSetWindowsizeButtons = false;

var contact = '260 Town Hall Dr., Suite A, Morrisville, NC 27560 &mdash; 1-800-990-5557 (toll free)';

var thisurl = location.href;
var production = thisurl.lastIndexOf('www.upperregister.com')
if (production > -1) {
	var ShowSetWindowsizeButtons = false;
	}

var dirprefix = new Array(5);  /* Calling file directory depth */
if (depth == null) depth = 0;
depth++;
dirprefix[1]='./';
dirprefix[2]='../';
dirprefix[3]='../../';
dirprefix[4]='../../../';
dirprefix[5]='../../../../';

var indexpage = dirprefix[depth] + 'index.html';
var orglogo  = dirprefix[depth] + 'images/' + footer_logo + logoext;
var exticon  = dirprefix[depth] + 'images/external.jpg';

var days = new Array(8);
    days[1] = "Sunday";
    days[2] = "Monday";
    days[3] = "Tuesday";
    days[4] = "Wednesday";
    days[5] = "Thursday";
    days[6] = "Friday";
    days[7] = "Saturday";
var months = new Array(13);
    months[1] = "January";
    months[2] = "February";
    months[3] = "March";
    months[4] = "April";
    months[5] = "May";
    months[6] = "June";
    months[7] = "July";
    months[8] = "August";
    months[9] = "September";
    months[10] = "October";
    months[11] = "November";
    months[12] = "December";
var dateObj = new Date(document.lastModified);
var wday = days[dateObj.getDay() + 1];
var lmonth = months[dateObj.getMonth() + 1];
var date = dateObj.getDate();
var fyear = dateObj.getYear();

if (fyear < 2000) {
    fyear = fyear + 1900;
    }

document.write('<table id=footerbar');
document.write('	cellpadding=\"5\" cellspacing=\"1\" border=\"0\"');
document.write('	summary=\"Signature\"');
document.write('	align=center width=\"100%\"');
document.write('	>');

document.write('<tr>');

document.write('<td class=sigbox1>');
document.write('    <a href=\"' + indexpage +'\"><img src=\"' + orglogo + '\" ');
document.write('	style=\"border: 0px solid ;\"');
document.write('	title=\"HNC\" alt=\"HNC\">');
document.write('	</a>');

/*
document.write('<td class=sigbox2>');
document.write('    <span class=sigtext1>');
document.write('    Page designed and maintained by');
document.write('    </span><br>');
document.write('    &nbsp;&nbsp;&nbsp;<a href=\"' + myurl + '\"><span class=signame>' + myname + '</span></a>');
document.write('    <br><span class=sigtext1>');
*/

document.write('<td class=sigbox2>');
document.write('    <span class=signame>');
document.write('    Hemophilia of North Carolina');
document.write('    </span>');
document.write('    <span class=sigtext1>' + contact + '</span>');

document.write('    <span class=sigtext2>Hemophilia of North Carolina is a 501(c)3 non-profit organization.<br>');
document.write('    All donations are tax-deductible.</span>');

document.write('<td class=sigbox3>');

document.write('    <span class=sigtext3>');
document.write('    <img src=\"' + exticon + '\" ');
document.write('	style=\"border: 0px solid ;\"');
document.write('	title=\"External link\" alt=\" \">');
document.write('    Indicates a link to an external site (outside of HNC)');
document.write('    </span><br>');

if (ShowSetWindowsizeButtons) {
   document.write('    <form>');
   document.write('    <input type=button value="640 x 480" style="font-size: 40%" onClick="resSet('  +  "'640','480'" + ')"> ');
   document.write('    <input type=button value="800 x 600" style="font-size: 40%" onClick="resSet('  +  "'800','600'" + ')"> ');
   document.write('    <input type=button value="1024 x 768" style="font-size: 40%" onClick="resSet(' + "'1024','768'" + ')"> ');
   document.write('    </form>');
}
else {
	document.write('    <span class=sigurl>' + thisurl + '</span><br>');
}

document.write('    <span class=sigdate2>');
document.write('    &nbsp;This page was last modified on');
document.write('  ' + wday + ", " + lmonth + " " + date + ", " + fyear + '&nbsp;');
document.write('    </span>');

document.write('</table>');

} /* End of do_footer */


/* ============================================================== */
/* fit_image                                                      */
/*    A JavaScript to dymanically adjust the display size of an   */
/*    image based on the space available in the browser window.   */
/*                                                                */
/*    Based on a script by Ed Churnside and documented at         */
/*        http://www.dragonquest.com/dplsspic.htm                 */
/*    Modified, enhanced and commented by CMR -- 11-Sep-2005      */

function fit_image(src, wd, ht, alt, etc, pct_adj_wd, pct_adj_ht, bdr_adj_wd, bdr_adj_ht) {
/* Input variables (all are positional):
     Required variables:
  		src = source image file
		wd	= original image width
		ht	= original image height
     Optional variables
		alt	= alternate text (a good idea)
		etc	= other IMG tags (e.g. align, class)
		pct_adj_w = additional percentage adjustment to width (default=100)
		pct_adj_h = additional percentage adjustment to height (default=100)
		bdr_adj_w = additional adjustment for border width (default=30px)
		bdr_adj_h = additional adjustment for border height (default=30px)
*/

if (src == null) return;

var inner_wd, inner_ht; // Note client inner width and height
if (self.innerWidth)
{
	inner_wd = self.innerWidth;
	inner_ht = self.innerHeight;
}
else if (document.documentElement && document.documentElement.clientWidth)
{
	inner_wd = document.documentElement.clientWidth;
	inner_ht = document.documentElement.clientHeight;
}
else {
	inner_wd = document.body.clientWidth;
	inner_ht = document.body.clientHeight;
}

// Set default values
if (wd == null) wd = inner_wd;
if (ht == null) ht = inner_ht;
if (alt == null) alt = " ";

if (pct_adj_wd == null) pct_adj_wd = 100;
if (pct_adj_ht == null) pct_adj_ht = 100;
if (bdr_adj_wd == null) bdr_adj_wd = 30;
if (bdr_adj_ht == null) bdr_adj_ht = 30;

// Determine maximum available dimensions (in pixels) for picture.
// Include user-supplied percentage adjustments and adjustments for borders.
var show_wd = Math.round((inner_wd - bdr_adj_wd) * pct_adj_wd / 100);
var show_ht = Math.round((inner_ht - bdr_adj_ht) * pct_adj_ht / 100);

// Check ratio of image dimensions compared to available space
if ((wd * show_ht) / (ht * show_wd) < 1) {
// Fit fully within height of window
	show_wd = Math.round(wd * show_ht / ht);
	}
else {
// Fit fully within width of window
	show_ht = Math.round(ht * show_wd / wd);
	}

// Write out the IMG statement
document.write('<img src="'+src);
document.write('    "alt="'+alt);
document.write('    "width="'+show_wd+'" height="'+show_ht+'" '+etc+'>');

} /* End of fit_image */


/* ============================================================== */
/* popImgWin                                                      */
/* Display an image in a opo-up window.                           */

function popImgWin(imgSrc,imgW,imgH,winLeft,winTop,event,caption) {
/* Input variables (all are positional):
     Required variables:
		imgSrc  = image source file
		imgW    = image width
		imgH    = image height
		winLeft = Left position of new window
		winTop  = Top position of new window
		event   = Event name
		caption = Caption text
		
   Example calling code:
		<a href="images/charlie.jpg" target="_blank"
			onclick="popImgWin('images/charlie.jpg',240,302,100,50,'The Mad Flutist'); return false;">
		<img src="images/charlie-small.jpg" 
		     width="57" height="72" border="1"
			alt="The Mad Flutist at work" align="left" /></a>

*/

var paddedH = imgH + 104;
var paddedW = imgW + 24;

var pageLine = new Array(30);

divc1="<div class=caption1>";
divc2="<div class=caption2>";
divc3="<div class=caption3>";
divoff="</div>";

var i = 0;
i++; pageLine[i]='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http:\/\/www.w3.org\/1999\/xhtml">';
i++; pageLine[i]='<head>';
i++; pageLine[i]='     <title>' + caption + '<\/title>';
i++; pageLine[i]='     <style>';
i++; pageLine[i]='		.caption1  {font-size: 110%; font-weight: bold; font-style:italic;';
i++; pageLine[i]='			color: #000066; line-height: 120%; text-align: center;}';
i++; pageLine[i]='		.caption2  {font-size: 65%; font-weight: bold; font-style:italic;';
i++; pageLine[i]='			color: #0000aa; line-height: 100%; text-align: right;}';
i++; pageLine[i]='		.caption3  {font-size: 80%; font-weight: bold; font-style:italic;';
i++; pageLine[i]='			color: #990000; line-height: 80%; text-align: left;}';
i++; pageLine[i]='     <\/style>';
i++; pageLine[i]='<\/head>';

i++; pageLine[i]='<body style="overflow:hidden;';
i++; pageLine[i]='      background-color: #ffffff; font-size: medium;';
i++; pageLine[i]='      font-family: Times, Roman, "Times New Roman", serif;"';
i++; pageLine[i]='    onclick="self.close()">';

i++; pageLine[i]='<img src="' + imgSrc + '"';
i++; pageLine[i]='     width="' + imgW + '"';
i++; pageLine[i]='     height="' + imgH + '" ';
i++; pageLine[i]='     border="0"';
i++; pageLine[i]='     alt="' + caption + '"\/>';

i++; pageLine[i]=divc1 + caption + divoff;
i++; pageLine[i]=divc2 + '(Click on picture to close window)' + divoff;
i++; pageLine[i]=divc3 + 'Hemophilia of North Carolina<br>' + event + divoff;

i++; pageLine[i]='<\/body>';
i++; pageLine[i]='<\/html>';

var firstline = 1;
var lastline  = i;

TheImgWin = window.open('','image','height=' + paddedH + ',width=' + paddedW + ',toolbar=no,directories=no,status=no,' + 'menubar=no,scrollbars=no,resizable=no');
TheImgWin.resizeTo(paddedW+2,paddedH+30);

for (i=firstline; i<=lastline; i++) {
	TheImgWin.document.write(pageLine[i]);
	}

TheImgWin.moveTo(winLeft,winTop);
TheImgWin.focus();

} /* End of popImgWin */


// END -->
