[%# latest/mood.tt "Current mood of service" toy. Authors: maiden Andrea Nall Copyright (c) 2010 by Dreamwidth Studios, LLC. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself. For a copy of the license, please reference 'perldoc perlartistic' or 'perldoc perlgpl'. %] [%- sections.title = '.title' | ml -%]

[% '.info' | ml( aopts = "href=\"$site.root/latest\"", sitename = site.name ) %]

[%- IF no_data -%]

[% '.no_data' | ml %]

[%- ELSE -%] [%- dw.need_res('stc/moodofservice.css') -%]

[% ( top_mood.length == 1 ? '.current_mood' : '.current_moods' ) | ml %]

[% top_mood.join(', ') %]

[% '.emotional_weather' | ml %]

[% '.alt.sad' | ml %]
[% '.alt.indicator' | ml(score = score, top = 100) %]
[%# The above formula in the inline style is derived from the width and margin of the moodgradient class in the CSS file. ( score / 100 ) * - %]
[% '.alt.happy' | ml %]
[%- END -%]