Форум программистов [Powered by Invision Power Board]

Держи мой пример:

Код


    my $page = GetCGI("page");
    if ($page==0) {
        $page=1;
    }
    my $step=10;
    my $GetMax = RunQuery($dbh, "SELECT count(*) FROM Guestbook WHERE Podgr='1' and Flag<>'1'");
    my $Max_Gr = $GetMax->fetchrow_array();
    $GetMax->finish();
    my $Max_Page = int($Max_Gr/$step);
    if ($Max_Page*$step < $Max_Gr) {$Max_Page++};
    my $Gr1 = $step*($page-1);

    $Result = RunQuery($dbh, "SELECT Gruppa FROM Guestbook WHERE Podgr='1' ORDER BY Gruppa desc limit $Gr1, $step");
    my $Gr2=0;
    while (my @ReturnedData = $Result->fetchrow_array()) {
        if ($Gr2==0) { $Gr2=$ReturnedData[0]; }
        else         { $Gr1=$ReturnedData[0]; }
    }
    $Result->finish();
    my $Query = "SELECT G.Gruppa, G.Podgr, Description, CONCAT(U.Surname, ' ', U.Name) AS ini, DATE_FORMAT(MakeDate, '%d.%m.%Y - %T') as Data ";
    $Query = $Query . "FROM Guestbook G LEFT JOIN Users U ON G.UserID=U.i ";
    $Query = $Query . "WHERE G.Gruppa>='$Gr1' and G.Gruppa<='$Gr2' and Flag<>'1' ORDER BY G.Gruppa desc, G.Podgr";
    my $Content=GetArrayOfHashes($dbh, $Query);
    my %Params =
    (
        page            => $page,
        Max_Page        => $Max_Page,
        UserRights      => $UserRights,
        ApachePath      => $ApachePath,
        Table           => $Content
    );
    my $Result='';
    $template->process('gb.tmpl', \%Params, $Result);
    print $Result;

это скриптовая часть,

а вот что в файле gb.tmpl :

Код


<table border=0 cellpadding=0 cellspacing=0 width=100%>
    <tr><td><div align=center>
    [% Nom=0 %]
    [% WHILE Nom<Max_Page %]
        [% Nom=Nom+1 %]
        [% IF Nom == page %]
          &nbsp;[% Nom %]&nbsp;
        [% ELSE %]
          <A href="[% ApachePath %]/support.pl?MainModule=Guest&page=[% Nom %]&Level=0">&nbsp;[% Nom %]&nbsp;</A>
        [% END %]
    [% END %]
    </tr>
</table>

Добавлено @ 16:23
У меня встречный вопрос к спецам: номера отображаемых групп в моем примере я вычисляю так:

Код


    $Result = RunQuery($dbh, "SELECT Gruppa FROM Guestbook WHERE Podgr='1' ORDER BY Gruppa desc limit $Gr1, $step");
    my $Gr2=0;
    while (my @ReturnedData = $Result->fetchrow_array()) {
        if ($Gr2==0) { $Gr2=$ReturnedData[0]; }
        else         { $Gr1=$ReturnedData[0]; }
    }
    $Result->finish();

а нельзя как-то попроще, чтобы эти данные выдавались в массив и потом без всяких циклов обращаться к элементам [0] и [-1]
(т.е. к первому элементу массива и к последнему)