/* Programmer Ng Hun Yang. Apr 2002

 Revision history
 10 Apr 2002  nhy  First written
 22 Jun 2002  nhy  Moved individual pic funcs to PAEPic.txt
 22 Jun 2002  nhy  Moved thumbnail funcs to PAEThumb.txt
  4 Jul 2002  nhy  Added Netscape/IE check
*/

<!-- ======================================================================= -->

var BEGIN_HTML = "<" + "html>";
var END_HTML   = "</" + "html>";

var BEGIN_BODY = "<" + "body";
var END_BODY   = "</" + "body>";

var BEGIN_SCRIPT = "<" + "script>";
var END_SCRIPT   = "</" + "script>";

var BEGIN_FRAMESET = "<" + "frameset";
var END_FRAMESET = "</" + "frameset>";

var isNavigator = document.layers;
var isIE        = document.all;

<!-- ======================================================================= -->

function chg_user_level(new_user_level)
{
gbl_user_level = new_user_level;
update_user_bar();

frames["contents"].location = "FakeThumb.html";
}

<!-- ----------------------------------------------------------------------- -->

function try_chg_user_level(new_user_level)
{
if(new_user_level == 0)
  {
  for(var i = 0; i < pic_pw_ref_list.length; ++i)
    pic_pw_ref_list[i] = "";

  chg_user_level(0);
  }
else
  disp_pw_prompt(new_user_level);
}

<!-- ======================================================================= -->

function write_body(d)
{
d.writeln(BEGIN_BODY +
 " text=" + GblTextColor +
 " bgcolor=" + GblBgColor +
 " link=" + GblLinkColor +
 " vlink=" + GblVLinkColor +
 " alink=" + GblALinkColor +
 ">");
}

<!-- ----------------------------------------------------------------------- -->

function disp_header(d, full_pic_list)
{
var num_pages = full_pic_list.length;

write_body(d);

d.writeln("<table  cellspacing=0 cellpadding=0 width=\"100%\">");
d.writeln("<tr>");

d.writeln("<td rowspan=2 width=\"65%\">");
d.writeln("<font size=+2><b>" + PhotoAlbumTitle + "</b></font>");
d.writeln("</td>");

d.writeln("<td>");
disp_user_levels(d);
d.writeln("</td>");

d.writeln("</tr>");

d.writeln("<tr>");

d.writeln("<td>");
disp_links(d);
d.writeln("</td>");

d.writeln("</tr>");

d.writeln("</table>");

//d.writeln("<br>");

disp_nav_bar(d, full_pic_list);

d.writeln(END_BODY);
}

<!-- ----------------------------------------------------------------------- -->

function disp_user_levels(d)
{
d.write("<table>");
d.write("<tr>");

for(var i = 0; i < uar_ref_list.length; ++i)
  {
  var usr_name = uar_ref_list[i][0];

  d.write("<td id=\"user_bar\" bgcolor=" + UserBarNormalColor + ">");
  d.write("<a href=\"javascript:parent.try_chg_user_level(" + i + ")\">");
  d.write(usr_name);
  d.write("</a>");
  d.write("</td>");
  }

d.write("</tr>");
d.writeln("</table>");
}

<!-- ----------------------------------------------------------------------- -->

function disp_links(d)
{
d.writeln("<table>");
d.writeln("<tr>");

for(var i = 0; i < GblLinksTbl.length; ++i)
  {
  var text = GblLinksTbl[i][0];
  var link = GblLinksTbl[i][1];

  d.writeln("<td>");
  d.write("<a href=\"" + link + "\" target=\"contents\">" + text + "</a>");
  d.writeln("</td>");
  }

d.writeln("</tr>");
d.writeln("</table>");
}

<!-- ----------------------------------------------------------------------- -->

function disp_nav_bar(d, full_pic_list)
{
var num_per_row = NavBarNumPerRow;

if(num_per_row < 0)
  num_per_row = full_pic_list.length;

d.writeln("<table width=\"100%\">");

var col = 0;

for(var i = 0; i < full_pic_list.length; ++i)
  {
  var title = full_pic_list[i][0];

  if(col == 0)
    d.writeln("<tr>");

  d.writeln("<td id=\"nav_bar\" bgColor=" + NavBarNormalColor + ">");

  d.writeln("<a href=\"FakeThumb.html\"" +
   " target=\"contents\"" +
   " onclick=javascript:parent.switch_to_page(" + i + ")>" +
   title + "</a>");

  d.writeln("</td>");

  if(col == num_per_row - 1 || i == full_pic_list.length - 1)
    d.writeln("</tr>");

  ++col;
  if(col >= num_per_row)
    col = 0;
  }

d.writeln("</table>");
}

<!-- ----------------------------------------------------------------------- -->

function update_user_bar()
{
if(!isIE)
  return;

var bar_cells = frames["header"].user_bar;

// not an array if only one item
if(bar_cells.length == undefined)
  {
  bar_cells.bgColor = UserBarSelectedColor;
  return;
  }

for(var i = 0; i < bar_cells.length; ++i)
  bar_cells[i].bgColor = UserBarNormalColor;

bar_cells[gbl_user_level].bgColor = UserBarSelectedColor;
}

<!-- ----------------------------------------------------------------------- -->

function update_nav_bar()
{
if(!isIE)
  return;

var bar_cells = frames["header"].nav_bar;

// not an array if only one item
if(bar_cells.length == undefined)
  {
  bar_cells.bgColor = NavBarSelectedColor;
  return;
  }

for(var i = 0; i < bar_cells.length; ++i)
  bar_cells[i].bgColor = NavBarNormalColor;

bar_cells[gbl_cur_page].bgColor = NavBarSelectedColor;
}

<!-- ----------------------------------------------------------------------- -->

function disp_page(cur_page)
{
gbl_cur_page = cur_page;

var d = frames["contents"].document;

write_body(d);

disp_tbl(d, full_pic_list[cur_page]);

d.writeln(END_BODY);
}

<!-- ----------------------------------------------------------------------- -->

function switch_to_page(new_page)
{
gbl_cur_page = new_page;
}

<!-- ----------------------------------------------------------------------- -->

function disp_header_on_load()
{
disp_header(frames["header"].document, full_pic_list);
update_user_bar();
}

function disp_page_on_load()
{
disp_page(gbl_cur_page);
update_nav_bar();
}

<!-- ======================================================================= -->