50.32 BUG

[0xbad0c0d3]

вот только что в глаза "кинулся" такой момент:

Код:

$rows=$dbh->do("UPDATE users SET paket=$paket WHERE id=$mid LIMIT 1");

Кинулся только потому, что алиасы не "трогаются", что противоречит логике биллинга (алиасы и основная запись имеют одинаковые тарифы).
Эта строка относится к запланированной сменене пакета.
File: nodeny.pl; Line: 2281

У себя пофиксил так:

Код:

2281     my $Mid=$mid||$id;
2282     $rows=$dbh->do("UPDATE users SET paket=$paket WHERE id=$Mid OR mid=$Mid");

[Efendy]

да, ты прав

[0xbad0c0d3]

Фирма веников не вяжет

[Rico-X]

Спасибо

[versus]

Выпустил версии 49|50.32.10 и  49|50.33.3 с исправлением этой ошибки

Спасибо за багрепорт и исправление ошибки.

[0xbad0c0d3]

Обращайтесь

[Jovani]

Заметил что после внесения данного исправления, у тех кто имеет алиасы, и для основной записи указана скидка, то у алиасной записи показывает задолженность, равная скидке предоставленной для основной записи. Пример: у клиента два ІР, тариф 100грн., скидка 10% (10грн.), открываешь алиас, а там -10грн. задолженность. Может такое только у меня?

[ale-x]

Похоже скидка не учитывается для алиасов, у себя посмотрел - также.

[Efendy]

Заметил что после внесения данного исправления, у тех кто имеет алиасы, и для основной записи указана скидка, то у алиасной записи показывает задолженность, равная скидке предоставленной для основной записи. Пример: у клиента два ІР, тариф 100грн., скидка 10% (10грн.), открываешь алиас, а там -10грн. задолженность. Может такое только у меня?

Да, есть такой баг. Он непринципиальный т.к. он проявляется чисто на странице просмотра данных клиентов, реально считается все правильно. Исправление в user.pl:

Код:

($Mstate,$paket,$paket3,$balance,$limit_balance,$block_if_limit,$start_day,$srvs) = &Get_fields qw(
   state  paket  paket3  balance  limit_balance  block_if_limit  start_day  srvs) if $p;

->

Код:

($Mstate,$paket,$paket3,$balance,$limit_balance,$block_if_limit,$start_day,$srvs,$discount) = &Get_fields qw(
   state  paket  paket3  balance  limit_balance  block_if_limit  start_day  srvs  discount) if $p;

и

Код:

($cstate,$lstate,$next_paket,$next_paket3,$hops,$detail_traf,$discount,$sortip,$comment) = &Get_fields qw(
  cstate  lstate  next_paket  next_paket3  hops  detail_traf  discount  sortip  comment);

->

Код:

($cstate,$lstate,$next_paket,$next_paket3,$hops,$detail_traf,$sortip,$comment) = &Get_fields qw(
  cstate  lstate  next_paket  next_paket3  hops  detail_traf  sortip  comment);

фикс выпустим

[Elisium]

Есть предложение.
Можете ли Вы делать фиксы не как полное обновление ВСЕХ файлов, а лишь тех, что изменились с версии к версии?
Тоесть, в архиве будут новая версия (50.32.11) и апдейт от 50.32.10 к 50.32.11.
Со следующим фиксом будет новая версия (50.32.12), старый апдейт с 10й в 11ю и новый апдейт от 50.32.11 к 50.32.12. Итд. Такой себе SVN из файлов
Так было бы:
а) нагляднее видно, что менялось (типа ченджлог, которого сейчас все равно нет)
б) если в биллинге уже есть СВОИ исправления некоторых файлов, то инсталлятор при апгрейде НЕЗАВИСИМО от обстоятельств обновляет ВСЕ файлы (кроме конфигов). А в таком случае можно было бы заменить самому только нужные файлы.

[Efendy]

Да, нужно пересмотреть принципы обновления. Инсталятор необходим, когда меняется структура в базе. Предлагаю для минорных обновлений сделать svn и через него обновляться

[versus]

выпустил  49|50.32.11 и 49|50.33.4

реп измененных файлов

git clone https://code.google.com/p/nodeny49.updates/

[0xbad0c0d3]

Заметил что после внесения данного исправления...

))))))))))) пардон, но ничего кроме улыбки это не вызывает...