colinjoy · August 26, 2015 07:01
diff --git a/bugzilla_bodyclasses.pl b/bugzilla_bodyclasses.pl
 sub template_before_process {
    my ($self, $args) = @_;
    my ($file, $vars) = @$args{qw(file vars)};

    if($file eq 'global/header.html.tmpl') {
        $vars->{bodyclasses} = [] unless ref($vars->{bodyclasses});
        my $caller = $vars->{component}->{caller};
        my @classes;

        $caller =~ s/\.html\.tmpl//; # strip file extension
        @classes = split('/', $caller); # use filepath segments as classes
        $caller =~ s</><->g; # use full path as additional class
        push @classes, $caller;
        my @classes = keys %{{ map{ $_ => 1} @classes }}; # remove possible duplicates

        push $vars->{bodyclasses}, sort @classes;
    }
 }
	sub template_before_process {
	my ($self, $args) = @_;
	my ($file, $vars) = @$args{qw(file vars)};

	if($file eq 'global/header.html.tmpl') {
	$vars->{bodyclasses} = [] unless ref($vars->{bodyclasses});
	my $caller = $vars->{component}->{caller};
	my @classes;

	$caller =~ s/\.html\.tmpl//; # strip file extension
	@classes = split('/', $caller); # use filepath segments as classes
	$caller =~ s</><->g; # use full path as additional class
	push @classes, $caller;
	my @classes = keys %{{ map{ $_ => 1} @classes }}; # remove possible duplicates

	push $vars->{bodyclasses}, sort @classes;
	}
	}