--- trunk/lib/WebPAC/Validate.pm	2007/05/23 20:03:12	830
+++ trunk/lib/WebPAC/Validate.pm	2007/05/23 20:03:16	832
@@ -405,6 +405,35 @@
 
 }
 
+=head2 delimiters_templates
+
+
+=cut
+
+sub delimiters_templates {
+	my $self = shift;
+
+	my $t = $self->{_delimiters_templates};
+
+	my $log = $self->_get_logger;
+
+	unless ($t) {
+		$log->warn("called without delimiters");
+		return;
+	}
+
+	my $out;
+
+	foreach my $f (sort { $a <=> $b } keys %$t) {
+		$out .= "$f\n";
+		foreach my $sft (sort { $a cmp $b } keys %{ $t->{$f} }) {
+			$out .= "\t" . $t->{$f}->{$sft} . "\t$sft\n";
+		}
+	}
+
+	return $out;
+}
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>