LMPX.COM |
Home | Linux | Mysql | PHP | XML | ||
|
|
|||
From: Ignacio J. Ortega Lopera Date: Wed May 30 10:48:53 2007 Subject: package AI::Categorizer::Collection::DBI;
Hola a todos: When trying to use i've found that DBI try to read categories from database, it trie to read a second column that seems to contain categories, it uses something like [$result[1]].., my perl knowledge is a little poor to say the least.. but it seems to my that code later expects this parameter as an array of Category objects.. I've done a little change that permits that this second column be a list of categories separated by commas, code ( can be a diff -u if needed) attached, maybe it's usefull to anyone.. Thanks for that package, Ken, it's ... wonderful :).. Saludos, Ignacio J. Ortega --------------------------------------------------------- Technical Manager http://www.derecho.com/ Attachment: [text/html]
------=_Part_8617_28972708.1180543733878 Content-Type: application/octet-stream; name=DBI.pm Content-Transfer-Encoding: base64 X-Attachment-Id: f_f2c183ff Content-Disposition: attachment; filename="DBI.pm" cGFja2FnZSBBSTo6Q2F0ZWdvcml6ZXI6OkNvbGxlY3Rpb246OkRCSTsKdXNlIHN0cmljdDsKCnVz ZSBEQkk7CnVzZSBBSTo6Q2F0ZWdvcml6ZXI6OkNvbGxlY3Rpb247CnVzZSBiYXNlIHF3KEFJOjpD YXRlZ29yaXplcjo6Q29sbGVjdGlvbik7Cgp1c2UgUGFyYW1zOjpWYWxpZGF0ZSBxdyg6dHlwZXMp OwoKX19QQUNLQUdFX18tPnZhbGlkX3BhcmFtcwogICgKICAgY29ubmVjdGlvbl9zdHJpbmcgPT4g e3R5cGUgPT4gU0NBTEFSLCBkZWZhdWx0ID0+IHVuZGVmfSwKICAgZGJoID0+IHtpc2EgPT4gJ0RC STo6ZGInLCBkZWZhdWx0ID0+IHVuZGVmfSwKICAgc2VsZWN0X3N0YXRlbWVudCA9PiB7dHlwZSA9 PiBTQ0FMQVIsIGRlZmF1bHQgPT4gIlNFTEVDVCB0ZXh0IEZST00gZG9jdW1lbnRzIn0sCiAgKTsK Cl9fUEFDS0FHRV9fLT5jb250YWluZWRfb2JqZWN0cwogICgKICAgZG9jdW1lbnQgPT4geyBjbGFz cyA9PiAnQUk6OkNhdGVnb3JpemVyOjpEb2N1bWVudCcsCgkJIGRlbGF5ZWQgPT4gMSB9LAogICk7 CgpzdWIgbmV3IHsKICBteSAkY2xhc3MgPSBzaGlmdDsKICBteSAkc2VsZiA9ICRjbGFzcy0+U1VQ RVI6Om5ldyhAXyk7CiAgCiAgZGllICJNdXN0IHByb3ZpZGUgJ2RiaCcgb3IgJ2Nvbm5lY3Rpb25f c3RyaW5nJyBhcmd1bWVudHMiCiAgICB1bmxlc3MgJHNlbGYtPntkYmh9IG9yICRzZWxmLT57Y29u bmVjdGlvbl9zdHJpbmd9OwogIAogIHVubGVzcyAoJHNlbGYtPntkYmh9KSB7CiAgICAkc2VsZi0+ e2RiaH0gPSBEQkktPmNvbm5lY3QoJHNlbGYtPntjb25uZWN0aW9uX3N0cmluZ30sICcnLCAnJywg e1JhaXNlRXJyb3IgPT4gMX0pCiAgICAgIG9yIGRpZSBEQkktPmVycnN0cjsKICAgIGRlbGV0ZSAk c2VsZi0+e2Nvbm5lY3Rpb25fc3RyaW5nfTsKICB9CiAgCiAgJHNlbGYtPnJld2luZDsKICByZXR1 cm4gJHNlbGY7Cn0KCnN1YiBkYmggeyBzaGlmdCgpLT57ZGJofSB9CgpzdWIgcmV3aW5kIHsKICBt eSAkc2VsZiA9IHNoaWZ0OwogIAogIGlmICghJHNlbGYtPntzdGh9KSB7CiAgICAkc2VsZi0+e3N0 aH0gPSAkc2VsZi0+ZGJoLT5wcmVwYXJlKCRzZWxmLT57c2VsZWN0X3N0YXRlbWVudH0pOwogIH0K CiAgaWYgKCRzZWxmLT57c3RofXtBY3RpdmV9KSB7CiAgICAkc2VsZi0+e3N0aH0tPmZpbmlzaDsK ICB9CgogICRzZWxmLT57c3RofS0+ZXhlY3V0ZTsKfQoKc3ViIG5leHQgewogIG15ICRzZWxmID0g c2hpZnQ7CgogIG15IEByZXN1bHQgPSAkc2VsZi0+e3N0aH0tPmZldGNocm93X2FycmF5OwogIHJl dHVybiB1bmRlZiB1bmxlc3MgQHJlc3VsdDsKICBteSBAY2F0ZWdvcmllcyA9IHNwbGl0IC8sLywk cmVzdWx0WzFdOwogIEBjYXRlZ29yaWVzID0gbWFwIEFJOjpDYXRlZ29yaXplcjo6Q2F0ZWdvcnkt PmJ5X25hbWUobmFtZSA9PiAkXyksIEBjYXRlZ29yaWVzOwoKICByZXR1cm4gJHNlbGYtPmNyZWF0 ZV9kZWxheWVkX29iamVjdCgnZG9jdW1lbnQnLAoJCQkJICAgICAgbmFtZSA9PiAkcmVzdWx0WzBd LAoJCQkJICAgICAgY2F0ZWdvcmllcyA9PiBAY2F0ZWdvcmllcywKCQkJCSAgICAgIGNvbnRlbnQg PT4gJHJlc3VsdFsyXSwKCQkJCSAgICAgKTsKfQoKMTsK ------=_Part_8617_28972708.1180543733878--
| Navigate in group perl.ai at sever nntp.perl.org | |
| Previous | Next |
| © No Copyright You are free to use Anything |
Site Maintained by PHP Developer
Powered By PHP Consultants |