NAME

TL::Pager - Paging class (ja)

NAME (ja)

TL::Pager::JA - �����若�吾�潟�医�☎��

SYNOPSIS

  my $pager = $TL->newPager('DB');
  $pager->setCurrentPage($CGI->get('pageid'));

  my $t = $TL->newTemplate('template.html');
  if($pager->paging($t->node('paging'), 'SELECT * FROM foo WHERE a = ?', 999)) {
    $t->node('paging')->add;
  } else {
    $t->node('nodata')->add;
  }

DESCRIPTION

�����若�吾�潟�医�☎�����茵�������

羆冴�����������綵√�����TL::Template�����若�����絮�������������

�����潟����㋘�若��綵√�

  <!begin:paging>
    <!begin:PrevLink><a href="<&PREVLINK>">�����������若��</a><!end:PrevLink>
    <!begin:NoPrevLink>�����������若��<!end:NoPrevLink>
    <!begin:PageNumLinks>
      <!begin:ThisPage><&PAGENUM><!end:ThisPage>
      <!begin:OtherPage>
        <a href="<&PAGELINK>"><&PAGENUM></a>
      <!end:OtherPage>
    <!end:PageNumLinks>
    <!begin:NextLink><a href="<&NEXTLINK>">罨<����若�呉��</a><!end:NextLink>
    <!begin:NoNextLink>罨<����若�呉��<!end:NoNextLink>
    ...
    <!begin:MaxRows>���<&MAXROWS>篁�<!end:MaxRows>
    <!begin:FirstRow><&FIRSTROW>篁句�勉�����<!end:FirstRow>
    <!begin:LastRow><&LASTROW>篁句�勉�障�с��茵◐ず筝�<!end:LastRow>
    <!begin:MaxPages>���<&MAXPAGES>�����若��<!end:MaxPages>
    <!begin:CurPage>�憜��<&CURPAGE>�����若�悟��<!end:CurPage>
    ...
    <!begin:Row>
      <!-- 茵������若�帥��絮���������� <&XXX> ��帥�違��荐�菴違����� -->
    <!end:Row>
    ...
  <!end:paging>
  <!-- 篁ヤ����� Pager ��壔�í�鴻�勐�☎�������奝�≫����ŝ�������������<����⓾����壔�� -->
  <!begin:nodata>
    筝�篁吟����������障�����
  <!end:nodata>

綽������с�ŝ�������若����壩❶��勰�����:

  MaxRows, FirstRow, LastRow, MaxPages,CurPage

�����������勉����若�����絖���������ŝ����翫����壔�������̥�∴��������������

METHODS

$TL->newPager
  $pager = $TL->newPager
  $pager = $TL->newPager($db_group)

Pager��ŝ����吾�с�壔�����篏������� 2��ɾ�勉�勐就綣���с�壔�� ��������í�˨�� �� DB��祉����� ���篏帥�������������������í�˨�����荐㊤����������⓾����ŝ������� paging���紮���勖����鴻�с����í�若����ŝ�����

setDbGroup
  $pager->setDbGroup($db_group)
 

篏睡��������DB��勉�違�˨�若�����������絎����������

setPageSize
  $pager->setPageSize($line)

1�����若�吾�̬;腓冴�����茵���違�����絎������������������í�˨�����30���

setCurrentPage
  $pager->setCurrentPage($nowpage)

�憜����勉����若�悟�ɱ垩�����絎������������������í�˨�����1���

  $pager->setMaxLinks($maxlinks)

��������若�吾�吾�勉�ŝ�潟�壔�����紊у江��よ;腓冴��������������絎������������������í�˨�����10���

setFormKey
  $pager->setFormKey('PAGE')

�����若�悟Щ�����ŝ�潟�壔����水�ャ����������������若�悟�ɱ垩�㏍�若�����絎������������������í�˨�����"pageid"���

setFormParam
  $pager->setFormParam($CGI)

�����若�悟Щ�����ŝ�潟�壔�̬申�����������������í�若��������絎������������������í�˨����с�壚�����菴遵����������ŝ�����

setPagingType
  $pager->setPagingType($type)

�����若�吾�潟�違�勛┏蕁������吾�吟��

0��勐�翫��������腟������若�吾��莇������������若�吾�����絎���������翫�����undef���菴������� 1��勐�翫��������腟������若�吾��莇������������若�吾�����絎���������翫��������腟������若�吾��菴�������

荐㊤�������ŝ����c����翫�����0���荐㊤��������������

篏�������1�����御����������翫����с�����腟������若�吾��莇������������若�吾�����絎���������翫�����SQL������綺☎�肴��������������������絽吾�������������ŝ�����

getPagingInfo
  my $info = $pager->getPagingInfo

���腮勉����í�<�若�帥��菴������������í�<�若�帥�勐��絎鴻�壚札筝���勰����������祉�������������⓾�ŝ����翫�����undef�����祉�������������⓾��������

$info->{dbgroup}

篏睡����������違�˨�若�����

$info->{pagesize}

1�����若�吾�̬;腓冴�����茵���

$info->{current}

茵◐ず������鐚����������鐚������若�悟�ɱ

$info->{maxlinks}

��ŝ�潟�壔�勖��紊ф�

$info->{formkey}

�����若�悟Щ�����ŝ�潟�壔����水�ャ����������������若�悟�ɱ垩�㏍�

$info->{formparam}

�����若�悟Щ�����ŝ�潟�壔�̬申�����������������í�若�����TL::Form��壔�í�

$info->{pagingtype}

�����若�吾�潟�違�勛┏蕁�

$info->{maxpages}

絖���������⓾��������紊с����若�

$info->{linkstart}

��ŝ�潟�壔�勰��紮������若�御�

$info->{linkend}

��ŝ�潟�壔�勛��篋������若�御�

$info->{maxrows}

���篏���勌散��

$info->{beginrow}

���緇�������紮�������膊����

$info->{rows}

���緇�������篁倶�

paging
  $pager->paging($t->node('pagingblock'), $sql, @param)
  $pager->paging($t->node('pagingblock'), [$sql, $maxrows], @param)

���絎������������若����˨�����絎�������SQL���絎�茵������⓾����若�吾�潟�違�������� 絮���������������若�帥��1篁吟����<����翫����� 0 ������茵◐ず��с����������若�御�違��莇������������若�御�違�����絎� �����������翫����壔��setPagingType��ц┃絎���������⓾�������ゃ��0鐚���������í�˨��鐚���с�������違��undef������ 1��с�������井��腟������若�吾�勉����若�推散��違��������篁ュ����勐�翫����壔����若�推散��違��菴�������

$maxrows ��т散��違�勉�˨�⓾�潟�������ラ�����絎���с�������� ���絎���������ャ�������翫�����SQL �����勐����㊨�������� SELECT COUNT(*) FROM 鐔� �����吾���������������� ���篏睡�������⓾����ɱ�������˩散��違����˨�⓾�潟����������� �����勰�����GROUP BY ���篏睡����������翫����壔��腟������с�壔�ŝ�靚������勌散��違����˨�⓾�潟����������〠�宴����� UNION ���篏睡����������翫����壩③絽吾�����篏������ŝ�����

pagingArray
  $result = $pager->pagingArray($t->node('pagingblock'), $sql, @param)
  $result = $pager->pagingArray($t->node('pagingblock'), [$sql, $maxrows], @param)

���絎������������若����˨�����絎�������SQL���絎�茵������⓾����若�吾�潟�違�������� Row �����若����壠�������������˨�������若�吾�潟�医嚳莟<�勉����若�帥����������勰�������吾�勉�ŝ����<�㋘�潟�鴻�ц�������� 絮���������������若�帥��1篁吟����<����翫����� 0 ������茵◐ず��с����������若�御�違��莇������������若�御�違�����絎� �����������翫����壔��setPagingType��ц┃絎���������⓾�������ゃ��0鐚���������í�˨��鐚���с�������違��undef������ 1��с�������井��腟������若�吾�勉����若�帥��菴�������

�����勌����� "paging" ������������

pagingHash
  $result = $pager->pagingHash($t->node('pagingblock'), $sql, @param)
  $result = $pager->pagingHash($t->node('pagingblock'), [$sql, $maxrows], @param)

���絎������������若����˨�����絎�������SQL���絎�茵������⓾����若�吾�潟�違�������� Row �����若����壠�������������˨�������若�吾�潟�医嚳莟<�勉����若�帥����������激�ャ�勰�������吾�勉�ŝ����<�㋘�潟�鴻�ц�������� 絮���������������若�帥��1篁吟����<����翫����� 0 ������茵◐ず��с����������若�御�違��莇������������若�御�違�����絎� �����������翫����壔��setPagingType��ц┃絎���������⓾�������ゃ��0鐚���������í�˨��鐚���с�������違��undef������ 1��с�������井��腟������若�吾�勉����若�帥��菴�������

�����勌����� "paging" ������������

SEE ALSO

TL
TL::DB

AUTHOR INFORMATION

    Copyright 2006 YMIRLINK Inc. All Rights Reserved.

    This framework is free software; you can redistribute it and/or modify it under the same terms as Perl itself

    �����勉����㋘�若����壔�若�壔�壔����ŝ�若�純�������⓾�с�≪�с����������ŝ����� Perl �����������í�ゃ�祉�潟�鴻�� �����у�����絽������喝����眼��茵���������������堺�ャ�障�����

    Address bug reports and comments to: tl@tripletail.jp

    HP : http://tripletail.jp/