Free source (Delphi, PHP, Perl) Archives

Convert tables from innodb to MyISAM – WordPress

This is a simple script for WordPress that converts all the tables from innodb to MyISAM. Some times this operation improves the speed of saving a page or post from admin panel.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

<?php

// DEVELOPED BY SBZ

// $host = 'localhost';

// $user = '';

// $password = '';

// $db = '';

require 'wp-config.php';

$host = DB_HOST;

$user = DB_USER;

$password = DB_PASSWORD;

$db = DB_NAME;

$link=mysqli_connect("$host", $user, $password) or die(mysqli_error($link));

mysqli_select_db($link,"$db") or die(mysqli_error($link));

$sql = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES

WHERE TABLE_SCHEMA = '$db'

AND ENGINE = 'InnoDB'";

$rs = mysqli_query($link,$sql);

while($row = mysqli_fetch_array($rs))

{

$tbl = $row[0];

echo $tbl.'<br>';

$sql = "ALTER TABLE `$tbl` ENGINE=MyISAM";

mysqli_query($link,$sql);

}

?>

You can try it when it is very slow to save changes in a WordPress page or post.

Solon Zenetzis Last modified.: 06/05/2019 Free source (Delphi, PHP, Perl)

Programmatically selecting a TTreeView node by index – Delphi

Here’s an example that has will show you how to programmatically select a TTreeView node via index number

1

2

3

4

5

6

7

8

9

for i:=0 to TreeView1.Items.Count - 1 do begin

if TreeView1.Items[i].SelectedIndex = indexno then begin

TreeView1.Select(TreeView1.Items[i]);

TreeView1.SetFocus;

break;

end;

Solon Zenetzis Free source (Delphi, PHP, Perl)

Field appearance under certain conditions and line change – FastReport

Example of field appearance with line change under certain conditions in FastReport.

1	[IIF(<order_lines_print."subcategory"> ='','','<u>'+<order_lines_print."subcategory">+'</u>'+#13)][order_lines_print."description"]

Also we can put basic html commands by activating it in TfrxMemoView and set AllowHTMLTags=true

Sakis Kozikopoulos Last modified.: 28/02/2019 Free source (Delphi, PHP, Perl), Installation / Uninstallation / Issues

Opencart 2.2.0.0 SSL & SEO issue fix

There is an Opencart 2.2.0.0 issue because base href tag is not properly setup when using SSL and static assets are loaded with the wrong path. To fix this, edit catalog/controller/common/header.php and replace

1	$server = $this->config->get('config_ssl');

with

1	$server = str_replace('http:', 'https:', $this->config->get('config_url'));

After you make this change, refresh Opencart modifications, clear vqmod’s cache (if you have vqmod installed) and your issue […]

Yannis Theodosiadis Last modified.: 03/01/2018 Free source (Delphi, PHP, Perl)

Assign OnKeyDown event on TAdvDBFormPanel (Delphi)

This is an easy way to assign onkeydown event in all edit controls created by TAdvDBFormPanel:

1

2

3

4

5

6

7

8

9

10

var

i:integer;

editp:TDBAdvEdit;

begin

for i:=0 to AdvDBFormPanel1.layout.Items.Count - 1 do

if AdvDBFormPanel1.layout.Items.Items[i].DataControl = dcedit then begin

editp:=(AdvDBFormPanel1.layout.Items.Items[i].EditCtrl as TDBAdvEdit);

editp.OnKeyDown:=Edit1KeyDown;

end;

Solon Zenetzis Free source (Delphi, PHP, Perl)

Opencart 2.2 redirect issue

If you want to redirect your old site pages to new opencart 2.x, add the following code to the end of .htaccess: (the example is from virtuemart to opencart 2.2)

1 2	RewriteCond %{THE_REQUEST} /index\.php\?page=shop.browse&category_id=330&option=com_virtuemart&Itemid=2 [NC] RewriteRule ^ https://www.newdomain.com/index.php?route=product/category&path=3_328_408_330 [L,R=302]

Solon Zenetzis Last modified.: 25/05/2017 Free source (Delphi, PHP, Perl), Web development

.htaccess error: Option All not allowed here

If you get a white page and in logs: “Option All not allowed here” replace in .htaccess

1	Options All -Indexes

with

1	Options +SymlinksIfOwnerMatch

Solon Zenetzis Last modified.: 25/05/2017 Free source (Delphi, PHP, Perl), Linux general issues

Error pagination page={page} in SEO (Opencart)

A simple solution to fix this issue is to make some modifications in: /system/library/pagination.php Search for

1

2

3

4

5

6

7

8

if ($page > 1) {

$output .= '<li><a href="' . str_replace('&page={page}', '', $this->url) . '">' . $this->text_first . '</a></li>';

if($page - 1 === 1){

$output .= '<li><a href="' . str_replace('&page={page}', '', $this->url) . '">' . $this->text_prev . '</a></li>';

} else {

$output .= '<li><a href="' . str_replace('{page}', $page - 1, $this->url) . '">' . $this->text_prev . '</a></li>';

}

and replace with

1

2

3

4

5

6

7

8

9

if ($page > 1) {

$output .= '<li><a href="' . str_replace(array('&page={page}', '?page={page}'), '', $this->url) . '">' . $this->text_first . '</a></li>';

if ($page - 1 === 1) {

$output .= '<li><a href="' . str_replace(array('&page={page}', '?page={page}'), '', $this->url) . '">' . $this->text_prev . '</a></li>';

} else {

$output .= '<li><a href="' . str_replace('{page}', $page - 1, $this->url) . '">' . $this->text_prev . '</a></li>';

}

also find

1	$output .= '<li><a href="' . str_replace('&page={page}', '', $this->url) . '">' . $i . '</a></li>';

and replace with

1	$output .= '<li><a href="' . str_replace(array('&page={page}', '?page={page}'), '', $this->url) . '">' . $i . '</a></li>';

Source: http://forum.opencart-russia.ru/threads/oshibka-paginacii-page-page-pri-seo.4583/

Solon Zenetzis Last modified.: 25/05/2017 Free source (Delphi, PHP, Perl), Web development

Unserialize a string (PHP)

Unserialize a string

1

2

3

4

$test=unserialize('a:8:{s:3:"sku";s:0:"";s:8:"products";a:3:{i:1;a:3:{s:6:"option";s:3:"ttt";s:5:"price";s:3:"111";s:9:"saleprice";s:0:"";}i:2;a:3:{s:6:"option";s:3:"eee";s:5:"price";s:3:"222";s:9:"saleprice";s:0:"";}i:3;a:3:{s:6:"option";s:0:"";s:5:"price";s:0:"";s:9:"saleprice";s:0:"";}}s:11:"description";s:0:"";s:8:"shiprate";s:1:"F";s:8:"featured";s:2:"no";s:4:"sale";s:2:"no";s:10:"cart_radio";s:1:"0";s:6:"optset";s:0:"";}');

print_r($test);

echo $test[products][1][price];

Solon Zenetzis Free source (Delphi, PHP, Perl)

Assign store id on all products at once (PHP – OpenCart)

Save the following script in a file on main OpenCart directory and call it. Set the variable $store_id with your preferred store.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

<?php

header("Cache-Control: no-cache, must-revalidate"); // HTTP/1.1

header('Content-Type: text/html; charset=UTF-8');

require 'config.php';

$store_id= 0;

$host = DB_HOSTNAME;

$user = DB_USERNAME;

$password = DB_PASSWORD;

$db = DB_DATABASE;

$dbprefix = DB_PREFIX;

$link=mysql_connect("$host", $user, $password) or die(mysql_error());

mysql_select_db("$db") or die(mysql_error());

mysql_set_charset('utf8',$link);

$data = mysql_query("SELECT * FROM ".$dbprefix."product") or die(mysql_error());

while($alldata = mysql_fetch_array( $data ))

{

$data2 = mysql_query("INSERT INTO ".$dbprefix."product_to_store (product_id,store_id ) VALUES (".$alldata['product_id'].",".$store_id.") ON DUPLICATE KEY UPDATE product_id=LAST_INSERT_ID(product_id), store_id=".$store_id."; ") or die(mysql_error());

echo $alldata['product_id']."<br>\n";

}

echo "ok";

?>

Solon Zenetzis Last modified.: 03/03/2016 Free source (Delphi, PHP, Perl)

Category: Free source (Delphi, PHP, Perl)

Convert tables from innodb to MyISAM – WordPress

Programmatically selecting a TTreeView node by index – Delphi

Field appearance under certain conditions and line change – FastReport

Opencart 2.2.0.0 SSL & SEO issue fix

Assign OnKeyDown event on TAdvDBFormPanel (Delphi)

Opencart 2.2 redirect issue

.htaccess error: Option All not allowed here

Error pagination page={page} in SEO (Opencart)

Unserialize a string (PHP)

Assign store id on all products at once (PHP – OpenCart)

Categories