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

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

(Interchange - это веб-среда для приложений, написанная на Perl, предоставленная группой разработчиков Interchange. Домашняя страница: 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;"]    

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

1 Ответ

0 голосов
/ 17 ноября 2012

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

In 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.)

...