-/**
- * @return Returns the array sorted as required
- * @param $aryData Array containing data to sort
- * @param $strIndex name of column to use as an index
- * @param $strSortBy Column to sort the array by
- * @param $strSortType String containing either asc or desc [default to asc]
- * @desc Naturally sorts an array using by the column $strSortBy
- */
-function array_natsort($aryData, $strIndex, $strSortBy, $strSortType=false)
-{
- // if the parameters are invalid
- if (!is_array($aryData) || !$strIndex || !$strSortBy)
- // return the array
- return $aryData;
-
- // create our temporary arrays
- $arySort = $aryResult = array();
-
- // loop through the array
- foreach ($aryData as $aryRow)
- // set up the value in the array
- $arySort[$aryRow[$strIndex]] = $aryRow[$strSortBy];
-
- // apply the natural sort
- natsort($arySort);
-
- // if the sort type is descending
- if ($strSortType=="desc")
- // reverse the array
- arsort($arySort);
-
- // loop through the sorted and original data
- foreach ($arySort as $arySortKey => $arySorted)
- foreach ($aryData as $aryOriginal)
- // if the key matches
- if ($aryOriginal[$strIndex]==$arySortKey)
- // add it to the output array
- array_push($aryResult, $aryOriginal);
-
- // return the return
- return $aryResult;
-}
-
-function write_modules()
-{
- global $path_to_root, $installed_modules;
-
- $mods = array_natsort($installed_modules, 'tab', 'tab');
- $installed_modules = $mods;
- //reset($installed_languages);
- $n = count($installed_modules);
- $msg = "<?php\n\n";
-
- $msg .= "/*****************************************************************\n";
- $msg .= "External modules for FrontAccounting\n";
- $msg .= "******************************************************************/\n";
- $msg .= "\n\n";
-
- $msg .= "\$installed_modules = array (\n";
- if ($n > 0)
- $msg .= "\t0 => ";
- for ($i = 0; $i < $n; $i++)
- {
- if ($i > 0)
- $msg .= "\t\tarray ";
- else
- $msg .= "array ";
- $msg .= "('tab' => '" . $installed_modules[$i]['tab'] . "', ";
- $msg .= "'name' => '" . $installed_modules[$i]['name'] . "', ";
- $msg .= "'path' => '" . $installed_modules[$i]['path'] . "', ";
- $msg .= "'filename' => '" . $installed_modules[$i]['filename'] . "',";
- $msg .= "'acc_file' => '" . $installed_modules[$i]['acc_file'] . "'";
- $msg .= "),\n";
- }
- $msg .= "\t);\n?>";
-
- $filename = $path_to_root . "/modules/installed_modules.php";
- // Check if the file exists and is writable first.
- if (file_exists($filename) && is_writable($filename))
- {
- if (!$zp = fopen($filename, 'w'))
- {
- display_error(_("Cannot open the modules file - ") . $filename);
- return false;
- }
- else
- {
- if (!fwrite($zp, $msg))
- {
- display_error(_("Cannot write to the modules file - ") . $filename);
- fclose($zp);
- return false;
- }
- // Close file
- fclose($zp);
- }
- }
- else
- {
- display_error(_("The modules file ") . $filename . _(" is not writable. Change its permissions so it is, then re-run the operation."));
- return false;
- }
- return true;
-}
-