Bug in inst_lang.php
[fa-stable.git] / admin / inst_lang.php
1 <?php
2 /**********************************************************************
3     Copyright (C) FrontAccounting, LLC.
4         Released under the terms of the GNU General Public License, GPL, 
5         as published by the Free Software Foundation, either version 3 
6         of the License, or (at your option) any later version.
7     This program is distributed in the hope that it will be useful,
8     but WITHOUT ANY WARRANTY; without even the implied warranty of
9     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
10     See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
11 ***********************************************************************/
12 $page_security = 'SA_CREATELANGUAGE';
13 $path_to_root="..";
14 include_once($path_to_root . "/includes/session.inc");
15
16 include_once($path_to_root."/includes/packages.inc");
17 include_once($path_to_root . "/admin/db/maintenance_db.inc");
18 include_once($path_to_root . "/includes/ui.inc");
19
20 if ($use_popup_windows)
21         $js = get_js_open_window(900, 500);
22
23 page(_($help_context = "Install/Update Languages"), false, false, "", $js);
24
25 simple_page_mode(true);
26
27 //---------------------------------------------------------------------------------------------
28 //
29 // Display all packages - both already installed and available from repository
30 //
31 function display_languages()
32 {
33         global $table_style, $installed_languages, $dflt_lang;
34         
35         $th = array(_("Language"), _("Name"), _("Encoding"), _("Right To Left"),
36                 _("Installed"), _("Available"), _("Default"), "", "");
37         $currlang = $_SESSION["language"]->code;
38
39         div_start('lang_tbl');
40         start_form();
41         //
42         // select/display system locales support for sites using native gettext
43         //
44         if (function_exists('gettext'))
45         {
46                 if (check_value('DisplayAll'))
47                          array_insert($th, 7, _("Supported"));
48                 start_table();
49                 check_row(_('Display also languages not supported by server locales'), 'DisplayAll', null, true);
50                 end_table();
51         }
52
53         start_table(TABLESTYLE);
54         table_header($th);
55
56         $k = 0;
57
58         // get list of all (available and installed) langauges
59         $langs = get_languages_list();
60         foreach ($langs as $pkg_name => $lng)
61         {
62                 $lang = $lng['code'];
63                 $lang_name = $lng['name'];
64                 $charset = $lng['encoding'];
65                 $rtl = @$lng['rtl'] == 'yes' || @$lng['rtl'] === true;
66                 $available = @$lng['available'];
67                 $installed = @$lng['version'];
68                 $id = @$lng['local_id'];
69                 
70                 if ($lang == $currlang)
71                         start_row("class='stockmankobg'");
72                 else
73                         alt_table_row_color($k);
74
75                 $support = ($lang == 'en_GB') ||
76                         $_SESSION['get_text']->check_support($lang, $charset);
77
78                 if (function_exists('gettext') && !$support && !get_post('DisplayAll')) continue;
79
80                 label_cell($lang);
81                 label_cell($available ? get_package_view_str($lang, $lang_name) : $lang_name);
82                 label_cell($charset);
83                 label_cell($rtl ? _("Yes") : _("No"));
84                 
85                 label_cell($id === null ? _("None") :
86                         ($available && $installed ? $installed : _("Unknown")));
87
88                 label_cell($available ? $available : _("None"));
89
90                 label_cell($id === null ? '' :
91                         radio(null, 'CurDflt', $id, $dflt_lang == $lang, true),
92                         "align='center'");
93                 
94                 if (function_exists('gettext') && check_value('DisplayAll'))
95                         label_cell($support ? _("Yes") :_("No"));
96
97                 if (!$available && ($lang != 'en_GB'))  // manually installed language
98                         button_cell('Edit'.$id, _("Edit"), _('Edit non standard language configuration'), 
99                                 ICON_EDIT);
100                 elseif (check_pkg_upgrade($installed, $available)) // outdated or not installed language in repo
101                         button_cell('Update'.$pkg_name, $installed ? _("Update") : _("Install"),
102                                 _('Upload and install latest language package'), ICON_DOWN);
103                 else
104                         label_cell('');
105
106                 if (($id !== null) && ($lang != $currlang) && ($lang != 'en_GB')) {
107                         delete_button_cell('Delete'.$id, _('Delete'));
108                         submit_js_confirm('Delete'.$id, 
109                                 sprintf(_("You are about to remove language \'%s\'.\nDo you want to continue ?"), 
110                                         $lang_name));
111                 } else
112                         label_cell('');
113                 end_row();
114         }
115         end_table();
116         display_note(_("The marked language is the current language which cannot be deleted."), 0, 0, "class='currentfg'");
117         br();
118         submit_center_first('Refresh', _("Update default"), '', null);
119
120         submit_center_last('Add', _("Add new language manually"), '', false);
121
122         end_form();
123         div_end();
124 }
125 //---------------------------------------------------------------------------------------------
126 // Non standard (manually entered) languages support.
127 //
128 function check_data()
129 {
130         global $installed_languages;
131
132         if (get_post('code') == '' || get_post('name') == '' || get_post('encoding') == '') {
133                 display_error(_("Language name, code nor encoding cannot be empty"));
134                 return false;
135         }
136         $id = array_search_value($_POST['code'], $installed_languages, 'code');
137         if ($id !== null && $installed_languages[$id]['package'] != null) {
138                 display_error(_('Standard package for this language is already installed. If you want to install this language manually, uninstall standard language package first.'));
139                 return false;
140         }
141         return true;
142 }
143
144 function handle_submit($id)
145 {
146         global $path_to_root, $installed_languages, $dflt_lang, $Mode;
147
148         if ($_POST['dflt']) {
149                         $dflt_lang = $_POST['code'];
150         }
151         
152         $installed_languages[$id]['code'] = $_POST['code'];
153         $installed_languages[$id]['name'] = $_POST['name'];
154         $installed_languages[$id]['path'] = 'lang/' . $_POST['code'];
155         $installed_languages[$id]['encoding'] = $_POST['encoding'];
156         $installed_languages[$id]['rtl'] = (bool)$_POST['rtl'];
157         $installed_languages[$id]['package'] = '';
158         $installed_languages[$id]['version'] = '';
159         if (!write_lang())
160                 return false;
161         $directory = $path_to_root . "/lang/" . $_POST['code'];
162         if (!file_exists($directory))
163         {
164                 mkdir($directory);
165                 mkdir($directory . "/LC_MESSAGES");
166         }
167         if (is_uploaded_file($_FILES['uploadfile']['tmp_name']))
168         {
169                 $file1 = $_FILES['uploadfile']['tmp_name'];
170                 $file2 = $directory . "/LC_MESSAGES/".$_POST['code'].".po";
171                 if (file_exists($file2))
172                         unlink($file2);
173                 move_uploaded_file($file1, $file2);
174         }
175         if (is_uploaded_file($_FILES['uploadfile2']['tmp_name']))
176         {
177                 $file1 = $_FILES['uploadfile2']['tmp_name'];
178                 $file2 = $directory . "/LC_MESSAGES/".$_POST['code'].".mo";
179                 if (file_exists($file2))
180                         unlink($file2);
181                 move_uploaded_file($file1, $file2);
182         }
183         return true;
184 }
185
186 //---------------------------------------------------------------------------------------------
187
188 function display_language_edit($selected_id)
189 {
190         global $installed_languages, $dflt_lang;
191
192         if ($selected_id == -1)
193                 $n = count($installed_languages);
194         else
195                 $n = $selected_id;
196         
197         start_form(true);
198
199         start_table(TABLESTYLE2);
200
201         if ($selected_id != -1)
202         {
203                 $lang = $installed_languages[$n];
204                 $_POST['code'] = $lang['code'];
205                 $_POST['name']  = $lang['name'];
206                 $_POST['encoding']  = $lang['encoding'];
207                 if (isset($lang['rtl']) && $lang['rtl'] === true)
208                         $_POST['rtl']  = $lang['rtl'];
209                 else
210                         $_POST['rtl'] = false;
211                 $_POST['dflt'] = $dflt_lang == $lang['code'];
212                 hidden('selected_id', $selected_id);
213         }
214         text_row_ex(_("Language Code"), 'code', 20);
215         text_row_ex(_("Language Name"), 'name', 20);
216         text_row_ex(_("Encoding"), 'encoding', 20);
217
218         yesno_list_row(_("Right To Left"), 'rtl', null, "", "", false);
219         yesno_list_row(_("Default Language"), 'dflt', null, "", "", false);
220
221         file_row(_("Language File") . " (PO)", 'uploadfile');
222         file_row(_("Language File") . " (MO)", 'uploadfile2');
223
224         end_table(0);
225         display_note(_("Select your language files from your local harddisk."), 0, 1);
226
227         submit_add_or_update_center(false, '', 'both');
228
229         end_form();
230 }
231
232 function handle_delete($id)
233 {
234         global  $path_to_root, $installed_languages, $dflt_lang;
235
236         $lang = $installed_languages[$id]['code'];
237         if ($installed_languages[$id]['package'])
238                 if (!uninstall_package($installed_languages[$id]['package']))
239                         return;
240                         
241         if ($lang == $dflt_lang ) { 
242                 // on delete set default to current.
243                 $dflt_lang = $_SESSION['language']->code;
244         }
245         
246         unset($installed_languages[$id]);
247         $installed_languages = array_values($installed_languages);
248
249         if (!write_lang())
250                 return;
251
252         $dirname = "$path_to_root/lang/$lang";
253         if ($lang && is_dir($dirname)) {        // remove nonstadard language dir
254                 flush_dir($dirname, true);
255                 rmdir($dirname);
256         }
257 }
258
259 //---------------------------------------------------------------------------------------------
260
261 if ($Mode == 'Delete')
262         handle_delete($selected_id);
263
264 if ($Mode == 'ADD_ITEM' || $Mode == 'UPDATE_ITEM')
265         if (check_data() && handle_submit($selected_id))
266                 $Mode = 'RESET';
267
268 if ($id = find_submit('Update', false))
269         install_language($id);
270
271 if (get_post('_CurDflt_update') || (get_post('Refresh') && get_post('CurDflt', -1) != -1)) {
272         $new_lang = $installed_languages[get_post('CurDflt', 0)]['code'];
273         if ($new_lang != $dflt_lang) {
274                 $dflt_lang = $new_lang;
275                 write_lang();
276                 $Ajax->activate('lang_tbl');
277         }
278 }
279 if (get_post('_DisplayAll_update')) {
280         $Ajax->activate('lang_tbl');
281 }
282         
283 //---------------------------------------------------------------------------------------------
284
285 if (isset($_GET['popup']) || get_post('Add') || $Mode == 'Edit' || $Mode == 'ADD_ITEM' || $Mode == 'UPDATE_ITEM') {
286         display_language_edit($selected_id);
287 } else
288         display_languages();
289
290 //---------------------------------------------------------------------------------------------
291 end_page();
292
293 ?>