File Coverage

blib/lib/Kwiki/Theme/BlueOcean.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Kwiki::Theme::BlueOcean;

use warnings;
use strict;
use Kwiki::Theme '-Base';
use mixin 'Kwiki::Installer';
use Template::Stash;
our $VERSION = '0.01';

const theme_id          => 'blueocean';
const class_title       => 'Blue Kwiki Theme';

$Template::Stash::SCALAR_OPS->{'image_desc'} = sub {
	$_[0] =~ s/alt\s*=\s*"([^\"]+)"([^\>]*)\>/alt="$1" $2> $1<\/span>/gi;
	return $_[0];
};

sub register {
	super
	my $registry = shift;
	$registry->add(hook => 'user_preferences:preference_objects',
		post => 'tweak_kwiki_user_name_query',
	);
	$registry->add(hook => 'user_preferences:preference_objects',
		post => 'remove_show_icons_option',
	);
	$registry->add(hook => 'user_preferences:user_preferences',
		pre => 'redirect_on_pref_save',
	);
	$registry->add(hook => 'icons:init',
		post => 'add_local_template_path',
	);
}

sub add_local_template_path {
	$self->template->add_path('local/template');
}

sub tweak_kwiki_user_name_query {
	my $new_text = <
Enter a UserName to identify yourself.
(Must be alphanumeric with NO whitespace)
HTML
	return [map {
		$_->query($new_text)
			if $_->id eq 'user_name';
		$_;
	} @{$_[-1]->returned}];
}

sub remove_show_icons_option {
	return [grep {
		$_->id ne 'use_icons'
	} @{$_[-1]->returned}];
}

sub redirect_on_pref_save {
	$self->get_preference_objects;
	my $errors = 0;
	if( $self->cgi->button ) {
		$errors = $self->save;
		unless( $errors ) {
			$_[-1]->cancel();
			return $self->redirect($self->pages->current->uri);
		}
	}
}

1; # End of Kwiki::Theme::BlueOcean

__DATA__