function Finances()
{
	global $llimit,$rowsonpage;
	$Buffer = '<table align="center" width="80%" border=0 cellpadding=0 cellspacing=0>
	<tr>
	<th align="center" colspan=2>Date Received</th>
	<th align="left">Type</b></th>
	<th align="right">Amount ($)&nbsp;</th>'
	#<th align="left">Comment</b></th>
	.'<th align="left" colspan=2>Entry</b></th>
	</tr>';
	if ($llimit==-1)
		{
		# -1 defined as default:
		# this means show the last record!
		$QueryResult = mysql_query("select count(*) from finances");
		$finances_count = mysql_fetch_array($QueryResult);
		#$llimit=$finances_count[0]-$rowsonpage;
		$llimit=intval($finances_count[0]/10)*10;
		if ($llimit<0)
			{
			$llimit=0;
			}
		}
	$prevTotal=0;
	$uppertable='	Here we will list the names of all the donors to the Arabeyes project (unless they have asked to remain anonymous). We will also reflect the dollar amount of the sum of donations.<br><br>
		<table width=80% border=0 align=center cellpadding=0 cellspacing=0>
		<tr>
		<td width=36%>&nbsp;</td>';
	#echo $rowsonpage;
	if ($rowsonpage==-1)
		{
		$sql="select * from finances order by date";
		}
	else
		{
		$QueryResult = mysql_query("select Amount,Type from finances order by date asc limit 0,".strval($llimit));
		while($QueryRow = mysql_fetch_array($QueryResult))
			{
			$prevTotal = ($QueryRow[Type]=="Deposit")?$prevTotal+$QueryRow[Amount]: $prevTotal-$QueryRow[Amount];
			}
		$QueryResult = mysql_query("select count(*) from finances");
		$QueryRow = mysql_fetch_array($QueryResult);
		$lastrow = $QueryRow[0];
		$previouslink="";
		$nextlink="";
		if ($llimit==0)
			{
			$previouslink="finance.php";
			$previouslink="";
			}
		elseif ($llimit-$rowsonpage<=0)
			{
			$previouslink="finance.php?llimit=0&rowsonpage=".$rowsonpage;
			$previouslink='<a href=\''.$previouslink.'\'>Previous</a>';
			}
		else
			{
			$previouslink="finance.php?llimit=".strval($llimit-$rowsonpage)."&rowsonpage=".$rowsonpage;
			$previouslink='<a href=\''.$previouslink.'\'>Previous</a>';
			}
		if ($llimit+$rowsonpage>=$lastrow)
			{
			$nextlink="";
			}
		#elseif($llimit+2*$rowsonpage>=$lastrow)
		#	{
		#	$nextlink="finance.php?rowsonpage=".$rowsonpage;
		#	$nextlink=' <a href=\''.$nextlink.'\'>Next</a>';
		#	}		
		else
			{
			$nextlink="finance.php?llimit=".($llimit+$rowsonpage)."&rowsonpage=".$rowsonpage;
			$nextlink=' <a href=\''.$nextlink.'\'>Next</a>';
			}
		$uppertable.='<td width=\"64%\"><div align=right>'.$previouslink.$nextlink.'</div></td>
			</tr>
			<tr>
			<td>&nbsp;</td>
			<td><div align=right>[Balance from previous pages = ';
		$uppertable=($prevTotal>=0)?$uppertable.'+$':$uppertable.'-$';
		$uppertable.=sprintf("%.2f", abs($prevTotal)).']</div></td>
			</tr>
			<tr>
			<td>&nbsp;</td>';
		$sql="select * from finances order by date limit ";
		$sql.=$llimit.",".strval($rowsonpage);
		}

	#echo $sql;
	$QueryResult = mysql_query($sql);
	$Total = 0;

	  while($QueryRow = mysql_fetch_array($QueryResult)) 
	  {
		$Total = ($QueryRow[Type]=="Deposit")?$Total+$QueryRow[Amount]: $Total-$QueryRow[Amount];
		$Buffer = ($QueryRow[Type]=='Deposit')?$Buffer.'<tr style="color:green">':$Buffer.'<tr style="color:red">';

		$Buffer .= '<td align="center" colspan=2>'.$QueryRow[date].'</td>';
		$Buffer .= '<td align="left">'.$QueryRow[Type].'</td>';
		$Buffer .= '<td align="right">'.sprintf("%.2f", $QueryRow[Amount]).'&nbsp;</td>';
		#$Buffer .= '<td align="left">'.$QueryRow[Comment].'</td>';	#originally, changed!!
		if ($QueryRow[private] == 1) 
		  $Buffer .= '<td align="left"><i>Anonymous</i></td>';
		else
		{
		  $Buffer .= '<td align="left">'.$QueryRow[firstname].' '.$QueryRow[lastname].'</td>';
		  if(isset($_SESSION[type]) && $_SESSION[type] == 'c')
		  	{
		  	$Buffer .= '<td><a href=\'finance.php?delrow=1&id='.$QueryRow[ID].'&llimit='.$llimit.'&rowsonpage='.$rowsonpage.'\'><img alt=\'delete\' src="big.gif" width=20 height=20></a><a href=\'finance.php?modrow=1&id='.$QueryRow[ID].'&llimit='.$llimit.'&rowsonpage='.$rowsonpage.'\'><img alt=\'modify\' src="big.gif" width=20 height=20></a></td>';
		  	}
		  $Buffer .= '</td>';
		}
		$Buffer .= '</tr>';
		$Buffer .= '<tr><td width=\"20%\">&nbsp;</td><td align="left" colspan=5>'.$QueryRow[Comment].'</td></tr>';	#originally, changed!!
	  }
	$Buffer .= '<tr><td colspan=6><hr></td></tr>';
	$Buffer .= '<tr><td colspan=3><b>Balance in Account</b></td><td align="right">'.strval(($Total+$prevTotal>=0)?'+$':'-$').sprintf("%.2f", abs($Total+$prevTotal)).'</td></tr></table>';
	$uppertable.='<td><div align=right>[Balance on current page = ';
	$uppertable=($Total>=0)?$uppertable.'+$':$uppertable.'-$';
	$uppertable.=sprintf("%.2f", abs($Total)).']</div></td>
		</tr>
		<tr>
		<td>&nbsp;</td>
		<td><div align=right>[Balance total in account = ';
	$uppertable=strval(($Total+$prevTotal>=0)?$uppertable.'+$':$uppertable.'-$').sprintf("%.2f", abs($Total+$prevTotal)).']]</div></td>
		</tr>
		<tr>
		<td>&nbsp;</td>
		<td>&nbsp;</td>
		</tr>
		</table>';
	$Buffer = $uppertable.$Buffer;

	return DisplaySection('Donations Records (since '.GetDonationsStartdate().')', $Buffer);
}

function addrow_finance($date,$type,$amount,$comment,$firstname,$lastname,$private)
{
	global $llimit,$rowsonpage;
	if(isset($_SESSION[type]) && $_SESSION[type] == 'c')
		{
		$sql="INSERT INTO finances ( ID , date , Type , Amount , Comment , firstname , lastname , private ) 
		VALUES ('', '".$date."', '".$type."', '".$amount."', '".$comment."', '".$firstname."', '".$lastname."', '".$private."');";
		#echo $sql;
		$QueryResult = mysql_query($sql);
		}
	header("Location: finance.php?llimit=".$llimit."&rowsonpage=".$rowsonpage);
	exit;
}

function modrow_finance($id,$date,$type,$amount,$comment,$firstname,$lastname,$private)
{
	global $llimit,$rowsonpage;
	if(isset($_SESSION[type]) && $_SESSION[type] == 'c')
		{
		$sql="Update finances set date=\"$date\", Type=\"$type\", Amount=\"$amount\" , Comment=\"$comment\" , firstname=\"$firstname\" , lastname=\"$lastname\" , private=\"$private\" where id=$id";
		#echo $sql;
		$QueryResult = mysql_query($sql);
		}
	header("Location: finance.php?llimit=".$llimit."&rowsonpage=".$rowsonpage);
	exit;
}

function delrow_finance($id)
{
	global $llimit,$rowsonpage;

	if(isset($_SESSION[type]) && $_SESSION[type] == 'c')
		{
		$sql="delete from finances where ID=".$id;
		$QueryResult = mysql_query($sql);
		}
	header("Location: finance.php?llimit=".$llimit."&rowsonpage=".$rowsonpage);
	exit;
}

function showadd_finance()
{
	$Buffer="";

	if(isset($_SESSION[type]) && $_SESSION[type] == 'c')
	{
	$Buffer="<table align=center width=75% border=0 cellpadding=0 cellspacing=0>"
		."<form name=\"addform\" method=\"get\" action=\"finance.php\">\n"
		."<tr>"
	  	."<td>Date</td>\n"
	  	."<td>Type</td>\n"
	  	."<td>Amount</td>\n"
	  	."<td>Comment</td>\n"
	  	."<td>Firstname</td>\n"
	  	."<td>Lastname</td>\n"
	  	."</tr><tr>"
	  	."<td><input name=\"date\" type=\"text\" id=\"date\" size=10></td>\n"
	  	."<td><input name=\"fitype\" type=\"text\" id=\"fitype\" size=10></td>\n"
	  	."<td><input name=\"amount\" type=\"text\" id=\"amount\" size=5></td>\n"
	  	."<td><input name=\"comment\" type=\"text\" id=\"comment\" size=10></td>\n"
	  	."<td><input name=\"firstname\" type=\"text\" id=\"entry\" size=10></td>\n"
	  	."<td><input name=\"lastname\" type=\"text\" id=\"entry\" size=10></td></tr>\n"
	  	."<tr><td colspan=6 align=center><input type=\"submit\" name=\"Submit\" value=\"Add Transaction\"></td></tr>\n"
		."</form>"
		."</table>";
	}
	return $Buffer;
}

function showmod_finance($id)
{
	$Buffer="";
	$sql="select * from finances where id=".$id.";";
	$Buffer="haöö";
	if(isset($_SESSION[type]) && $_SESSION[type] == 'c')
	{
		$QueryResult = mysql_query($sql);
		if($QueryRow = mysql_fetch_array($QueryResult))
			{
			$Buffer="<table align=center width=75% border=0 cellpadding=0 cellspacing=0>"
				."<form name=\"addform\" method=\"get\" action=\"finance.php\">\n"
				."<tr>"
				."<td>Date</td>\n"
				."<td>Type</td>\n"
				."<td>Amount</td>\n"
				."<td>Comment</td>\n"
				."<td>Firstname</td>\n"
				."<td>Lastname</td>\n"
				."</tr><tr>"
				."<td><input name=\"date\" type=\"text\" id=\"date\" size=10 value=\"".$QueryRow[date]."\"></td>\n"
				."<td><input name=\"fitype\" type=\"text\" id=\"fitype\" size=10 value=\"".$QueryRow[Type]."\"></td>\n"
				."<td><input name=\"amount\" type=\"text\" id=\"amount\" size=5 value=\"".$QueryRow[Amount]."\"></td>\n"
				."<td><input name=\"comment\" type=\"text\" id=\"comment\" size=10 value=\"".$QueryRow[Comment]."\"></td>\n"
				."<td><input name=\"firstname\" type=\"text\" id=\"entry\" size=10 value=\"".$QueryRow[firstname]."\"></td>\n"
				."<td><input name=\"lastname\" type=\"text\" id=\"entry\" size=10 value=\"".$QueryRow[lastname]."\"></td></tr>\n"
				."<tr><td colspan=6 align=center><input name=\"id\" type=\"hidden\" id=\"id\" value=\"$id\">"
				."<input type=\"submit\" name=\"Submit\" value=\"Modify Transaction\"></td></tr>\n"
				."</form>"
				."</table>";
			}
	}
	return $Buffer;
}

function show_financeoptions()
	{
	global $rowsonpage,$llimit;
	$validrowspp=array(5,10,20,50,100,-1);
	reset($validrowspp);
	
	$Buffer="<table align=center width=75% border=0 cellpadding=0 cellspacing=0>"
		."<form name=\"fioptions\" method=\"get\" action=\"finance.php\">\n"
		."<tr>"
	  	."<td><select name=\"rowsonpage\">";
	foreach ($validrowspp as $value)
		{
		echo $value;
		if ($value==-1)
			{
			$vrppname="All of them";
			}
		else
			{
			$vrppname=$value;
			}
		$Buffer.="<option value=\"$value\"";
		$Buffer.=($value==$rowsonpage) ? " selected":"";
		$Buffer.=">".$vrppname."</option>";
	  	}
	$Buffer.="</select><input name=\"llimit\" type=\"hidden\" id=\"llimit\" value=\"$llimit\"></td></tr>\n";
	$Buffer.="<tr><td colspan=6 align=center><input type=\"submit\" name=\"Submit\" value=\"Change Options\"></td></tr>\n";
	$Buffer.="</form></table>";
	return $Buffer;
	}