I hope you'll become a
pmdev soon.
The Everything Bible
Here is some code that's sure to help you write this up yourself (since you already wrote initial code and such, and what vroom said)
perlfaq nodes
521..820
838
perlman nodes
376..431
780
781
782
797
798
821
822
826
828
1279..1314
type perlman is 116
perlman
type perlfaq is 834
perlfaq nodetype
you can find info on the functions at
http://www.everydevel.com/ (and the bible coverst most stuff)
Anyways, all you should need to pull this off is knowledge of the following two methods.
sub selectNodeWhere
and sqlUpdate are both in Everything::NodeBase
my $totalRows;
my $type =;
my $limit;
my $offset;
my $ref = selectNodeWhere(
{type_nodetype => $type},
undef,
undef,
$limit,
$offset, \$totalRows);
sub sqlUpdate
{
my($this, $table, $data, $where) = @_;