Переадресация / Использование выходного значения sql запроса из Perl в HTML In Interchange

Question

У меня есть страница perl test.pl, которая отправляет электронное письмо. Письма содержат ссылку на HTML-страницу linkfromTest.html.

(Interchange - это сетевая прикладная среда, написанная на Perl, предоставленная Interchange Development Group. Домашняя страница: http://www.icdevgroup.org/i/dev)

Но я должен использовать результат запроса sql из test.pl '$ref->{'outofstock_prod'}' требуется на странице linkfromTest.html для запуска запроса sql.

 test.pl

$sql = "select OS.id,OS.name,OS.date,OS.customer_email,OS.product as outofstock_prod,OS.salesperson_email,OS.salesperson
    from outofstock_sku as OS 
    where mail_sent='0'
    order by OS.id";

$ref->{'outofstock_prod'}
......
......
print MAIL "More items potentially matched.\n\n";
print MAIL "Click here to view more items : http://qqq.qqqq.com/linkfromTest.html\n\n";
.....




linkfromTest.html


    [query list=1 sql="select P.sku,P.manufacturer,P.category,P.scat,P.description,P.imgid
                from 
                products AS P LEFT JOIN inventory AS I 
                ON (I.sku = P.sku AND I.status = 'A') 
                WHERE P.manufacturer LIKE  '$ref->{'outofstock_prod'}''
                LIMIT 0,4;"]    

заранее спасибо

Answer 1

Вы можете попробовать установить временную переменную в пустом месте.

В test.pl:

$Tag->tmp('outofstock_prod');  # remove this when done
$Scratch->{outofstock_prod} = $ref->{outofstock_prod};

Затем в linkFromTest.html:

    [query list=1 sql="select P.sku,P.manufacturer,P.category,P.scat,P.description,P.imgid
            from 
            products AS P LEFT JOIN inventory AS I 
            ON (I.sku = P.sku AND I.status = 'A') 
            WHERE P.manufacturer LIKE  '[scratch outofstock_prod]'
            LIMIT 0,4;"]

(Я не уверен, что $ref есть или что его outofstock_prod поле содержит Если это не строка, вам, возможно, придется создать из нее строку, прежде чем вставлять ее в $Scratch.)