Биллинговая система Nodeny

<a href='http://inet.server/avdeskuser/download.ds?id=login'>

.&CenterA($data->{customers}{customer}{url},"Скачать")

.&CenterA("http://".$av_server."/avdeskuser/download.ds?id=$login","Скачать")

DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 118.
DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 121.
./new_month.pl: При переводе клиента id=70 на новый месяц не снята подписка на Dr.Web

DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 118.
DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 121.
./new_month.pl: При переводе клиента id=128 на новый месяц не снята подписка на Dr.Web

DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 118.
DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 121.
./new_month.pl: При переводе клиента id=141 на новый месяц не снята подписка на Dr.Web

DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 118.
DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 121.
./new_month.pl: При переводе клиента id=161 на новый месяц не снята подписка на Dr.Web

DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 118.
DBD::mysql::db do failed: Unknown column 'uid' in 'where clause' at ./new_month.pl line 121.
./new_month.pl: При переводе клиента id=309 на новый месяц не снята подписка на Dr.Web

Month '-2' out of range 0..11 at ./new_month.pl line 282

$rows=&sql_do("UPDATE users SET srvs='$srvs_new', subscription_drweb='', drweb_end_data='' WHERE uid=$id LIMIT 1");

$rows=&sql_do("UPDATE users SET srvs='$srvs_new', subscription_drweb='', drweb_end_data='' WHERE id=$id LIMIT 1");

Month '-2' out of range 0..11 at ./new_month.pl line 282

 $dd2=$dd2-1; $mm2=$mm2-1; $dt_now = timelocal(0, 0, 0, $dd2-1, $mm2-1, $yyyy2);

 $dd2=$dd2-1; $mm2=$mm2-1; $dt_now = timelocal(0, 0, 0, $dd2, $mm2, $yyyy2);

$sth=$dbh->prepare("INSERT INTO pays (mid, cash, time, admin_id, admin_ip, office, bonus, reason, coment, type, category)".
                                " VALUES ($Mid, -$money, unix_timestamp(), 0, 0, 1, 'y', 'Remove Dr.Web subscription', 'Remove Dr.Web subscription', 10, 105);");
                                $sth->execute;

$sth=$dbh->prepare("UPDATE users SET srvs=$srvs,balance=balance-10 WHERE id=$Mid");

$sth=$dbh->prepare("UPDATE users SET srvs=$srvs,balance=balance-$money WHERE id=$Mid");

sub off_srvs{
        $sql="SELECT srvs FROM users WHERE id=$Mid";
        $p = &sql_select_line($dbh, $sql, 'Выбираем services пользователя');
        &Error("Не удалось получить данные о пользователе!") unless $p;
        return $p->{srvs} & ~(1 << $srvs_numb);
}
sub on_srvs{
        $sql="SELECT srvs FROM users WHERE id=$Mid";
        $p = &sql_select_line($dbh, $sql, 'Выбираем services пользователя');
        &Error("Не удалось получить данные о пользователе!") unless $p;
        return $p->{srvs} | (1 << $srvs_numb);
}