Forum OpenACS Q&A: Re: Using list-builder and pagination

Hi all,

I've just started using Lars' cool list-builder and have a few questions/comments:

* Since my installation is based on oacs-4-6-3-final, I copied over list-procs.tcl, pagination-procs.tcl, and acs-templating/resources/lists/* from the tip of oacs-4-6.  Things seem to be working, but would you happen to know if that would break anything?

* In order to get pagination to work, I specified the page_size and page_query parameters.  I then had to call get_reference to get the name of the paginator object.  I then called paginator::get_data to create the final multirow.  Here's the code:

ad_page_contract {
} {
    {page:naturalnum 1}
}

list::create -name users \
        -multirow users \
        -key user_id \
        -elements {user_id    {label "User ID"}
                  email      {label "Email"}
                  full_name  {label "Name"}
                  registered {label "Registered"}
        } \
        -page_size 5 \
        -page_query {
            select user_id from cc_users
        }

list::get_reference -name users

paginator get_data fetch_users $list_properties(paginator_name) users {
        select
            user_id,
            email,
            first_names || ' ' || last_name as full_name,
            to_char(creation_date, 'MM/DD/YYYY HH:MI AM') as registered,
            to_char(last_visit, 'MM/DD/YYYY HH:MI AM') as last_visit
        from
            cc_users where user_id in (CURRENT_PAGE_SET)
    } user_id $page

* Is that the proper way to do pagination?  What about pagination context?

* Will try to figure out "filters" now.  But, while I have your attention, I would appreciate a primer on the purpose of filters and how they work.  Perhaps an example? =)

Thanks for contributing this Lars.  I think it's wonderful that we now have a standard and powerful way for creating tables/lists.

Nope. You don't need to talk to the paginator yourself at all.

Create the list the way you do, then include the following in your query:

select ...
from  ...
where  ...
and    activity_id in ([template::list::page_get_ids -name $list_name])

That should do it.

Pagination is still kindof sketchy. The "old" paginator which I'm using is complicated and does this pagination in Tcl instead of in the database, etc.

Whenever I get a chance, I want to try and integrate with Jon Griffin's new paginator, which should be simpler.

/Lars

Hi, I want to know if is possible change te format of the elemnt that shown on the array, sorry for my english, I have this as shown on the tradicional pagination list

<< < 1 2 3 4 5 6 7 8 9 10 > >>

Gaceta norma numero año autoridad
---------------------------------------------------------
375 49 25 1906 8
753 49 12 1909 8

the tipe for 49=Ley and 8=asamblea

but I want list like this

Ley 25 1906
375
asamblea

ley 12 1909
753
asamblea

and go on

is this possible or I have to limited for the tradicional pagination list

Hello Brian I have this in my .tcl

###########################################################
request create -params {
sql1 -datatype text -optional
}

ad_page_contract {
} {
    {page:naturalnum 1}
}

list::create -name users \
        -multirow users \
        -key num_sec \
        -page_size 10 \
        -page_query { select num_sec from procadm.t_normas where $sql1} \
        -elements {
                  num_sec {
                        display_template {<table width="800" border="0"><tr><td width="2%" valign="top" align="center"><font face="Arial, Helvetica, sans-serif" color="#FF0000" size="3"><b><img src="puntero.gif" width="17" height="17"></b></font></td><td width="96%" valign="top" bgcolor="#E8E8E8" align="justify">@users.desc_norma@&nbsp;@users.num_norma@&nbsp;de&nbsp;@users.anio_gac@<br>Número de Gaceta:&nbsp;@users.num_gaeta@<br>Autoridad:&nbsp;@users.desc_autoridad@<br>Título:&nbsp;@users.titulo@</td></tr></table> }
            }
        }

  set query  "select a.num_sec num_sec, num_gaceta,to_char(fecha_gaceta,'yyyy') anio_gac, a.norma, desc_norma, num_norma, titulo, cod_autoridad,desc_autoridad \
from procadm.t_normas a, procadm.t_tipo_norma b,procadm.t_autoridad c where $sql1 and \
a.norma=b.num_sec and \
a.cod_autoridad=c.num_sec and \
a.num_sec in ([template::list::page_get_ids -name users])"

    db_multirow users users_query $query

#########################################################

I past the value sql1 from another script and list the first  10 rows fine when I put the value from keyboard but when I clik the next 10 rows I feel like sql1 lost the value in the array and list me an error.

What I am doing wrong.  Please sorry about my english

How I do that? Do you have any documentation or example script on this matter. I have this script with elements form that a I enter by keyboard but when I excecute the submit instruccion, runs the select query on the list array for the first page but when I past to the next page=2 I lost the information...

I don't think it's a good idea to be passing in your SQL query as a parameter to the page - you're leaving yourself open to potential SQL Injection attacks.

Also I don't think you need the "request create" - just use ad_page_contract to handle any form variables.

How I use ad_page_contract to do this, handle any form variables from another script passed

Have you seen the acs-templating demo?
https://openacs.org/doc/acs-templating/demo/