*/
                if ($fPre)
                    $aChangeLog[$iChangeLog]["aModules"][$iModule]["aChanges"][$iChange] .=
                        "\n";
            }

        }
    }
    $aChangeLog["cEntries"] = $iChangeLog+1;

    /* return array */
    return $aChangeLog;
}


/**
 * Dumps the array - debugging.
 * @returns nothing.
 * @param   $aChangeLog     Array returned by ChangeLog_Read.
 * @status
 * @author  knut st. osmundsen (knut.stange.osmundsen@mynd.no)
 * @remark
 */
function ChangeLog_Dump($aChangeLog)
{
    echo "
Dump\r\n";

    for ($iChangeLog = 0; $iChangeLog < $aChangeLog["cEntries"]; $iChangeLog++)
    {
        $aLogEntry = $aChangeLog[$iChangeLog];

        echo $aLogEntry["sDate"].": ".$aLogEntry["sName"]." <".$aLogEntry["sEmail"]."> ".
             $aLogEntry["cModules"]." modules\r\n";

        $aModules = $aLogEntry["aModules"];
        for ($iModule = 0; $iModule < $aLogEntry["cModules"]; $iModule++)
        {
            //$aModule = $aModules[$iModule];
            $aModule = $aChangeLog[$iChangeLog]["aModules"][$iModule];
            echo "    - ".$aModule["sModule"]." ".$aModule["cChanges"]." changes\r\n";
            if ($aModule["cChanges"] > 0)
            {
                for ($iChange = 0; $iChange < $aModule["cChanges"]; $iChange++)
                    echo "     o ".$aModule["aChanges"][$iChange]."\r\n";
            }
            else
                echo "      ".$aModule["aChanges"][0]."\r\n";

        }
    } /* while */
}


/**
 * Write the entrie change log to a table.
 * @returns nothing.
 * @param   $aChangeLog     Changelog array - output from ChangeLog_Read.
 * @sketch
 * @status
 * @author  knut st. osmundsen (knut.stange.osmundsen@mynd.no)
 * @remark
 */
function ChangeLog_MakeTable($aChangeLog)
{
    echo "\n".
         "\n";

    for ($iChangeLog = 0; $iChangeLog < $aChangeLog["cEntries"]; $iChangeLog++)
        ChangeLog_MakeTableEntry($aChangeLog[$iChangeLog]);

    echo "\n";
}


/**
 * Presents a single log entry ($aLogEntry).
 * (It inserts a row into an existing table in the HTML output.)
 * @returns nothing.
 * @param   $aLogEntry  Log entry to present.
 * @status
 * @author  knut st. osmundsen (knut.stange.osmundsen@mynd.no)
 * @remark
 */
function ChangeLog_MakeTableEntry($aLogEntry)
{
    echo "".
         $aLogEntry["sDate"].": ".
         $aLogEntry["sName"].
         /*" <".$aLogEntry["sEmail"].">".*/"\r\n";

    echo "  \n".
         "    \n";

    $aModules = $aLogEntry["aModules"];
    for ($iModule = 0; $iModule < $aLogEntry["cModules"]; $iModule++)
    {
        $aModule = $aModules[$iModule];
        $sModule = ChangeLog_CaseModuleName($aModule["sModule"]);

        echo "      \n";
    }

    echo "    
".$sModule."\n";

        echo "        
\n";
        if ($aModule["cChanges"] > 0)
        {
            for ($iChange = 0; $iChange < $aModule["cChanges"]; $iChange++)
                echo "        
".$aModule["aChanges"][$iChange]."\n";
        }
        else
            echo "        
".$aModule["aChanges"][0]."\r\n";
        echo "        
\n".
             "      
\n".
         "  \n";
}


/**
 * This function cases the module name if it is a dll name or a directory name.
 * If not a dll, nothing is done.
 * @returns Modulename string to present.
 * @param   $sModule    Modulename string.
 * @sketch
 * @status
 * @author  knut st. osmundsen (knut.stange.osmundsen@mynd.no)
 * @remark
 */
function ChangeLog_CaseModuleName($sModule)
{
    $sModule = trim($sModule);
    if (    strpos($sModule, ".") > 0
        ||  strtoupper($sModule) != $sModule)
        return $sModule;

    $sResult = "";
    $sModule = strtolower($sModule);
    while (($i = strpos($sModule, "/")) > 0 || ($i = strpos($sModule, "\\")) > 0)
    {
        $sResult .= ucfirst(substr($sModule, 0, $i+1));
        $sModule = substr($sModule, $i+1);
    }
    $sResult .= ucfirst($sModule);

    return $sResult;
}


/**
 * Checks if a date is a valid ISO date.
 * @returns true/false according to the query.
 *
 * @param   $sDate  Possible ISO date.
 * @status
 * @author  knut st. osmundsen (knut.stange.osmundsen@mynd.no)
 * @remark
 */
function isISODate($sDate)
{
    /*YYYY-MM-DD*/
    /*0123456789*/

    if (strlen($sDate) != 10
        ||
        ($sDate[4] != '-' || $sDate[7] != '-')
        )
        return false;
    $iYear  = @(int)substr($sDate, 0, 4);
    $iMonth = @(int)substr($sDate, 5, 2);
    $iDay   = @(int)substr($sDate, 8, 2);
    if (    $iYear  <= 0
        ||  $iYear  > 9999
        ||  $iMonth <= 0
        ||  $iMonth > 12
        ||  $iDay   <= 0
        ||  $iDay   > 31
        )
        return false;

    return true;
}




?>