diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-18 11:51:54 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-18 11:52:22 -0600 |
commit | 3aee937a96e2ca2afc2c37fbf69274a08d5f8293 (patch) | |
tree | 7d96b7424a48912844f54a2d1cacbeb280be705d /lib/Narwhal/Component/Wiki.pm | |
parent | 115416dfdce1a737ad343610d7a116e3b5db0e64 (diff) | |
download | narwhal-3aee937a96e2ca2afc2c37fbf69274a08d5f8293.tar.gz narwhal-3aee937a96e2ca2afc2c37fbf69274a08d5f8293.zip |
get a model class going
Diffstat (limited to 'lib/Narwhal/Component/Wiki.pm')
-rw-r--r-- | lib/Narwhal/Component/Wiki.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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, |