Changeset 861 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm

Timestamp:

12/02/11 11:42:17 (13 years ago)

Author:

nanardon

Message:

• reimport missing files from previous svn

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm (modified) (1 diff)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm

@@ -56 +56 @@
 }
 
+sub object_navigate {
+    my ($self, $otype, $id, @filter) = @_;
+
+    my @list = $self->db->search_objects($otype, @filter);
+
+    my $i = 0;
+    for($i = 0; $i <= $#list; $i++) {
+        $list[$i] eq $id and last;
+    }
+
+    my %ptr = ();
+    $ptr{oprev} = $list[$i-1] if ($i > 0);
+    $ptr{'onext'} = $list[$i+1] if ($i < $#list);
+    $ptr{ofirst} = $list[0] if ($i > 1);
+    $ptr{'olast'} = $list[$#list] if ($i < $#list -1);
+    $ptr{list} = \@list;
+
+    return \%ptr;
+}
+
 # Such function must not be here, but in LATMOS::Accounts
 # But code does not allow this at time