Извиняюсь что плутаюсь, но можете подсказать какие именно строки поменять? Так как по номер строках ничего не совпадает (свои правки).
Попробуйте тогда искать и добавить самостоятельно
# --- Смена пакета текущего месяца ---
sub SP_SetPaket
{
{
#немного поскипано
$coment="Смена тарифного плана $coment";
$rows=&sql_do($dbh,"INSERT INTO pays SET mid=$Mid,cash=-($got_money),type=10,bonus='y',admin_id=$Adm{id},admin_ip=INET_ATON('$RealIp'),coment='$coment',category=105,time=$ut");
$rows<1 && &Error($V? "$V Ошибка создания платежа-снятия за смену тарифного плана" : "Временная ошибка. Повторите запрос позже.$go_back",$EOUT);
$rows=&sql_do($dbh,"UPDATE users SET balance=balance-($got_money),paket=$Fpaket WHERE id=$Mid LIMIT 1");
$rows<1 && &ToLog("!! После платной смены тарифного плана произошла ошибка изменения баланса клиента id=$Mid. Уменьшите баланс на $got_money $gr");
# /*фикс, который я делал для применения пакета для алиасов
$rows=&sql_do($dbh,"UPDATE users SET paket=$Fpaket WHERE mid=$Mid");
$rows<1 && &ToLog("!! После платной смены тарифного плана произошла ошибка изменения тарифа клиента mid=$Mid.");
# фикс, который я делал для применения пакета для алиасов */
&OkMess(&div('big',"Смена тарифного плана выполнена. С вашего счета снято $got_money $gr").$go_main,$EOUT);
return;
}