Приветствую всех знатоков Perl!
Мне необходимо определенным образом модифицировать Багзиллу (а именно - очищать поле «From», если статус бага отличен от указанного)
Нужна ваша помощь, чтобы разобраться в синтаксисе, поскольку сам я сталкиваюсь с Perl впервые. В шаблоне (файл knob.html.tmpl) нашел код, отвечающий за формы «Status» и «From»:
<div id="status">
[% PROCESS bug/field.html.tmpl
no_tds = 1
field = bug_fields.bug_status
value = bug.bug_status
override_legal_values = bug.choices.bug_status
editable = bug.choices.bug_status.size > 1
%]
<span id="infofrom_settings">
[% PROCESS bug/field.html.tmpl
no_tds = 1
field = bug_fields.cf_infofrom
value = bug.cf_infofrom
override_legal_values = bug.choices.cf_infofrom
editable = bug.check_can_change_field('cf_infofrom', bug.cf_infofrom, 1)
value_span = 2 %]
</span>
<div>
Нужно сделать проверку value у status и если оно отлично от того или иного значения, то присвоить value у infofrom на значение --- Подскажите - как правильно это написать, учитывая указанный синтаксис?
Извините, если говорю «не тем языком» и спасибо заранее за помощь )
