Копирование таблиц в одной базе

DROP PROCEDURE IF EXISTS `copy`//
CREATE DEFINER=`root`@`localhost` PROCEDURE `copy`(IN old_prefix VARCHAR(20), IN new_prefix VARCHAR(20))
BEGIN
  DECLARE done INT DEFAULT 0;
  DECLARE table_name VARCHAR(40);
  DECLARE new_table_name VARCHAR(40);
  DECLARE table_postfix VARCHAR(40);
  DECLARE cur1 CURSOR FOR SHOW TABLES;
  DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = 1;

  OPEN cur1;

  REPEAT
    FETCH cur1 INTO table_name;
    SET table_postfix = TRIM(LEADING old_prefix FROM table_name);
    SET new_table_name = CONCAT(new_prefix, table_postfix);
    IF NOT done THEN
      IF table_name LIKE CONCAT(old_prefix, '%') THEN
        SET @S := CONCAT('CREATE TABLE `', new_table_name, '` LIKE `', table_name, '`;' );
        PREPARE stmt FROM @S;
        EXECUTE stmt;
        DEALLOCATE PREPARE stmt;

        SET @S := CONCAT('INSERT INTO `', new_table_name, '` SELECT * FROM `', table_name, '`;');
        PREPARE stmt FROM @S;
        EXECUTE stmt;
        DEALLOCATE PREPARE stmt;
      END IF;
    END IF;
  UNTIL done END REPEAT;

  CLOSE cur1;

END

CALL copy('old_prefix', 'new_prefix');

CALL copy('', 'new_prefix');