Все сделал.
Только непонятно FULLW.PFT надо перезаписывать или просдо дописать его содержание в исходный FULLW.PFT?
Цитата:
я просто заменил блок:
&uf('+1W1#0'),
(if p(v910) then if (v910^a='0') or (('U C':v910^a)and(v910^1<>v910^2)) then &uf('+1W1#1'), break ,fi,fi/)
if (&uf('+1R1')='1') and (v2225<>'') then
(if p(v40) then if v40^f:'*' then if val(v40^e)<val(&uf('3')) then &uf('+1W1#0'),break fi fi fi)
fi,
if &uf('+1R1')='1' then
if (v2225<>'') then
'<br><a href="/cgi-bin/irbis64r_opak72/cgiirbis_64.exe?Z21ID=',&uf('+3E',v2225),'&P21DBN=',v3331,'&I21DBN=',S(v3331,'_ZAKAZ'),'&S21FMT=zakaz&C21COM=F&Z21MFN=<--MFN-->">',
'Заказать',
'</a> <br>' fi,
fi,
&uf('+1W1#',v1100),
&uf('+1W2#0'),
&uf(|DRDR,!RI=|v1002|!,(if p(v112) then if (v112=&uf('+1R1'))or(v112='*.*.*.*') then &uf('+1W2#1'),break,fi fi)|)
if &uf('+1R2')='1' then
'<br><a href="/cgi-bin/irbis64r_opak72/cgiirbis_64.exe?Z21ID=',&uf('+3E',v2225),'&P21DBN=',v3331,'&I21DBN=',v3331,'&EXP21FMT=ISO&C21COM=4&EXP21MFN=',f(val(MFN),0,0),'">',
'Скачать',
'</a> <br>'
fi,
'<hr noshade size="1"></td></tr>',&unifor('!')
Блоком
Цитата:
&uf('+1W1#0'),
(if p(v910) then if (v910^a='0') or (('U C':v910^a)and(v910^1<>v910^2)) then &uf('+1W1#1'), break ,fi,fi/)
if &uf('+1R1')='1' then
if (v2225<>'') then
'<br><a href="/cgi/irbis64r/cgiirbis_64.exe?Z21ID=',&uf('+3E',v2225),'&P21DBN=',v3331,'&I21DBN=',S(v3331,'_ZAKAZ'),'&S21FMT=zakaz&C21COM=F&Z21MFN=<--MFN-->">',
'Заказать',
'</a> <br>' fi,
&uf('+1W1#',v1100),
&uf('+1W2#0'),
&uf(|DRDR,!RI=|v1002|!,(if p(v112) then if v112=&uf('+1R1') then &uf('+1W2#1'),break,fi fi)|)
if &uf('+1R2')='1' then
'<br><a href="/cgi/irbis64r/cgiirbis_64.exe?Z21ID=',&uf('+3E',v2225),'&P21DBN=',v3331,'&I21DBN=',v3331,'&EXP21FMT=ISO&C21COM=4&EXP21MFN=',f(val(MFN),0,0),'">',
'Скачать',
'</a> <br>'
fi,
fi,
Редактировано 1 раз. Последний раз 24.10.2008 13:05 пользователем Konstantinus.