Data Activation automatic change!

[Илия]

Значитъ так, мне не нравитца ета! Есле на клиент депозит стал "0" примерна на 2007-01-02, то "Data Activation" автоматична минитса (change) на ета дата 2007-01-02. Патом примерна клиент хочит платит на 2007-01-05
я ваведу денги но "Data Activation" астала "2007-01-02". А що палочила мои клиент автоматична затирял 3 дня, ето не коректна!

edit "/usr/abills/Abills/mysql/Bills.pm", add after 90 row

sub action {
my $self = shift;
my ($type, $BILL_ID, $SUM, $attr) = @_;
my $value = '';

if ($type eq 'take') {
$value = "-$SUM";
}
elsif($type eq 'add') {
$value = "+$SUM";
}

### add from ILIA ##### 90 row !!!
my $sth = $db->prepare("SELECT * FROM bills WHERE uid=$BILL_ID");$sth->execute();
my $ref =$sth->fetchrow_hashref();
my $sumata = "$ref->{'deposit'}";
$sth->finish();

if (($sumata <= 0) and ($type eq 'add')) {
$self->query($db, "UPDATE users SET activate=curdate() WHERE uid='$BILL_ID';", 'do');
}
#######################

После ета patch фаил /usr/abills/Abills/mysql/Bills.pm, дата плата атоматична минаитса на текущая дата!

Пажалоста дабавите ета в новая версиу примерна так:
add /usr/abills/libexec
data_activation = yes;

add after 90 row /usr/abills/Abills/mysql/Bills.pm"
if (defined($conf{data_activation}) && $conf{data_activation} eq 'yes') {
my $sth = $db->prepare("SELECT * FROM bills WHERE uid=$BILL_ID");$sth->execute();
my $ref =$sth->fetchrow_hashref();
my $sumata = "$ref->{'deposit'}";
$sth->finish();
if (($sumata <= 0) and ($type eq 'add')) {
$self->query($db, "UPDATE users SET activate=curdate() WHERE uid='$BILL_ID';", 'do');
}

[~AsmodeuS~]

Ok

[~AsmodeuS~]

$conf{payment_chg_activate}=1;

http://abills.asmodeus.com.ua/wiki/doku ... elogs:0.3x