[%# View and manage promo codes. # # Authors: # Andrea Nall -- original page # Jen Griffin -- TT conversion # # Copyright (c) 2009-2020 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 -%] [%- sections.head = BLOCK %] [% END %] [%- IF codelist.size -%] [%- FOREACH item = codelist; suggest_u = load_suggest_u( item ) -%] [%- END -%]
[% '.heading.code' | ml %] [% '.heading.active' | ml %] [% '.heading.count' | ml %] [% '.heading.suggest' | ml %] [% '.heading.paid' | ml %] [% '.heading.expiry' | ml %]
[% item.code | html %] [% dw.ml( item.active ? '.active.active' : '.active.inactive' ) %] [% item.current_count %]/[% item.max_count %] [% suggest_u ? suggest_u.ljuser_display : dw.ml( '.suggest.none' ) %] [%- IF item.paid_class.defined; dw.ml( '.paid', { type => item.paid_class, months => item.paid_months } ); ELSE; dw.ml( '.paid.no' ); END -%] [% item.expiry_date ? mysql_date( item.expiry_date ) : dw.ml( '.expiry.none' ) %]
[%- ELSE -%]

[% '.nomatch' | ml %]

[%- END -%]