[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$$
-
| $$time_LABEL$$ | $$time$$ |
|---|
| $$genre_LABEL$$ | $$genre$$ |
|---|
| $$date_LABEL$$ | $$date$$ |
|---|
| $$director_LABEL$$ | $$director$$ |
|---|
| $$actors_LABEL$$ | $$actors$$ |
|---|
| $$format_LABEL$$ | $$format$$ ($$number$$) |
|---|
| $$rating_LABEL$$ | $$rating$$/10 |
|---|
| $$audio_LABEL$$ | $$audio$$ |
|---|
| $$subt_LABEL$$ | $$subt$$ |
|---|
$$synopsis$$
$$comment$$
[/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> |/;
}
$header =~ s/\| ([^<|]) /| $1<\/span> /g;
#$header =~ s/\| ([^<]) \|/| $1<\/span> |/g;
[/POST]