#!/usr/bin/perl use strict; use warnings; sub get_all_artid_from_kategoriid { my ($self) = shift; my (%params) = @_; my $LIMIT = 'limit ' . $params{'limitantal'} if (($params{'lim +itantal'}) && (!$params{'limitstart'})); $LIMIT = 'limit ' . $params{'limitstart'} . "," . $params{' +limitantal'} if (($params{'limitantal'}) && ($params{'limitstart'})); my $ORDNING = " order by $params{'order'} " if ($params{'order'}); my $GROUP = " group by $params{'groupby'} " if ($params{'groupb +y'}); print STDERR "LIMIT = $LIMIT || limitantal = $params{'limitantal'} +\n"; } my $toto=get_all_artid_from_kategoriid(1); # got limit= || limitantal= $toto=get_all_artid_from_kategoriid(1, 'limitantal', 20); # got limit=20 || limitantal=20 $toto=get_all_artid_from_kategoriid(1, 'limitantal', 20, 'limitstart', + 42 ); # got limit=42,20 || limitantal=20
In reply to Re: 'my' problems
by wazoox
in thread 'my' problems
by jockel
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |