Архив форумов ЦИТФорума

[Dr. Yes]

Люди добрые!! Помогите, пожалуйста новичку. Меня попросили немного изменить сайт www.vladgsm.ru Там раньше было так: если товара нет на складе, то писалась цена "0", а мне надо было сделать, чтобы там писалось "Нет на складе" или что-то типа того. Я в perl-е почти ничего не соображаю, думал, что парочку условий вставить смогую. Вставил - отправил файл - получилось то, что там и сейчас. Чуть-чуть изменил его (прочитав про синтаксис), почти заработал. Только стал везде писать "Нет на складе". Я ещё немного поковырял - опять не работает. Думаю, потом разберусь, а пока оставлю все как есть. Вернул оригинальный catalog.cgi - а он НЕ РАБОТАЕТ!!! До этого я оригинал просто переименовывал на сервере, затем, когда появлялась ошибка, снова проверял оригинал. Т.е. когда я брал оригинал на сервере и переименовывал его в catalog.cgi - все работало. Потом нечаянно перезаписал поверх него "косячный" файл. Теперь, когда отправляю оригинал со своей машины - нифига не работает. Говорят, что надо его в UNIX-формате сохранять, но я же его не менял. Может быть при закачке что-то не так. К тому же иногда мои переделанные файлы работали ведь и в обычном Windows-формате.
В общем, ОЧЕНЬ ПРОШУ ПОМОЧЬ. От этого зависит моя судьба

Я скинул оригинал на сайт http://personal.primorye.ru/elvis Если не трудно - помогите найти ошибку. Или сделать из этого файла рабочий.

[FFF]

1)во всех местах, где выводится цена, предлагаю сфолрмировать предварительно переменную

$s_price= ($$ref[3] > 0) ? ("\$$$ref[3] ($rubр.)") : "Нет на складе";

а в нижеследующих операторах print

строки вида
Цена: \$$$ref[3] ($rubр.)

заменить на
Цена: $s_price

для некоторых print, где нет цены в долларах, этот кусок требуется немного подправить (упростить).

--------------------------------------------
2) ваш файл http://personal.primorye.ru/elvis уже в unix'овом формате. Если только при передаче по ftp Вы не включили режим передачи ASCII, то все должны быть с этим нормально.