[ic] filter last name

[Jonathan Clark]

> GlobalSub <<EOR
> sub new_filter {
> 	BEGIN {
> 	package Vend::Interpolate;
> 	$Filter{first_three_uc} = sub
> 
> 			my $val = shift;
> 			$val = uc($val);
> 			$val = substr($val,0,3);

appear to have lost a few chars somewhere along the line...

should be:
.
.
$Filter{first_three_uc} = sub {
	my $val = shift;
.
.

Jonathan
Webmaint.