[HEADER]
$$PAGETITLE$$
[JAVASCRIPT]
[/JAVASCRIPT]
[JAVASCRIPT]
[/JAVASCRIPT]
| _ | A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z |
[/HEADER]
[ITEM]
-
[JAVASCRIPT]
[/JAVASCRIPT]
$$name$$ | ($$TOP$$)
$$borrower_YESNO$$$$borrower_OREMPTY$$
-
| $$scale_LABEL$$ | $$scale$$ |
|---|
| $$manufacturer_LABEL$$ | $$manufacturer$$ |
|---|
| $$type1_LABEL$$ | $$type1$$ |
|---|
| $$constructor_LABEL$$ | $$constructor$$ |
|---|
| $$modele_LABEL$$ | $$modele$$ |
|---|
| $$version_LABEL$$ | $$version$$ |
|---|
| $$color_LABEL$$ | $$color$$ |
|---|
| $$pub_LABEL$$ | $$pub$$ |
|---|
| $$year_LABEL$$ | $$year$$ |
|---|
| $$reference_LABEL$$ | $$reference$$ |
|---|
| $$rating1_LABEL$$ | $$rating1$$/10 |
|---|
$$comments1$$
[/ITEM]
[FOOTER]
$$GENERATOR_NOTE$$
[/FOOTER]
[POST]
my %letters = ();
my $idx = 0;
foreach (@items)
{
my $name = $self->{options}->{originalList}->transformValue($_->{name}, 'name');
my $firstLetter = uc(substr($name, 0, 1));
$firstLetter =~ s/[^A-Z]/_/;
if (!$letters{$firstLetter})
{
$body =~ s/$_<\/a> |/;
}
$header =~ s/\| ([^<|]) /| $1<\/span> /g;
#$header =~ s/\| ([^<]) \|/| $1<\/span> |/g;
[/POST]