global proc string jpPadNumber(int $number, int $padding)
{
	int $curSize = `size(string($number))`;
	if($curSize > $padding)
		error ("Number too large. Need more, at least" + $curSize + ", padding.");
	int $neededZeros = $padding - $curSize;

	string $paddedNumber = string($number);
	for($i = $neededZeros; $i > 0; $i--)
	{
		$paddedNumber = ("0" + $paddedNumber);
		//print ($paddedNumber + "\n");
	}

	return $paddedNumber;
}//end proc jpPadNumber