|
Lines 50-56
sub catch_missing_op {
Link Here
|
| 50 |
my @lines = read_file($file); |
50 |
my @lines = read_file($file); |
| 51 |
my @errors; |
51 |
my @errors; |
| 52 |
return unless grep { $_ =~ m|<form| } @lines; |
52 |
return unless grep { $_ =~ m|<form| } @lines; |
| 53 |
my ( $in_form, $closed_form, $line_open_form, $has_op, $op_value ); |
53 |
my ( $in_form, $line_open_form, $has_op, $op_value ); |
| 54 |
my $line_number = 0; |
54 |
my $line_number = 0; |
| 55 |
for my $line (@lines) { |
55 |
for my $line (@lines) { |
| 56 |
$line_number++; |
56 |
$line_number++; |
|
Lines 65-71
sub catch_missing_op {
Link Here
|
| 65 |
} |
65 |
} |
| 66 |
} |
66 |
} |
| 67 |
if ( $in_form && $line =~ m{</form} ) { |
67 |
if ( $in_form && $line =~ m{</form} ) { |
| 68 |
$closed_form = 0; |
|
|
| 69 |
if ($has_op) { |
68 |
if ($has_op) { |
| 70 |
if ( $op_value !~ m{^cud-} && $op_value !~ m{^\[%} ) { |
69 |
if ( $op_value !~ m{^cud-} && $op_value !~ m{^\[%} ) { |
| 71 |
push @errors, $line_open_form; |
70 |
push @errors, $line_open_form; |
|
Lines 73-78
sub catch_missing_op {
Link Here
|
| 73 |
} else { |
72 |
} else { |
| 74 |
push @errors, $line_open_form; |
73 |
push @errors, $line_open_form; |
| 75 |
} |
74 |
} |
|
|
75 |
$has_op = 0; |
| 76 |
$in_form = 0; |
76 |
$in_form = 0; |
| 77 |
} |
77 |
} |
| 78 |
} |
78 |
} |
| 79 |
- |
|
|