diff options
author | dakkar <dakkar@luxion> | 2005-10-25 13:01:23 +0000 |
---|---|---|
committer | dakkar <dakkar@luxion> | 2005-10-25 13:01:23 +0000 |
commit | bb7a4421685cdcdcf713b00320486f9728838356 (patch) | |
tree | 188af32f662afa099b3ee55582a046a1c681a795 /lib/Bookmarks/C/Main.pm | |
parent | r703@narval2: dakkar | 2005-10-21 16:36:15 +0200 (diff) | |
download | Bookmarks-bb7a4421685cdcdcf713b00320486f9728838356.tar.gz Bookmarks-bb7a4421685cdcdcf713b00320486f9728838356.tar.bz2 Bookmarks-bb7a4421685cdcdcf713b00320486f9728838356.zip |
r704@narval2: dakkar | 2005-10-21 16:58:52 +0200
messo il jump e corretto ordinamento link di un tag
Diffstat (limited to 'lib/Bookmarks/C/Main.pm')
-rw-r--r-- | lib/Bookmarks/C/Main.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/Bookmarks/C/Main.pm b/lib/Bookmarks/C/Main.pm index b25ef9a..a07c594 100644 --- a/lib/Bookmarks/C/Main.pm +++ b/lib/Bookmarks/C/Main.pm @@ -60,6 +60,17 @@ sub icon : Global { } } +sub jump : Global { + my ( $self, $c ) = @_; + + my $link=Bookmarks::M::DB::Links->retrieve($c->req->param('link')); + $link->access_count($link->access_count()+1); + $link->update(); + + $c->res->status(302); + $c->res->location($link->url()); +} + =back |