Доброго времени суток! Нужна помощь! Совсем недавно изучаю Perl, учусь с ЕШКО, материал у них хромает, в скриптах много ошибок. Вот часть скрипта, точнее процедура, отвечающая за поиск товара в интернет-магазине:
| Код |
sub Find {
local (%data) = @_;
local (@patterns, $pattern, $itmes, $found, $s, $keys, $brutto, $ref, $id, $section, $name, $price, $vat, $jm, $infoFile, $infoID, $photo);
&HTML_Header("$cfg{name} - Результат просмотра каталога");
&HTML_Background("$cfg{background}");
print "<SPAN class=\"ver14\">Результат просмотра каталога</SPAN>\n";
print "<BR><BR>\n";
print "<TABLE border=\"0\" cellspasing=\"10\" cellpadding=\"1\">";
if ($data{'search_str'} ne "") {
$searchStr = $data{'search_str'};
@patterns = split(/ /, $searchStr);
$items = 0;
open(OFFER, "$cfg{base_path}$cfg{dat_path}$cfg{offer_file}") ||
die "Content-type: text/html\n\n Невозможно открыть файл данных!";
while (<OFFER>) {
chop;
($ref, $id, $section, $name, $price, $vat, $jm, infoFile, $infoID, $photo) = split(/::/, $_);
$id =~ tr/[a-zf-я]/[A-ZА-Я]/;
$price -= tr/,/./;
$s = $section.$name;
$found = 0;
foreach $pattern (@patterns) {
if ($s =~ m/.*$pattern.*/i) {
$found++;
}
}
if ($found > 0) {
$items++;
print "<TR VALIGN=\"top\">\n";
print "<FORM ACTION=\"$cfg{script}\"METHOD=\"post\">\n";
print "<TD ALIGN=\"Right\">\n";
if ($section ne "") {
print "$section - ";
}
print "$name\n </TD>";
print "<TD ALIGN=\"CENTER\">\n";
if ($infoFile ne "") {
print "<A HREF=\"$cfg{home}$cfg{html_path}$infoFile";
if ($infoID ne "") {
print "$infoID";
}
print \"onMouseOver=\"window.status='Информация о товаре';
return true\"><IMG SRC=\"$cfg{home}$cfg{graph_path}$cfg{info_button}\" alt=\"ДОПОЛНИТЕЛЬНАЯ ИНФОРМАЦИЯ\" border=\"0\"></a>\n;
}
if ($photo ne "") {
print "<a href=\"$cfg{script}?action=photo&photo=$photo\" onMouseOver=\"window.status='Осмотрите товар';
return true\" onMouseOut=\"window.status=' ';
return true\"><img src=\"$cfg{home}$cfg{graph_path}$cfg{photo_button}\" alt=\"FOTO\" border=\"0\"><a>\n;
}
print "</TD>\n";
$brutto=&Cash($price*(1 + $vat / 100));
$price=&Cash($price);
print "<TD NOWRAP ALIGN=\"RIGHT\"><SPAN class=\"priceN\">$price /jm</SPAN>
<SPAN class=\"priceB\">($brutto VAT)</SPAN></TD>";
print "<TD NOWRAP width=\"$cfg{to basket_width}\" align=\"center\">";
print "<INPUT TYPE=\"hidden\" name=\"product\" value=\"$id\">\n";
print "<INPUT TYPE=\"hidden\" name=\"basket\" value=\"$data{basket}\">\n";
print "<INPUT TYPE=\"hidden\" name=\"form\" value=\"search\">\n";
print "<INPUT TYPE=\"hidden\" name=\"search_str\" value=\"$data{search_str}\">\n";
print "<SPAN class=\"ver10\">\n";
print "<INPUT TYPE=\"text\" name=\"count\" value=\"0\" size=\"1\">\n";
print "<INPUT TYPE=\"submit\" name=\"action\" value=\"В корзину\">\n";
print "</SPAN>\n";
print "</TD>\n";
print "</FORM>\n";
print "</TR>\n";
}
}
close(OFFER);
if ($items == 0) {
print "<TR>\n";
print "<TD align=\"center\">\n";
print "<SPAN class=\"ver14\">Не найдено ни одной позиции, соответствующей образцу</SPAN>";
print "</TD>\n";
print "</TR>\n";
}
}
else {
print "<TR>\n";
print "<TD align=\"center\">\n";
print "<SPAN class=\"ver14\">Образец поиска не определен!</SPAN>";
print "</TR>\n";
print "</TABLE>\n";
print "</CENTER>\n";
&HTML_Foot;
}
}
|
Ошибка, как мне кажется, где-то здесь:
| Код |
if ($infoFile ne "") {
print "<A HREF=\"$cfg{home}$cfg{html_path}$infoFile";
if ($infoID ne "") {
print "$infoID";
}
print \"onMouseOver=\"window.status='Информация о товаре';
return true\"><IMG SRC=\"$cfg{home}$cfg{graph_path}$cfg{info_button}\" alt=\"ДОПОЛНИТЕЛЬНАЯ ИНФОРМАЦИЯ\" border=\"0\"></a>\n;
}
if ($photo ne "") {
print "<a href=\"$cfg{script}?action=photo&photo=$photo\" onMouseOver=\"window.status='Осмотрите товар';
return true\" onMouseOut=\"window.status=' ';
return true\"><img src=\"$cfg{home}$cfg{graph_path}$cfg{photo_button}\" alt=\"FOTO\" border=\"0\"><a>\n;
}
print "</TD>\n";
|
Как правильно описывать в Perl гиперссылки? Что-то в литературе нигде не нахожу. Пожалуйста, не ругайте сильно, я лишь начинаю  Заранее спасибо! |
