(no subject)
May. 28th, 2007 04:41 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
natarajМда... ![[livejournal.com profile]](https://www.dreamwidth.org/img/external/lj-userinfo.gif)
bobuk был прав... Perl -- write only язык...
if (@fields) {
$Communiware::DB::errmsg = "'update $table set ".join(",",@fields).
"where item_id=?','".join("','", map {defined($_) ? $_ : '\'undef\''} (@args,$id))."'";
@args = map {undef($_) if defined($_) && $_ eq ''; $_} @args;
$dbh->do("update $table set ".join(",",@fields)." where
item_id=?",{},@args,$id) or die "No such item";
}
Что имел в виду автор -- не понимаю... А придется...
bobuk был прав... Perl -- write only язык...if (@fields) {
$Communiware::DB::errmsg = "'update $table set ".join(",",@fields).
"where item_id=?','".join("','", map {defined($_) ? $_ : '\'undef\''} (@args,$id))."'";
@args = map {undef($_) if defined($_) && $_ eq ''; $_} @args;
$dbh->do("update $table set ".join(",",@fields)." where
item_id=?",{},@args,$id) or die "No such item";
}
Что имел в виду автор -- не понимаю... А придется...