Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add link filter module and filters to Zoom component module.
  • Loading branch information
racke committed Nov 1, 2010
1 parent 2a48458 commit f991155
Show file tree
Hide file tree
Showing 2 changed files with 43 additions and 3 deletions.
12 changes: 9 additions & 3 deletions lib/WellWell/Compose/Component/Zoom.pm
Expand Up @@ -26,6 +26,8 @@ use Template::Zoom;
use Template::Zoom::Specification::XML;
use Template::Zoom::HTML;

use WellWell::Filter::Link;

sub new {
my ($class, @parms) = @_;

Expand All @@ -39,6 +41,7 @@ sub new {
sub process {
my ($self, $attributes) = @_;
my ($content, $xml_spec, $spec, $iter_name, $html_object, $zoom);
my (%filters);

# parse specification
$xml_spec = new Template::Zoom::Specification::XML;
Expand All @@ -57,10 +60,13 @@ sub process {
$list_object->input($attributes);
}

$zoom = new Template::Zoom (template => $html_object, dbh => $self->{dbh});
# filters
$filters{link} = \&WellWell::Filter::Link::filter;

$zoom = new Template::Zoom (template => $html_object, filters => \%filters,
dbh => $self->{dbh});

return $zoom->process($attributes);

}

1;
34 changes: 34 additions & 0 deletions lib/WellWell/Filter/Link.pm
@@ -0,0 +1,34 @@
# WellWell::Filter::Link - WellWell link filter
#
# Copyright (C) 2010 Stefan Hornburg (Racke) <racke@linuxia.de>.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public
# License along with this program; if not, write to the Free
# Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
# MA 02110-1301, USA.

package WellWell::Filter::Link;

use strict;
use warnings;

use Vend::Util;

sub filter {
my ($url) = @_;
my $link;

$link = vendUrl($url);
}

1;

0 comments on commit f991155

Please sign in to comment.