plugins/admin/LangManager.php
author Dan
Sat, 28 Feb 2009 14:38:10 -0500
changeset 847 28d5049803f1
parent 826 dcf5381ce8ba
child 1081 745200a9cc2a
permissions -rw-r--r--
http: minor fix to tolerate missing SERVER_SOFTWARE
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
     1
<?php
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
     2
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
     3
/*
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
     4
 * Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between
801
eb8b23f11744 Two big commits in one day I know, but redid password storage to use HMAC-SHA1. Consolidated much AES processing to three core methods in session that should handle everything automagically. Installation works; upgrades should. Rebranded as 1.1.6.
Dan
parents: 685
diff changeset
     5
 * Version 1.1.6 (Caoineag beta 1)
536
218a627eb53e Rebrand as 1.1.4 (Caoineag alpha 4)
Dan
parents: 504
diff changeset
     6
 * Copyright (C) 2006-2008 Dan Fuhry
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
     7
 *
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
     8
 * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
     9
 * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    10
 *
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    11
 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    12
 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    13
 */
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    14
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    15
function page_Admin_LangManager()
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    16
{
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    17
  global $db, $session, $paths, $template, $plugins; // Common objects
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    18
  global $lang;
661
5dd55a9240f8 Made Admin:LangManager purge caches properly when uninstalling a language
Dan
parents: 536
diff changeset
    19
  global $cache;
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    20
  if ( $session->auth_level < USER_LEVEL_ADMIN || $session->user_level < USER_LEVEL_ADMIN )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    21
  {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    22
    $login_link = makeUrlNS('Special', 'Login/' . $paths->nslist['Special'] . 'Administration', 'level=' . USER_LEVEL_ADMIN, true);
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    23
    echo '<h3>' . $lang->get('adm_err_not_auth_title') . '</h3>';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    24
    echo '<p>' . $lang->get('adm_err_not_auth_body', array( 'login_link' => $login_link )) . '</p>';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    25
    return;
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    26
  }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    27
  if ( isset($_POST['action']) )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    28
  {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    29
    $action =& $_POST['action'];
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    30
    // Parse parameters
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    31
    if ( strpos($action, ';') )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    32
    {
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    33
      // Parameter section
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    34
      $parms = substr($action, strpos($action, ';') + 1);
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    35
      
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    36
      // Action name section
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    37
      $action = substr($action, 0, strpos($action, ';'));
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    38
      
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    39
      // Match all parameters
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    40
      preg_match_all('/([a-z0-9_]+)=(.+?)(;|$)/', $parms, $matches);
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    41
      $parms = array();
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    42
      
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    43
      // For each full parameter, assign $parms an associative value
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    44
      foreach ( $matches[0] as $i => $_ )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    45
      {
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    46
        $parm = $matches[2][$i];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    47
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    48
        // Is this parameter in the form of an integer?
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    49
        // (designed to ease validation later)
826
dcf5381ce8ba Replaced integer checks that used preg_match() to use ctype_digit() instead
Dan
parents: 801
diff changeset
    50
        if ( ctype_digit($parm) )
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    51
          // Yes, run intval(), this enabling is_int()-ish checks
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    52
          $parm = intval($parm);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    53
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    54
        $parms[$matches[1][$i]] = $parm;
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    55
      }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    56
    }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    57
    switch ( $action )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    58
    {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    59
      case 'install_language':
399
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
    60
        
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
    61
        if ( defined('ENANO_DEMO_MODE') )
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
    62
        {
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
    63
          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
    64
          break;
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
    65
        }
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
    66
        
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    67
        $lang_list = list_available_languages();
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    68
        // Verify that we have this language's metadata
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    69
        if ( isset($lang_list[@$parms['iso639']]) )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    70
        {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    71
          // From here it's all downhill :-)
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    72
          $lang_code =& $parms['iso639'];
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    73
          $lang_data =& $lang_list[$lang_code];
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    74
          
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    75
          $result = install_language($lang_code, $lang_data['name_eng'], $lang_data['name']);
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    76
          if ( $result )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    77
          {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    78
            // Language installed. Import the language files.
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    79
            $lang_local = new Language($lang_code);
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    80
            if ( file_exists(ENANO_ROOT . "/language/{$lang_data['dir']}/backup.json") )
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    81
            {
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    82
              $lang_local->import(ENANO_ROOT . "/language/{$lang_data['dir']}/backup.json");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    83
            }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    84
            else
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    85
            {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    86
              foreach ( array('core', 'admin', 'tools', 'user') as $file )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    87
              {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    88
                $lang_local->import(ENANO_ROOT . "/language/{$lang_data['dir']}/$file.json");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    89
              }
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    90
            }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    91
            unset($lang_local);
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    92
            
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    93
            echo '<div class="info-box">' . $lang->get('acplm_msg_lang_install_success', array('lang_name' => htmlspecialchars($lang_data['name_eng']))) . '</div>';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    94
          }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    95
        }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
    96
        break;
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    97
      case 'modify_language':
399
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
    98
        
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
    99
        $lang_id =& $parms['lang_id'];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   100
        if ( !is_int($lang_id) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   101
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   102
          echo 'Hacking attempt';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   103
          break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   104
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   105
        
400
7eef739a5b81 A few hacks to make the 1.1 demo plugin work
Dan
parents: 399
diff changeset
   106
        if ( isset($parms['finish']) && !empty($_POST['lang_name_native']) && !empty($_POST['lang_name_english']) && !defined('ENANO_DEMO_MODE') )
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   107
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   108
          // We just did validation above, it's safe to save.
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   109
          $name_native = $db->escape($_POST['lang_name_native']);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   110
          $name_english = $db->escape($_POST['lang_name_english']);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   111
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   112
          $q = $db->sql_query('UPDATE ' . table_prefix . "language SET lang_name_native = '$name_native', lang_name_default = '$name_english' WHERE lang_id = $lang_id;");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   113
          if ( !$q )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   114
            $db->_die();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   115
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   116
          echo '<div class="info-box">' . $lang->get('acplm_msg_basic_save_success') . '</div>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   117
        }
400
7eef739a5b81 A few hacks to make the 1.1 demo plugin work
Dan
parents: 399
diff changeset
   118
        else if ( isset($parms['finish']) && defined('ENANO_DEMO_MODE') )
7eef739a5b81 A few hacks to make the 1.1 demo plugin work
Dan
parents: 399
diff changeset
   119
        {
7eef739a5b81 A few hacks to make the 1.1 demo plugin work
Dan
parents: 399
diff changeset
   120
          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';
7eef739a5b81 A few hacks to make the 1.1 demo plugin work
Dan
parents: 399
diff changeset
   121
        }
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   122
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   123
        // Select language data
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   124
        $q = $db->sql_query('SELECT lang_name_native, lang_name_default, lang_code FROM ' . table_prefix . "language WHERE lang_id = $lang_id;");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   125
        if ( !$q )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   126
          $db->_die();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   127
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   128
        list($name_native, $name_english, $lang_code) = $db->fetchrow_num();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   129
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   130
        // Output properties table
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   131
        echo '<h3>' . $lang->get('acplm_heading_modify') . '</h3>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   132
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   133
        acp_start_form();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   134
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   135
        ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   136
          <div class="tblholder">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   137
            <table border="0" cellspacing="1" cellpadding="4">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   138
              <tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   139
                <th colspan="2">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   140
                  <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   141
                    echo $lang->get('acplm_th_lang_basic');
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   142
                  ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   143
                </th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   144
              </tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   145
              <tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   146
              <td class="row2" style="width: 50%;">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   147
                  <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   148
                    echo str_replace('"', '', $lang->get('acplm_field_lang_name_native'));
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   149
                  ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   150
                </td>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   151
                <td class="row1">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   152
                  <input type="text" name="lang_name_native" value="<?php echo htmlspecialchars($name_native); ?>" />
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   153
                </td>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   154
              </tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   155
              <tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   156
                <td class="row2">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   157
                  <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   158
                    echo $lang->get('acplm_field_lang_name_english');
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   159
                  ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   160
                </td>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   161
                <td class="row1">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   162
                  <input type="text" name="lang_name_english" value="<?php echo htmlspecialchars($name_english); ?>" />
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   163
                </td>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   164
              </tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   165
              <tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   166
                <td class="row2">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   167
                  <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   168
                    echo $lang->get('acplm_field_lang_code') . '<br />'
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   169
                       . '<small>' . $lang->get('acplm_field_lang_code_hint') . '</small>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   170
                  ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   171
                </td>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   172
                <td class="row1">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   173
                  <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   174
                    echo $lang_code;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   175
                  ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   176
                </td>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   177
              </tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   178
              <tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   179
                <th class="subhead" colspan="2">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   180
                  <button name="action" value="modify_language;finish=1;lang_id=<?php echo $lang_id; ?>"><?php echo $lang->get('etc_save_changes'); ?></button>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   181
                </th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   182
              </tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   183
            </table>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   184
          </div>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   185
        </form>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   186
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   187
        <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   188
        acp_start_form();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   189
        ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   190
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   191
        <h3><?php echo $lang->get('acplm_heading_edit_strings_portal'); ?></h3>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   192
        <p><?php echo $lang->get('acplm_msg_edit_strings_portal_intro'); ?></p>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   193
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   194
        <p>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   195
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   196
        <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   197
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   198
        // Grab a Language object
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   199
        if ( $lang->lang_id == $lang_id )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   200
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   201
          $lang_local =& $lang;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   202
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   203
        else
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   204
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   205
          $lang_local = new Language($lang_id);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   206
          $lang_local->fetch();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   207
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   208
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   209
        $categories_loc = array();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   210
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   211
        // Using the & here ensures that a reference is created, thus avoiding wasting memory
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   212
        foreach ( $lang_local->strings as $cat => &$_ )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   213
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   214
          unset($_);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   215
          $categories_loc[$cat] = htmlspecialchars($lang->get("meta_$cat"));
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   216
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   217
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   218
        asort($categories_loc);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   219
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   220
        echo '<select name="cat_id">';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   221
        foreach ( $categories_loc as $cat_id => $cat_name)
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   222
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   223
          echo "<option value=\"$cat_id\">$cat_name</option>";
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   224
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   225
        echo '</select>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   226
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   227
        ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   228
        <button name="action" value="edit_strings;lang_id=<?php echo $lang_id; ?>">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   229
          <?php echo $lang->get('acplm_btn_edit_strings_portal'); ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   230
        </button>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   231
        </p>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   232
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   233
        <h3><?php echo $lang->get('acplm_heading_reimport_portal'); ?></h3>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   234
        <p><?php echo $lang->get('acplm_msg_reimport_portal_intro'); ?></p>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   235
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   236
        <p>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   237
          <button name="action" value="reimport;iso639=<?php echo $lang_code; ?>;lang_id=<?php echo $lang_id; ?>">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   238
            <?php echo $lang->get('acplm_btn_reimport'); ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   239
          </button>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   240
        </p>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   241
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   242
        </form>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   243
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   244
        <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   245
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   246
        echo '<h3>' . $lang->get('acplm_heading_backup') . '</h3>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   247
        echo '<p>' . $lang->get('acplm_backup_intro') . '</p>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   248
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   249
        echo '<form action="' . makeUrlNS('Admin', 'LangManager') . '" method="post">';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   250
        echo '<button name="action" value="backup_language;lang_id=' . $lang_id . '">' . $lang->get('acplm_btn_create_backup') . '</button>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   251
        echo '</form>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   252
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   253
        return true;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   254
      case 'edit_strings':
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   255
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   256
        $cat_id = @$_POST['cat_id'];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   257
        if ( !preg_match('/^[a-z0-9]+$/', $cat_id) || !is_int(@$parms['lang_id']) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   258
          break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   259
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   260
        $lang_id =& $parms['lang_id'];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   261
        
399
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   262
        if ( isset($parms['save']) && !defined('ENANO_DEMO_MODE') )
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   263
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   264
          // Grab a Language object
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   265
          if ( $lang->lang_id == $lang_id )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   266
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   267
            $lang_local =& $lang;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   268
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   269
          else
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   270
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   271
            $lang_local = new Language($lang_id);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   272
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   273
          // Main save loop
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   274
          // Trying to minimize queries as much as possible here, but you know how that goes.
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   275
          $count_upd = 0;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   276
          foreach ( $_POST['string'] as $string_id => $user_content )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   277
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   278
            $curr_content = $lang_local->get_uncensored("{$cat_id}_{$string_id}");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   279
            if ( $curr_content != $user_content )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   280
            {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   281
              $count_upd++;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   282
              $user_content = $db->escape($user_content);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   283
              $string_id = $db->escape($string_id);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   284
              $q = $db->sql_query('UPDATE ' . table_prefix . "language_strings SET string_content = '$user_content' WHERE lang_id = $lang_id AND string_category = '$cat_id' AND string_name = '$string_id';");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   285
              if ( !$q )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   286
                $db->_die();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   287
            }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   288
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   289
          if ( $count_upd > 0 )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   290
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   291
            // Update the cache
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   292
            $lang_local->regen_caches();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   293
            
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   294
            // Update modification time
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   295
            $q = $db->sql_query('UPDATE ' . table_prefix . "language SET last_changed = " . time() . " WHERE lang_id = $lang_id;");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   296
            if ( !$q )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   297
              $db->_die();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   298
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   299
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   300
          echo '<div class="info-box">' . $lang->get('acplm_msg_string_save_success') . '</div>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   301
        }
399
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   302
        else if ( isset($parms['save']) && defined('ENANO_DEMO_MODE') )
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   303
        {
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   304
          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   305
        }
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   306
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   307
        acp_start_form();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   308
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   309
        $cat_name = $lang->get("meta_$cat_id");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   310
        echo '<h3>' . $lang->get('acplm_editor_heading', array('cat_name' => $cat_name)) . '</h3>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   311
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   312
        // Fetch all strings
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   313
        // This is more efficient than iterating through $lang->strings, I think.
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   314
        $q = $db->sql_query('SELECT string_id, string_name, string_content FROM ' . table_prefix . "language_strings WHERE string_category = '$cat_id' AND lang_id = $lang_id;");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   315
        if ( !$q )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   316
          $db->_die();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   317
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   318
        ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   319
        <div class="tblholder">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   320
          <table border="0" cellspacing="1" cellpadding="4">
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   321
            <tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   322
              <th style="width: 3%;"><?php echo $lang->get('acplm_editor_col_string_name'); ?></th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   323
              <th><?php echo $lang->get('acplm_editor_col_string_content'); ?></th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   324
            </tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   325
        <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   326
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   327
        while ( $row = $db->fetchrow_num() )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   328
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   329
          list($string_id, $string_name, $string_content) = $row;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   330
          unset($row);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   331
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   332
          echo '<tr>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   333
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   334
          if ( strpos($string_content, "\n") )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   335
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   336
            $editor = '<textarea rows="' . get_line_count($string_content) . '" cols="50" style="width: 99%;" ';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   337
            $editor .= 'name="string[' . htmlspecialchars($string_name) . ']" ';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   338
            $editor .= '>' . htmlspecialchars($string_content);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   339
            $editor .= '</textarea>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   340
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   341
          else
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   342
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   343
            $editor = '<input type="text" size="50" style="width: 99%;" ';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   344
            $editor .= 'name="string[' . htmlspecialchars($string_name) . ']" ';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   345
            $editor .= 'value="' . htmlspecialchars($string_content) . '" ';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   346
            $editor .= '/>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   347
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   348
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   349
          echo '<td class="row2">' . htmlspecialchars($string_name) . '</td>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   350
          echo '<td class="row1">' . $editor . '</td>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   351
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   352
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   353
          echo '</tr>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   354
          echo "\n";
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   355
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   356
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   357
        echo '<tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   358
                <th class="subhead" colspan="2">';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   359
                
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   360
        echo '<input type="hidden" name="cat_id" value="' . $cat_id . '" />';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   361
                
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   362
        // Button: save
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   363
        echo '<button name="action" value="edit_strings;lang_id=' . $lang_id . ';save=1" style="font-weight: bold;">' . $lang->get('etc_save_changes') . '</button> ';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   364
        // Button: revert
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   365
        echo '<button name="action" value="edit_strings;lang_id=' . $lang_id . '" style="font-weight: normal;">' . $lang->get('acplm_editor_btn_revert') . '</button> ';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   366
        // Button: cancel
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   367
        echo '<button name="action" value="modify_language;lang_id=' . $lang_id . '" style="font-weight: normal;">' . $lang->get('acplm_editor_btn_cancel') . '</button>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   368
                
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   369
        echo '  </th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   370
              </tr>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   371
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   372
        ?>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   373
          </table>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   374
        </div>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   375
        <?php
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   376
        echo '</form>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   377
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   378
        return true;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   379
      case 'reimport':
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   380
        if ( !isset($parms['iso639']) || !is_int(@$parms['lang_id']) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   381
          break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   382
        
399
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   383
        if ( defined('ENANO_DEMO_MODE') )
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   384
        {
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   385
          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   386
          break;
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   387
        }
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   388
        
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   389
        $lang_code =& $parms['iso639'];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   390
        $lang_id =& $parms['lang_id'];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   391
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   392
        $lang_list = list_available_languages();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   393
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   394
        if ( !isset($lang_list[$lang_code]) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   395
          break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   396
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   397
        // Grab a Language object
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   398
        if ( $lang->lang_id == $lang_id )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   399
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   400
          $lang_local =& $lang;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   401
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   402
        else
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   403
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   404
          $lang_local = new Language($lang_id);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   405
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   406
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   407
        $lang_data =& $lang_list[$lang_code];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   408
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   409
        // This is the big re-import loop
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   410
        if ( file_exists(ENANO_ROOT . "/language/{$lang_data['dir']}/backup.json") )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   411
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   412
          $lang_local->import(ENANO_ROOT . "/language/{$lang_data['dir']}/backup.json");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   413
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   414
        else
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   415
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   416
          foreach ( array('core', 'admin', 'tools', 'user') as $file )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   417
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   418
            $lang_local->import(ENANO_ROOT . "/language/{$lang_data['dir']}/$file.json");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   419
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   420
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   421
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   422
        echo '<div class="info-box">' . $lang->get('acplm_msg_reimport_success') . '</div>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   423
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   424
        break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   425
      case 'backup_language':
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   426
        if ( !is_int(@$parms['lang_id']) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   427
          break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   428
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   429
        $lang_id =& $parms['lang_id'];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   430
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   431
        // Grab a Language object
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   432
        if ( $lang->lang_id == $lang_id )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   433
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   434
          $lang_local =& $lang;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   435
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   436
        else
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   437
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   438
          $lang_local = new Language($lang_id);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   439
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   440
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   441
        $filename = 'enano_lang_' . $lang_local->lang_code . '_' . enano_date('ymd') . '.json';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   442
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   443
        // Free as much memory as possible
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   444
        $db->close();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   445
        unset($GLOBALS['session'], $GLOBALS['paths'], $GLOBALS['template'], $GLOBALS['plugins']);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   446
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   447
        // HTTP headers
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   448
        header('Content-type: application/json');
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   449
        header('Content-disposition: attachment; filename=' . $filename);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   450
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   451
        // Export to JSON
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   452
        $lang_struct = array(
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   453
            'categories' => array_keys($lang_local->strings),
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   454
            'strings' => $lang_local->strings
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   455
          );
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   456
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   457
        $lang_struct = enano_json_encode($lang_struct);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   458
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   459
        header('Content-length: ' . strlen($lang_struct));
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   460
        echo $lang_struct;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   461
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   462
        exit;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   463
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   464
      case 'uninstall_language':
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   465
        if ( !is_int(@$parms['lang_id']) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   466
          break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   467
        
399
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   468
        if ( defined('ENANO_DEMO_MODE') )
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   469
        {
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   470
          echo '<div class="error-box">' . $lang->get('acplm_err_lang_install_demo') . '</div>';
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   471
          break;
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   472
        }
a3a9e463c62f Cosmetic improvements to page editor; added demo mode checks in Admin:LangManager
Dan
parents: 387
diff changeset
   473
        
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   474
        $lang_id =& $parms['lang_id'];
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   475
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   476
        if ( isset($parms['confirm']) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   477
        {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   478
          $lang_default = intval(getConfig('default_language'));
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   479
          if ( $lang_default == $lang_id )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   480
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   481
            echo '<div class="error-box">' . $lang->get('acplm_err_cant_uninstall_default') . '</div>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   482
            break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   483
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   484
          if ( $lang_id == $lang->lang_id )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   485
          {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   486
            // Unload the current language since it's about to be uninstalled
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   487
            unset($lang, $GLOBALS['lang']);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   488
            $GLOBALS['lang'] = new Language($lang_default);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   489
            global $lang;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   490
          }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   491
          // We're clear
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   492
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   493
          // Remove cache files
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   494
          $cache_file = ENANO_ROOT . "/cache/lang_{$lang_id}.php";
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   495
          if ( file_exists($cache_file) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   496
            @unlink($cache_file);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   497
          
661
5dd55a9240f8 Made Admin:LangManager purge caches properly when uninstalling a language
Dan
parents: 536
diff changeset
   498
          $cache->purge("lang_{$lang_id}");
5dd55a9240f8 Made Admin:LangManager purge caches properly when uninstalling a language
Dan
parents: 536
diff changeset
   499
          
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   500
          // Remove strings
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   501
          $q = $db->sql_query('DELETE FROM ' . table_prefix . "language_strings WHERE lang_id = $lang_id;");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   502
          if ( !$q )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   503
            $db->_die();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   504
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   505
          // Delete the language
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   506
          $q = $db->sql_query('DELETE FROM ' . table_prefix . "language WHERE lang_id = $lang_id;");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   507
          if ( !$q )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   508
            $db->_die();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   509
          
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   510
          echo '<div class="info-box">' . $lang->get('acplm_msg_uninstall_success') . '</div>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   511
          break;
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   512
        }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   513
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   514
        acp_start_form();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   515
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   516
        echo '<h3>' . $lang->get('acplm_uninstall_confirm_title') . '</h3>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   517
        echo '<p>' . $lang->get('acplm_uninstall_confirm_body') . '</p>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   518
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   519
        echo '<p><button name="action" style="font-weight: bold;" value="uninstall_language;lang_id=' . $lang_id . ';confirm=1">' . $lang->get('acplm_btn_uninstall_confirm') . '</button> ';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   520
        echo '<button name="action" value="home">' . $lang->get('acplm_btn_uninstall_cancel') . '</button></p>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   521
        
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   522
        echo '</form>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   523
        return true;
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   524
    }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   525
  }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   526
  
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   527
  acp_start_form();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   528
  
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   529
  // Select current languages
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   530
  $q = $db->sql_query('SELECT lang_code, lang_name_native, lang_name_default, lang_id FROM ' . table_prefix . "language ORDER BY lang_id ASC;");
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   531
  if ( !$q )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   532
    $db->_die();
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   533
  
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   534
  // Language properties/edit/delete portal table
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   535
  echo '<h3>' . $lang->get('acplm_heading_editor_portal') . '</h3>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   536
  
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   537
  echo '<div class="tblholder">';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   538
  echo '<table border="0" cellspacing="1" cellpadding="4">';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   539
  echo '<tr>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   540
          <th>' . $lang->get('acplm_col_lang_id') . '</th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   541
          <th>' . $lang->get('acplm_col_lang_code') . '</th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   542
          <th>' . $lang->get('acplm_col_lang_name') . '</th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   543
          <th>' . $lang->get('acplm_col_lang_name_eng') . '</th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   544
          <th></th>
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   545
        </tr>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   546
  
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   547
  $cls = 'row2';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   548
  
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   549
  $btn_edit = $lang->get('acplm_portal_btn_edit');
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   550
  $btn_unin = $lang->get('acplm_portal_btn_unin');
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   551
  
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   552
  while ( $row = $db->fetchrow($q) )
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   553
  {
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   554
    $cls = ( $cls == 'row1' ) ? 'row2' : 'row1';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   555
    
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   556
    echo '<tr>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   557
    
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   558
    $lang_code = htmlspecialchars($row['lang_code']);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   559
    $lang_name_native  = htmlspecialchars($row['lang_name_native']);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   560
    $lang_name_english = htmlspecialchars($row['lang_name_default']);
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   561
    
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   562
    echo "<td class=\"$cls\" style=\"text-align: center;\">{$row['lang_id']}</td>";
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   563
    echo "<td class=\"$cls\" style=\"text-align: center;\">{$lang_code}</td>";
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   564
    echo "<td class=\"$cls\" style=\"text-align: center;\">{$lang_name_native}</td>";
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   565
    echo "<td class=\"$cls\" style=\"text-align: center;\">{$lang_name_english}</td>";
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   566
    echo "<td class=\"$cls\" style=\"text-align: center;\"><button name=\"action\" value=\"modify_language;lang_id={$row['lang_id']}\">$btn_edit</button> <button name=\"action\" value=\"uninstall_language;lang_id={$row['lang_id']}\">$btn_unin</button></td>";
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   567
    
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   568
    echo '</tr>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   569
  }
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   570
  
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   571
  echo '</table></div>';
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   572
  
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   573
  // Reset the result pointer to zero so we can fetch that list of languages again
377
bb3e6c3bd4f4 Removed stray debugging info from ACL editor success notification; added ability for guests to set language on URI (?lang=eng); added html_in_pages ACL type and separated from php_in_pages so HTML can be embedded but not PHP; rewote portions of the path manager to better abstract URL input; added Zend Framework into list of BSD-licensed libraries; localized some remaining strings; got the migration script working, but just barely; fixed display bug in Special:Contributions; localized Main Page button in admin panel
Dan
parents: 376
diff changeset
   574
  if ( !$db->sql_data_seek(0, $q) )
bb3e6c3bd4f4 Removed stray debugging info from ACL editor success notification; added ability for guests to set language on URI (?lang=eng); added html_in_pages ACL type and separated from php_in_pages so HTML can be embedded but not PHP; rewote portions of the path manager to better abstract URL input; added Zend Framework into list of BSD-licensed libraries; localized some remaining strings; got the migration script working, but just barely; fixed display bug in Special:Contributions; localized Main Page button in admin panel
Dan
parents: 376
diff changeset
   575
  {
bb3e6c3bd4f4 Removed stray debugging info from ACL editor success notification; added ability for guests to set language on URI (?lang=eng); added html_in_pages ACL type and separated from php_in_pages so HTML can be embedded but not PHP; rewote portions of the path manager to better abstract URL input; added Zend Framework into list of BSD-licensed libraries; localized some remaining strings; got the migration script working, but just barely; fixed display bug in Special:Contributions; localized Main Page button in admin panel
Dan
parents: 376
diff changeset
   576
    $db->_die('LangManager doing seek back to zero for installation blacklist');
bb3e6c3bd4f4 Removed stray debugging info from ACL editor success notification; added ability for guests to set language on URI (?lang=eng); added html_in_pages ACL type and separated from php_in_pages so HTML can be embedded but not PHP; rewote portions of the path manager to better abstract URL input; added Zend Framework into list of BSD-licensed libraries; localized some remaining strings; got the migration script working, but just barely; fixed display bug in Special:Contributions; localized Main Page button in admin panel
Dan
parents: 376
diff changeset
   577
  }
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   578
  
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   579
  // $lang_list is fetched by the posthandler sometimes
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   580
  if ( !isset($lang_list) )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   581
  {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   582
    // Build a list of languages in the languages/ directory, then
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   583
    // eliminate the ones that are already installed.
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   584
    $lang_list = list_available_languages();
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   585
  }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   586
  
377
bb3e6c3bd4f4 Removed stray debugging info from ACL editor success notification; added ability for guests to set language on URI (?lang=eng); added html_in_pages ACL type and separated from php_in_pages so HTML can be embedded but not PHP; rewote portions of the path manager to better abstract URL input; added Zend Framework into list of BSD-licensed libraries; localized some remaining strings; got the migration script working, but just barely; fixed display bug in Special:Contributions; localized Main Page button in admin panel
Dan
parents: 376
diff changeset
   587
  while ( $row = $db->fetchrow($q) )
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   588
  {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   589
    $lang_code =& $row['lang_code'];
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   590
    if ( isset($lang_list[$lang_code]) )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   591
    {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   592
      unset($lang_list[$lang_code]);
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   593
      unset($lang_list[$lang_code]); // PHP <5.1.4 Zend bug
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   594
    }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   595
  }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   596
  
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   597
  if ( count($lang_list) > 0 )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   598
  {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   599
    echo '<h3>' . $lang->get('acplm_heading_install') . '</h3>';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   600
    echo '<div class="tblholder">
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   601
            <table border="0" cellspacing="1" cellpadding="4">
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   602
              <tr>
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   603
                <th>' . $lang->get('acplm_col_lang_code') . '</th>
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   604
                <th>' . $lang->get('acplm_col_lang_name') . '</th>
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   605
                <th>' . $lang->get('acplm_col_lang_name_eng') . '</th>
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   606
                <th></th>
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   607
              </tr>';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   608
              
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   609
    $cls = 'row2';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   610
    foreach ( $lang_list as $lang_code => $lang_data )
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   611
    {
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   612
      $cls = ( $cls == 'row1' ) ? 'row2' : 'row1';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   613
      
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   614
      echo '<tr>';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   615
      
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   616
      $lang_code = htmlspecialchars($lang_code);
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   617
      $lang_data['name'] = htmlspecialchars($lang_data['name']);
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   618
      $lang_data['name_eng'] = htmlspecialchars($lang_data['name_eng']);
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   619
      
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   620
      echo "<td class=\"$cls\" style=\"text-align: center;\">$lang_code</td>";
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   621
      echo "<td class=\"$cls\" style=\"text-align: center;\">{$lang_data['name']}</td>";
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   622
      echo "<td class=\"$cls\" style=\"text-align: center;\">{$lang_data['name_eng']}</td>";
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   623
      echo "<td class=\"$cls\" style=\"text-align: center;\"><button name=\"action\" value=\"install_language;iso639=$lang_code\">" . $lang->get('acplm_btn_install_language') . "</button></td>";
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   624
      
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   625
      echo '</tr>';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   626
    }
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   627
    echo '    </tr>
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   628
            </table>
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   629
          </div>';
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   630
  }
376
66732bd4532c Finished (or nearly finished) the admin language CP
Dan
parents: 372
diff changeset
   631
  echo '</form>';
372
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   632
}
5bd429428101 A number of scattered changes. Profiler added and only enabled in debug mode (currently on), but awfully useful for fixing performance in the future. Started work on Admin:LangManager
Dan
parents:
diff changeset
   633