Subversion Repositories PEEPS

Rev

Rev 4 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 10
Line 251... Line 251...
251 
 
 251 
 
252 
sub getData {
 252 
sub getData {
253 
  my $fields = shift;
 253 
  my $fields = shift;
254 
  my $whereClause = shift;
 254 
  my $whereClause = shift;
255 
  my $table = shift;
 255 
  my $table = shift;
256 
  my $orderby = shift;
 256 
  my $orderby = shift // $fields->[0];
257 
  my $curpage = shift; $curpage = 1 unless $curpage;
 257 
  my $curpage = shift; $curpage = 1 unless $curpage;
Line 258... Line 258...
258 
  my $pagelimit = shift // "All";
 258 
  my $pagelimit = shift // "All";
259
259