Date: Monday February 3, 2003 @ 14:58
Author: matt
Update of /home/cvs/AxKit-XSP-Wiki/lib/AxKit/XSP
In directory ted.sergeant.org:/home/matt/Perl/AxKit-XSP-Wiki/lib/AxKit/XSP
Modified Files:
Wiki.pm
Log Message:
Made search code more sensible
Log:
PR:
Index: Wiki.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-Wiki/lib/AxKit/XSP/Wiki.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -b -u -r1.18 -r1.19
--- Wiki.pm 2003/02/03 13:55:58 1.18
+++ Wiki.pm 2003/02/03 14:58:44 1.19
@@ -240,6 +240,7 @@
$output .= "<rank>" . xml_escape($row->[1]) . "</rank></result>";
}
$output .= "</search-results>";
+ warn("Search results: $output\n");
return $output;
}
@@ -277,13 +278,7 @@
GROUP BY ContentIndex.page_id
";
warn("Getting required with:\n$sql\n");
- my $sth = $db->prepare($sql);
- $sth->execute();
- my $results = [];
- while (my $row = $sth->fetch) {
- push @$results, $row;
- }
- return $results;
+ return $db->selectall_arrayref($sql);
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
