--- trunk/lib/WebPAC/Output/TT.pm	2005/11/14 16:12:20	44
+++ trunk/lib/WebPAC/Output/TT.pm	2005/11/14 16:12:43	45
@@ -73,6 +73,8 @@
 	data => \@ds
  );
 
+It also has follwing template toolikit filter routies defined:
+
 =cut
 
 sub apply {
@@ -86,7 +88,11 @@
 		$log->logconfess("need $a") unless ($args->{$a});
 	}
 
-	# filter to return value from @ds
+=head3 tt_filter_type
+
+filter to return values of specified from @ds
+
+=cut
 
 	sub tt_filter_type {
 		my ($data,$type) = @_;
@@ -101,20 +107,14 @@
 
 		return sub {
 
-print "### data = ",Dumper($data);
-
 			my ($name,$join) = @_;
 
 			die "no data array" unless ($data->{'data'} && ref($data->{'data'}) eq 'ARRAY');
 
-print "### name, join = ",Dumper($name);
-
 			my $item = first { $_->{'name'} eq $name } @{ $data->{'data'} };
 
 			return unless($item);
 
-print "### item = ",Dumper($item);
-
 			my $v = $item->{$type} || return;
 
 			if (ref($v) eq 'ARRAY') {
@@ -125,7 +125,7 @@
 					$v = join($join, @{$v});
 				}
 			}
-print "### v = $v\n";
+
 			return $v;
 		}
 	}