From bb7a4421685cdcdcf713b00320486f9728838356 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@luxion>
Date: Tue, 25 Oct 2005 13:01:23 +0000
Subject:  r704@narval2:  dakkar | 2005-10-21 16:58:52 +0200  messo il jump e
 corretto ordinamento link di un tag

---
 lib/Bookmarks/C/Main.pm    | 11 +++++++++++
 lib/Bookmarks/M/DB/Tags.pm |  4 ++--
 2 files changed, 13 insertions(+), 2 deletions(-)

(limited to 'lib')

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
 
 
diff --git a/lib/Bookmarks/M/DB/Tags.pm b/lib/Bookmarks/M/DB/Tags.pm
index 732c8b7..2bf38aa 100644
--- a/lib/Bookmarks/M/DB/Tags.pm
+++ b/lib/Bookmarks/M/DB/Tags.pm
@@ -41,9 +41,9 @@ sub ordered_links {
     my ($self)=@_;
     my @links=$self->links();
     return sort {
-        ($a->access_count || 0)
-            <=>
         ($b->access_count || 0)
+            <=>
+        ($a->access_count || 0)
     } @links;
 }
 
-- 
cgit v1.2.3