Kosmetik

diff --git a/lib/FrBr/Books/Plugin/Category.pm b/lib/FrBr/Books/Plugin/Category.pm
index f61bfc42e59f9d66529c4e8c2d989bce3d48eafc..f2157e5d8b45cf7ea7719be256a777c2971848be 100644 (file)
--- a/lib/FrBr/Books/Plugin/Category.pm
+++ b/lib/FrBr/Books/Plugin/Category.pm
@@ -44,6 +44,10 @@ Integer: Zeigt an, welche Seite von Kategorien dargestellt werden soll.
 
 Wenn nicht angegeben, werden alle Kategorien zurückgegeben.
 
+=item B<list_length>
+
+Listenlänge einer Seite (wenn seitenweise gewünscht wird).
+
 =back
 
 Rueckgabe: Im skalaren Kontext eine Array-Ref von Hash-Refs mit allen Kategorien, die den uebergebenen Suchkriterien entsprechen:
@@ -85,8 +89,10 @@ sub b_get_category_list {
        my $anzahl_kategorien = 0;
 
        my $page = to_int( $params->{'page'} ) ? to_int( $params->{'page'} ) : undef;
-       my $rows = undef;
-       $rows = $c->stash->{'list_length'} || 20 if defined $page;
+       my $rows = to_int( $params->{'list_length'} ) ? to_int( $params->{'list_length'} ) : undef;
+    unless ( defined $rows ) {
+           $rows = $c->stash->{'list_length'} || 20 if defined $page;
+    }
 
     my $search_params = undef;
        if ( $params->{'category_id'} ) {