<?php

/* 4 layer model - business logic for selecting bus futures */

function load_base_data() {
        $base = array();
        $fh = fopen("choice.data",'r');
        while ($line = fgetcsv($fh,0,"\t")) {
                $key = array_shift($line);
                $base[$key] = $line;
        }
        $_SESSION["choicedata"] = $base;

        $rows = array();
        $fh = fopen("row.data",'r');
        while ($line = fgets($fh)) {
                if (preg_match('/^(.):/',$line,$gotten)) {
                        $current = $gotten[1];
                        $rows[$current] = "";
                } else {
                        $rows[$current] .= $line;
                }
        }
        $_SESSION["rows"] = $rows;

        $cols = array();
        $fh = fopen("col.data",'r');
        while ($line = fgets($fh)) {
                if (preg_match('/^(.):/',$line,$gotten)) {
                        $current = $gotten[1];
                        $cols[$current] = "";
                } else {
                        $cols[$current] .= $line;
                }
        }
        $_SESSION["cols"] = $cols;
}

function checkphase2() {
        global $alert, $error;
        foreach (array_keys($_SESSION["cols"]) as $rowname) {
                $alert[$rowname] = chek_an_integer($rowname,1,10000);
                $_SESSION[$rowname] = ss($_POST[$rowname]);
        }
        if (! $error) {
                $_SESSION[current] = 3;
                }
        }

function offer_weights() {
        global $alert, $fill;
        $fields = array(array("","<center><b>How important is it to you </b>...</center>",
                                "<center>Least ----- Most</centrer>","type"=>"label"));
        $fvals = "31|42|56|75|100|133|178|237|317";
        foreach (array_keys($_SESSION["cols"]) as $rowname) {
                if ($_POST[$rowname] == "") $_POST[$rowname] = 100;
                array_push($fields,array($rowname,$_SESSION[cols][$rowname],$_POST[$rowname],
                                $alert[$rowname],"type"=>"pips","options"=>$fvals));
                }
        $fill[toptag] = "How important is each factor in this decision for you?";

        $fill[body] = "<p>Deciding the future direction for Wiltshire's Public Transport" .
                " Network is going to be a compromise between many factors, and the council" .
                " has a difficult decision to make with regards bus support for the 2017/18" .
                " year and beyond. This tool (prototype at the moment) is a tool to help you" .
                " understand the various elements that go towards making the decision, and" .
                " the way that priorities / importance will affect the outcome.<br /><br />" .
                "<b>We invite you to put yourself in the decision maker's shoes</b>. Select" .
                " a box to the right to add importance or to the left if they're not important" .
                " to you. When you are done, submit the form and we'll rank the eight options" .
                " we're aware of based on the relative importance you've given to each factor" .
                " in the choice. To call up the support page, go <a href=choice.html target=xyz>" .
                "[here]</a>";
        $fill[body] .= mkeform($fields);
        $fill[body] .= "</p>";

        $fill[result] = "Results will appear in this area";
        }

function report_results() {
        global $fill;
        $fill[toptag] = "Thank you for your inputs";
        $fill[body] = "<p>Based on those weights, here are the options available and their scores<br />";
        $sortable = array();
        foreach (array_keys($_SESSION["choicedata"]) as $rowname) {
                $fillpart = "<br>Option $rowname ....<br />";
                $fillpart .= $_SESSION[rows][$rowname] . "<br />";
                $score = 0;
                $maxscore = 0;
                $values = $_SESSION["choicedata"][$rowname];
                $vp = 0;
                $vst = "";
                foreach (array_keys($_SESSION["cols"]) as $colname) {
                        $score += $_SESSION[$colname] * $values[$vp];
                        $maxscore += $_SESSION[$colname] * 100;
                        $vst .= $_SESSION[$colname] . "\t";
                        $vp++;
                }
                $percent = sprintf("%.2f",100.0 * $score / $maxscore);
                $fillpart .= "scores $score out of $maxscore - <b>$percent%</b><br>";
                $sortable[$fillpart] = $score;

                # $fill[body] .= $fillpart;
        }
        arsort($sortable);
        foreach (array_keys($sortable) as $record) {
                $fill[body] .= $record;
        }
        $fill[body] .= "<br />If you would like to try different factors, select" .
                " <a href=choice.php>[here]</a>. If you would like to see the support" .
                " page for this application, see <a href=choice.html>[here]</a>";
        $fill[body] .= "</p>";
        $fh = fopen ("loggergame.text","a");
        $att = time();
        fputs($fh, "$vst$_SERVER[REMOTE_ADDR]\t$att\n");
        fclose($fh);

 }

?>