http://www.perlmonks.org?node_id=11158888


in reply to problem with returning all records

Your code doesn't display this anywhere, you've not shown where you define $html or print it. You're clobbering (not appending to) $html so if you print it outside of the foreach loop it will only have one result.

Replies are listed 'Best First'.
Re^2: problem with returning all records
by frank1 (Scribe) on Apr 16, 2024 at 11:41 UTC

    thanks so much, very good and clean answer

    its now working. i was printing the $html outside the foreach loop, am now printing $html inside the foreach loop and its working

Re^2: problem with returning all records
by frank1 (Scribe) on Apr 16, 2024 at 13:42 UTC

    Can i have a solution for this

    am getting results like this :

    {"msg":"data "} {"msg":"data "} and so on.........

    i want to return the whole data to single json like:

    {"msg":" all data goes here"}
    my $sth = $dbh->prepare("SELECT snd.name, snd.country, m.item, m.eqty, m.price, m.line, m.prodct FRO +M buys as m JOIN Busers as snd ON snd.id = m.buyer WHERE CASE WHEN (SELECT SUM(s +tatus = ?) FROM buys) > 0 THEN m.status = ? ELSE m.status = ? OR m. +status = ? OR m.status = ? END ORDER BY created ASC"); $sth->execute('sold', 'forsell', 'bugt', 'paid', 'inshop'); my $Data = $sth->fetchall_arrayref(); foreach my $Data (@$Data) { my ($name, $country, $item, $eqty, $price, $line, $prodct) = @$Dat +a; $html = "<tr> <td> <p>$name</p> <p> $eqty, $price, $line, </p> $prodct $country </td> </tr> "; my $json = encode_json( { msg => $html} ); print $q->header( -type => 'application/json' ),$json; }

        hippo example was hard for me to figure it out, according to what i want