[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]
$$title$$ | ($$TOP$$)
$$borrower_YESNO$$$$borrower_OREMPTY$$
-
| $$date_LABEL$$ | $$date$$ |
|---|
| $$genre_LABEL$$ | $$genre$$ |
|---|
| $$id_LABEL$$ | $$id$$ |
|---|
| $$original_LABEL$$ | $$original$$ |
|---|
| $$time_LABEL$$ | $$time$$ Min. |
|---|
| $$director_LABEL$$ | $$director$$ |
|---|
| $$actors_LABEL$$ | $$actors$$ |
|---|
| $$rating_LABEL$$ | $$rating$$/10 |
|---|
| $$age_LABEL$$ | $$age$$ |
|---|
| $$country_LABEL$$ | $$country$$ |
|---|
| $$audio_LABEL$$ | $$audio$$ |
|---|
| $$comment_LABEL$$ | $$comment$$ |
|---|
| $$serie_LABEL$$ | $$serie$$ |
|---|
| $$subt_LABEL$$ | $$subt$$ |
|---|
$$synopsis$$
[/ITEM]
[FOOTER]
$$GENERATOR_NOTE$$
[/FOOTER]
[POST]
my %letters = ();
my $idx = 0;
foreach (@items)
{
my $title = $self->{options}->{originalList}->transformValue($_->{title}, 'title');
my $firstLetter = uc(substr($title, 0, 1));
$firstLetter =~ s/[^A-Z]/_/;
if (!$letters{$firstLetter})
{
$body =~ s/$_<\/a> |/;
}
[/POST]