Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: pagination script to work with SQL server

by erix (Vicar)
on May 23, 2013 at 21:05 UTC ( #1035025=note: print w/replies, xml ) Need Help??

in reply to pagination script to work with SQL server

pearlgirl where is the perl?

  • Comment on Re: pagination script to work with SQL server

Replies are listed 'Best First'.
Re^2: pagination script to work with SQL server
by Anonymous Monk on May 29, 2013 at 20:23 UTC
    I tried debugging , and I used SQL Profiler too. The sql is correct. When I copy and paste it into the SQL Server it runs perfectly fine. This is the perl code:
    my $sql = <<END_ROW2; declare \@limit int declare \@offset int set \@offset = $offset; set \@limit = $limit; declare \@idxini int declare \@idxfim int select \@idxfim = \@offset * \@limit select \@idxini = \@idxfim - (\@limit-1); WITH paging AS ( SELECT ROW_NUMBER() OVER (order by column_ID) AS rowid FROM Table1 N RIGHT OUTER JOIN Table2 NE ON NE.Event_Type = N.Event_Type ) select * from paging where rowid between \@idxini and \@idxfim order by rowid; ; END_ROW2 my $sth = $a_dbh->prepare($sql); my $rc = $sth->execute(); if (!$rc) { &pl_fatalSQLError($sql,$DBI::errstr); } my $rowArrayref=$sth->fetchall_arrayref({}); # Showing page number with link for(my $i=1;$i<$pagenum;$i++) { print "<a href='$type&page=$i'>$i</a> "; } print "<br>"; # Display result page wise foreach my $row(@$rowArrayref) { print "<br>".$$row{'column_ID'}; } print "</p>";
      oops "Anonymous" was me :) Thought I was logged in

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1035025]
Corion gives up
[Discipulus]: ah! so you mean if i need a static image i can use Twig, if on the fly better css selector and mody attrs (jquery?), rigth?
[LanX]: not sure what you guys are taking about, but a DOM manipulation in JS shouldn't be difficult
[Corion]: Discipulus: Yeah, that's what I would try (but so far, I can't even change the colors manually in the SVG, which is why I gave up ;) )
Discipulus bad sign..
[Discipulus]: italian doc says to modify somehow the initial SVG before using it with D3.js
[Discipulus]: LanX the fact is that my js ability is even poorer than my Perl one..
[LanX]: oh its negative? ;P

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (13)
As of 2017-03-23 09:45 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (285 votes). Check out past polls.