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 | |
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
-rw-r--r-- | lib/Bookmarks/C/Main.pm | 11 | ||||
-rw-r--r-- | lib/Bookmarks/M/DB/Tags.pm | 4 | ||||
-rw-r--r-- | root/links | 2 |
3 files changed, 14 insertions, 3 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 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; } @@ -6,7 +6,7 @@ <p>Tag: [% tag.name %] ( [% tag.descr %] )</p> <ol> [% FOR link IN links %] -<li><img src="[% base _ 'icon?link=' _ link.pk %]" /> <a href="[% link.url %]">»[% link.title %]«</a> (creato: [% link.add_date() %])</li> +<li><img src="[% base _ 'icon?link=' _ link.pk %]" /> <a href="[% base _ 'jump?link=' _ link.pk %]">»[% link.title %]«</a> (creato: [% link.add_date() %])</li> [% END %] </ol> </body> |