Changeset 199 for server

Timestamp:

12/27/10 05:37:04 (13 years ago)

Author:

nanardon

Message:

• retain visited rpms in session

File:

• server/trunk/web/lib/Sophie/Controller/Rpms.pm (modified) (1 diff)

server/trunk/web/lib/Sophie/Controller/Rpms.pm

@@ -239 +239 @@
         $info->{issrc} ? 'src' : $info->{arch},);
     $c->stash->{metarevisit} = 30;
+
+    # for later usage, keep history of visited rpms
+    $c->session->{visited_rpms}{$pkgid} = time;
+    if (keys %{ $c->session->{visited_rpms} } > 20) {
+        my @visited = sort
+        { $c->session->{visited_rpms}{$b} <=> $c->session->{visited_rpms}{$a} }
+        keys %{ $c->session->{visited_rpms} };
+        splice(@visited, 0, 20);
+        delete $c->session->{visited_rpms}{$_} foreach (@visited);
+    }
 
     $c->stash->{rpms}{location} =