package AI::Categorizer::Collection::DBI;
[email protected] ("Ignacio J. Ortega Lopera") Wed, 30 May 2007 18:48:53 +0200
| Newsgroups | perl.ai |
|---|---|
| Message-ID | <[email protected]> |
------=_Part_8617_28972708.1180543733878 Content-Type: multipart/alternative; boundary="----=_Part_8618_2402680.1180543733878" ------=_Part_8618_2402680.1180543733878 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Content-Disposition: inline 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/ ------=_Part_8618_2402680.1180543733878 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline Hola a todos:<br><br>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.. <br><br>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..<br><br>Thanks for that package, Ken, it's ... wonderful :).. <br><br>Saludos, Ignacio J. Ortega<br>---------------------------------------------------------<br>Technical Manager<br><a href="http://www.derecho.com/">http://www.derecho.com/</a><br><br> ------=_Part_8618_2402680.1180543733878-- ------=_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--