From 3aee937a96e2ca2afc2c37fbf69274a08d5f8293 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 18 Feb 2011 11:51:54 -0600
Subject: get a model class going

---
 lib/Narwhal/Component/Wiki.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/Narwhal/Component/Wiki.pm')

diff --git a/lib/Narwhal/Component/Wiki.pm b/lib/Narwhal/Component/Wiki.pm
index f923261..6f01bbd 100644
--- a/lib/Narwhal/Component/Wiki.pm
+++ b/lib/Narwhal/Component/Wiki.pm
@@ -7,7 +7,7 @@ sub view {
     my $self = shift;
     my ($req, $page_name) = @_;
 
-    my $page = $self->lookup("page:$page_name");
+    my $page = $self->get_page($page_name);
     if (!$page) {
         my $res = $req->new_response(303);
         $res->location(
@@ -35,9 +35,9 @@ sub view_old {
     my $self = shift;
     my ($req, $page_name, $rev) = @_;
 
-    my $page_rev = $self->lookup($rev);
+    my $page_rev = $self->get_page_rev($page_name, $rev);
     return $req->new_response(404)
-        unless $page_rev && $page_rev->page_id eq $page_name;
+        unless $page_rev;
 
     $self->render(
         $req,
@@ -56,7 +56,7 @@ sub history {
     my $self = shift;
     my ($req, $page_name) = @_;
 
-    my $page = $self->lookup("page:$page_name");
+    my $page = $self->get_page($page_name);
 
     $self->render(
         $req,
-- 
cgit v1.2.3-54-g00ecf