13 lines
355 B
Perl
13 lines
355 B
Perl
package LJ::S2Theme::bases;
|
|
use base qw( LJ::S2Theme );
|
|
use strict;
|
|
|
|
sub layouts { ( "1" => "one-column", "2l" => "two-columns-left", "2r" => "two-columns-right" ) }
|
|
sub layout_prop { "layout_type" }
|
|
|
|
sub comment_props {
|
|
my $self = shift;
|
|
my @props = qw( color_comment_screened );
|
|
return $self->_append_props( "comment_props", @props );
|
|
}
|
|
1;
|