// --- onmouseover-swaps image. onmouseclick toggles fix unfix action. Needs form name Pictures and hidden ImageAction
function ShowImage(Action,ImgSrc,PicType,PicDir)
{
if(Action == "roll")
	{
	if(document.Pictures.ImageAction.value != "locked")
		{
		document.images[PicType].src = PicDir+"/"+ImgSrc;
		}
	}
if(Action == "keep")
	{
	if(document.Pictures.ImageAction.value == "locked")
		{
		document.Pictures.ImageAction.value = "unlocked";
		document.images[PicType].src = PicDir+"/"+ImgSrc;
		}
	else
		{
		document.Pictures.ImageAction.value = "locked";
		document.images[PicType].src = PicDir+"/"+ImgSrc;
		}
	}
}

//
function ChangeImage(Action) //uses scroll buttons and select list to change image
{
var TheForm = document.ImageChanger;
var NumImages = parseInt(TheForm.NumImages.value);
var ImageSrc = document.images["picture"];

if(Action == "GoToImage")
  {
  var ImageName = TheForm.CurrentImage.options[TheForm.CurrentImage.selectedIndex].value;
  }
if(Action == "Next")
  {
  var NextImage = parseInt(TheForm.CurrentImage.selectedIndex)+1;
  if(NextImage <= NumImages -1)
    {
    TheForm.CurrentImage.options[NextImage].selected = true;
    }
  else
    {
    TheForm.CurrentImage.options[0].selected = true;
    }
  }
if(Action == "Previous")
  {
  var NextImage = parseInt(TheForm.CurrentImage.selectedIndex)-1;
  if(NextImage >= 0)
    {
    TheForm.CurrentImage.options[NextImage].selected = true;
    }
  else
    {
    TheForm.CurrentImage.options[NumImages -1].selected = true;
    }
  }
var ImageString = TheForm.CurrentImage.options[TheForm.CurrentImage.selectedIndex].value;
var ImageArray = ImageString.split("#");
var ImageName = ImageArray[0];
var ImageInfo = ImageArray[1];
ImageSrc.src = ImageName;
VivInfo.innerHTML = ImageInfo;
}