function expenses_display_table($extra_info, $gadget = false, $start_year = 9)
{
$out = '';
$latest_year = 9;
$earliest_year = 2;
if ($start_year > $latest_year or $start_year < $earliest_year) {
$start_year = 9;
}
$end_year = $earliest_year;
if ($gadget) {
$first_year_with_data = '';
for ($ey = 2000 + $latest_year; $ey >= 2000 + $earliest_year; --$ey) {
if (isset($extra_info['expenses' . $ey . '_col1'])) {
$first_year_with_data = $ey;
break;
}
}
if ($first_year_with_data == '') {
return '';
}
$out .= "<h2>Expenses</h2>";
$end_year = $start_year - 2;
$out .= '<div class="other-expenses-links">';
$out .= '<div class="earlier-expenses-link">';
if ($end_year > $earliest_year) {
$next_year = 2000 + $end_year - 1;
$out .= "<p><a href=\"?start_year={$next_year}\">See earlier\nexpenses</a></p>";
} else {
$end_year = 2;
}
$out .= '</div>';
$out .= '<div class="later-expenses-link">';
if ($start_year < $latest_year) {
$previous_year = 2000 + $start_year + 3;
$out .= "<p><a href=\"?start_year={$previous_year}\">See later\nexpenses</a></p>";
}
$out .= '</div>';
$out .= '</div>';
} else {
$out = '<p class="italic">Figures in brackets are ranks.';
$out .= 'Data from parliament.uk (<a href="http://www.parliament.uk/mpslordsandoffices/finances.cfm">source</a>).';
if (isset($extra_info['expenses_url'])) {
$out .= ' Read <a href="' . $extra_info['expenses_url'] . '">2004/05 – 2008/09 and 1st quarter 2009/10 receipts</a>.';
}
$out .= "</p>\n";
}
$out .= '<table class="people">';
$out .= '<tr><th class="left">Type';
$wide_year = $end_year + 3;
$med_year = $end_year + 5;
# TODO: Needs to be more complicated at 2005/06, because of General Election
for ($y = $start_year; $y >= $end_year; $y--) {
$class = '';
$responsive_class = '';
if ($y <= $wide_year) {
$responsive_class = 'show-for-large-up';
} elseif ($y <= $med_year) {
$responsive_class = 'show-for-medium-up';
}
if ($y == $end_year) {
$class = "class='right {$responsive_class}'";
} else {
$class = "class='{$responsive_class}'";
}
$out .= "</th><th {$class}>";
$out .= year_string($y);
if (isset($extra_info["expenses200{$y}_col1_rank_outof"])) {
$out .= ' <span class="overall-ranking"> (ranking out of ' . $extra_info["expenses200{$y}_col1_rank_outof"] . ')</span>';
}
}
$out .= '</th></tr>';
$out .= '<tbody>';
$out .= '<tr><td class="row-1 left">Staying away from main home</td>';
$out .= expenses_row('col1', $extra_info, 1, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-2 left">London costs</td>';
$out .= expenses_row('col2', $extra_info, 2, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-1 left">Office running costs</td>';
$out .= expenses_row('col3', $extra_info, 1, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-2 left" >Staffing costs</td>';
$out .= expenses_row('col4', $extra_info, 2, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-1 left">Communications Allowance</td>';
$out .= expenses_row('colcomms_allowance', $extra_info, 1, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-2 left">Members\' Travel</td>';
$out .= expenses_row('col5', $extra_info, 2, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-1 left">Members\' Staff Travel</td>';
$out .= expenses_row('col6', $extra_info, 1, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-2 left">Members\' Spouse Travel</td>';
$out .= expenses_row('colspouse_travel_a', $extra_info, 2, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-1 left">Members\' Family Travel</td>';
$out .= expenses_row('colfamily_travel_a', $extra_info, 1, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-2 left">Centrally Purchased Stationery</td>';
$out .= expenses_row('col7', $extra_info, 2, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-1 left">Stationery: Associated Postage Costs</td>';
$out .= expenses_row('col7a', $extra_info, 1, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-2 left">Centrally Provided Computer Equipment</td>';
$out .= expenses_row('col8', $extra_info, 2, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><td class="row-1 left">Other Costs</td>';
$out .= expenses_row('col9', $extra_info, 1, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr><tr><th class="left total">Total</th>';
$out .= expenses_row('total', $extra_info, 2, $gadget, $start_year, $end_year, $med_year, $wide_year);
$out .= '</tr></tbody></table>';
if (isset($extra_info['expenses2009_colmp_reg_travel_a']) and $extra_info['expenses2009_col5'] > 0 and $start_year >= 9 and $end_year <= 9) {
$out .= expenses_extra_travel($extra_info, 2009);
}
if (isset($extra_info['expenses2008_colmp_reg_travel_a']) and $extra_info['expenses2008_col5'] > 0 and $start_year >= 8 and $end_year <= 8) {
$out .= expenses_extra_travel($extra_info, 2008);
}
if (isset($extra_info['expenses2007_col5a']) and $extra_info['expenses2007_col5'] > 0 and $start_year >= 7 and $end_year <= 7) {
$out .= '<p class="extra-travel-info"><a name="travel2007"></a><sup>3</sup> <small>';
foreach (array('a' => 'Car', 'b' => '3rd party', 'c' => 'Rail', 'd' => 'Air', 'e' => 'Other', 'f' => 'European') as $let => $desc) {
if ($extra_info['expenses2007_col5' . $let] > 0) {
$out .= $desc . ' £' . number_format(str_replace(',', '', $extra_info['expenses2007_col5' . $let]));
if (isset($extra_info['expenses2007_col5' . $let . '_rank'])) {
$out .= ' (' . make_ranking($extra_info['expenses2007_col5' . $let . '_rank']) . ')';
}
$out .= '. ';
}
}
$out .= '</small></p>';
}
if ($gadget) {
$out .= '<p class="extra-info">Figures in brackets are ranks.<br>';
$out .= 'Source: Parliament\'s <a href="http://www.parliament.uk/mpslordsandoffices/finances.cfm">Members\' Allowances</a>';
if (isset($extra_info['expenses_url'])) {
$out .= '<br/> Read <a href="' . $extra_info['expenses_url'] . '">2004/05 – 2008/09 and 1st quarter 2009/10 receipts</a>.';
}
$out .= "</p>\n";
}
return $out;
}
function expenses_display_table($extra_info)
{
$out = '<p class="italic">Figures in brackets are ranks. Data from parliament.uk (<a href="http://www.parliament.uk/mpslordsandoffices/finances.cfm">source</a>).';
if (isset($extra_info['expenses_url'])) {
$out .= ' Read <a href="' . $extra_info['expenses_url'] . '">2004/05 – 2007/08 receipts</a>.';
}
$out .= "</p>\n";
$out .= '<table class="people"><tr><th>Type';
# TODO: Needs to be more complicated at 2005/06, because of General Election
for ($y = 8; $y >= 2; $y--) {
$out .= '</th><th>';
$out .= year_string($y);
if (isset($extra_info["expenses200{$y}_col1_rank_outof"])) {
$out .= ' (ranking out of ' . $extra_info["expenses200{$y}_col1_rank_outof"] . ')';
}
}
$out .= '</th></tr>';
$out .= '<tr><td class="row-1">Additional Costs Allowance</td>';
$out .= expenses_row('col1', $extra_info, 1);
$out .= '</tr><tr><td class="row-2">London Supplement</td>';
$out .= expenses_row('col2', $extra_info, 2);
$out .= '</tr><tr><td class="row-1">Incidental Expenses Provision</td>';
$out .= expenses_row('col3', $extra_info, 1);
$out .= '</tr><tr><td class="row-2">Staffing Allowance</td>';
$out .= expenses_row('col4', $extra_info, 2);
$out .= '</tr><tr><td class="row-1">Communications Allowance</td>';
$out .= expenses_row('colcomms_allowance', $extra_info, 1);
$out .= '</tr><tr><td class="row-2">Members\' Travel</td>';
$out .= expenses_row('col5', $extra_info, 2);
$out .= '</tr><tr><td class="row-1">Members\' Staff Travel</td>';
$out .= expenses_row('col6', $extra_info, 1);
$out .= '</tr><tr><td class="row-2">Members\' Spouse Travel</td>';
$out .= expenses_row('colspouse_travel_a', $extra_info, 2);
$out .= '</tr><tr><td class="row-1">Members\' Family Travel</td>';
$out .= expenses_row('colfamily_travel_a', $extra_info, 1);
$out .= '</tr><tr><td class="row-2">Centrally Purchased Stationery</td>';
$out .= expenses_row('col7', $extra_info, 2);
$out .= '</tr><tr><td class="row-1">Stationery: Associated Postage Costs</td>';
$out .= expenses_row('col7a', $extra_info, 1);
$out .= '</tr><tr><td class="row-2">Centrally Provided Computer Equipment</td>';
$out .= expenses_row('col8', $extra_info, 2);
$out .= '</tr><tr><td class="row-1">Other Costs</td>';
$out .= expenses_row('col9', $extra_info, 1);
$out .= '</tr><tr><th style="text-align: right">Total</th>';
$out .= expenses_row('total', $extra_info, 2);
$out .= '</tr></table>';
if (isset($extra_info['expenses2008_colmp_reg_travel_a']) and $extra_info['expenses2008_col5'] > 0) {
$out .= '<p><a name="travel2008"></a><sup>*</sup> <small>';
$regular_travel_header = FALSE;
foreach (array('a' => 'Mileage', 'b' => 'Rail', 'c' => 'Air', 'd' => 'Misc') as $let => $desc) {
$travel_field = $extra_info['expenses2008_colmp_reg_travel_' . $let];
if ($travel_field > 0) {
if ($regular_travel_header == FALSE) {
$out .= 'Regular journeys between home/constituency/Westminster: ';
}
$regular_travel_header = TRUE;
$out .= $desc . ' £' . number_format(str_replace(',', '', $travel_field));
if (isset($extra_info['expenses2008_colmp_reg_travel_' . $let . '_rank'])) {
$out .= ' (' . make_ranking($extra_info['expenses2008_colmp_reg_travel_' . $let . '_rank']) . ')';
}
$out .= '. ';
}
}
$other_travel_header = FALSE;
foreach (array('a' => 'Mileage', 'b' => 'Rail', 'c' => 'Air', 'd' => 'European') as $let => $desc) {
$travel_field = $extra_info['expenses2008_colmp_other_travel_' . $let];
if ($travel_field > 0) {
if ($other_travel_header == FALSE) {
$out .= 'Other: ';
}
$other_travel_header = TRUE;
$out .= $desc . ' £' . number_format(str_replace(',', '', $travel_field));
if (isset($extra_info['expenses2008_colmp_other_travel_' . $let . '_rank'])) {
$out .= ' (' . make_ranking($extra_info['expenses2008_colmp_other_travel_' . $let . '_rank']) . ')';
}
$out .= '. ';
}
}
$out .= '</small></p>';
}
if (isset($extra_info['expenses2007_col5a']) and $extra_info['expenses2007_col5'] > 0) {
$out .= '<p><a name="travel2007"></a><sup>**</sup> <small>';
foreach (array('a' => 'Car', 'b' => '3rd party', 'c' => 'Rail', 'd' => 'Air', 'e' => 'Other', 'f' => 'European') as $let => $desc) {
if ($extra_info['expenses2007_col5' . $let] > 0) {
$out .= $desc . ' £' . number_format(str_replace(',', '', $extra_info['expenses2007_col5' . $let]));
if (isset($extra_info['expenses2007_col5' . $let . '_rank'])) {
$out .= ' (' . make_ranking($extra_info['expenses2007_col5' . $let . '_rank']) . ')';
}
$out .= '. ';
}
}
$out .= '</small></p>';
}
return $out;
}
