--- trunk/lib/WebPAC/Output/TT.pm	2005/11/14 16:12:01	43
+++ trunk/lib/WebPAC/Output/TT.pm	2005/12/14 23:10:53	247
@@ -8,6 +8,7 @@
 use Template;
 use List::Util qw/first/;
 use Data::Dumper;
+use URI::Escape qw/uri_escape_utf8/;
 
 =head1 NAME
 
@@ -15,11 +16,11 @@
 
 =head1 VERSION
 
-Version 0.01
+Version 0.04
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.04';
 
 =head1 SYNOPSIS
 
@@ -70,9 +71,12 @@
 
  my $text = $tt->apply(
  	template => 'text.tt',
-	data => \@ds
+	data => $ds,
+	record_uri => 'database/prefix/mfn',
  );
 
+It also has follwing template toolikit filter routies defined:
+
 =cut
 
 sub apply {
@@ -86,7 +90,15 @@
 		$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, usage from TT template is in form
+C<d('FieldName','delimiter')>, where C<delimiter> is optional, like this:
+
+  [% d('Title') %]
+  [% d('Author',', ' %]
+
+=cut
 
 	sub tt_filter_type {
 		my ($data,$type) = @_;
@@ -101,19 +113,13 @@
 
 		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);
+			die "no data hash" unless ($data->{'data'} && ref($data->{'data'}) eq 'HASH');
+			# Hm? Should we die here?
+			return unless ($name);
 
-			my $item = first { $_->{'name'} eq $name } @{ $data->{'data'} };
-
-			return unless($item);
-
-print "### item = ",Dumper($item);
+			my $item = $data->{'data'}->{$name} || return;
 
 			my $v = $item->{$type} || return;
 
@@ -124,13 +130,139 @@
 					$join = $default_delimiter->{$type} unless defined($join);
 					$v = join($join, @{$v});
 				}
+			} else {
+				warn("TT filter $type(): field $name values aren't ARRAY, ignoring");
 			}
-print "### v = $v\n";
+
 			return $v;
 		}
 	}
 
 	$args->{'d'} = tt_filter_type($args, 'display');
+	$args->{'display'} = tt_filter_type($args, 'display');
+
+=head3 tt_filter_search
+
+filter to return links to search, usage in TT:
+
+  [% search('FieldToDisplay','FieldToSearch','optional delimiter') %]
+
+=cut
+
+	sub tt_filter_search {
+
+		my ($data) = @_;
+
+		die "no data?" unless ($data);
+		
+		return sub {
+
+			my ($display,$search,$delimiter) = @_;
+			
+			# default delimiter
+			$delimiter ||= '&#182;<br/>',
+
+			die "no data hash" unless ($data->{'data'} && ref($data->{'data'}) eq 'HASH');
+			# Hm? Should we die here?
+			return unless ($display);
+
+			my $item = $data->{'data'}->{$display} || return;
+
+			return unless($item->{'display'});
+			die "error in TT template: field $display didn't insert anything into search, use d('$display') and not search('$display'...)" unless($item->{'search'});
+
+			my @warn;
+			foreach my $type (qw/display search/) {
+				push @warn, "field $display type $type values aren't ARRAY" unless (ref($item->{$type}) eq 'ARRAY');
+			}
+
+			if (@warn) {
+				warn("TT filter search(): " . join(",", @warn) . ", skipping");
+				return;
+			}
+			my @html;
+
+			my $d_el = $#{ $item->{'display'} };
+			my $s_el = $#{ $item->{'search'} }; 
+
+			# easy, both fields have same number of elements or there is just
+			# one search and multiple display
+			if ( $d_el == $s_el || $s_el == 0 ) {
+
+				foreach my $i ( 0 .. $d_el ) {
+
+					my $s;
+					if ($s_el > 0) {
+						$s = $item->{'search'}->[$i] || die "can't find value $i for type search in field $search";
+					} else {
+						$s = $item->{'search'}->[0];
+					}
+					#$s =~ s/([^\w.-])/sprintf("%%%02X",ord($1))/eg;
+					$s = uri_escape_utf8( $s );
+
+					my $d = $item->{'display'}->[$i] || die "can't find value $i for type display in field $display";
+
+					push @html, <<__JS_LINK_SEARCH__
+<a href="#" onclick="new Ajax.Updater( 'results',  '/search/results?$search=$s', { asynchronous: 1,onLoading: function(request){show_searching();},onLoaded: function(request){hide_searching();} } ) ; return false">$d</a>
+__JS_LINK_SEARCH__
+				}
+
+				return join($delimiter, @html);
+			} else {
+				my $html = qq{<div class="notice">WARNING: we should really support if there is $d_el display elements and $s_el search elements, but currently there is no nice way to do so, so we will just display values</div>};
+				my $v = $item->{'display'};
+
+				if ($#{$v} == 0) {
+					$html .= $v->[0];
+				} else {
+					$html .= join($delimiter, @{$v});
+				}
+				return $html;
+			}
+		}
+	}
+
+	$args->{'search'} = tt_filter_search($args);
+
+=head3 load_rec
+
+Used mostly for onClick events like this:
+
+  <a href="#" onClick="[% load_rec( record_uri, 'template_name.tt') %]>foo</a>
+
+It will automatically do sanity checking and create correct JavaScript code.
+
+=cut
+
+	$args->{'load_rec'} = sub {
+		my @errors;
+
+		my $record_uri = shift or push @errors, "record_uri missing";
+		my $template = shift or push @errors, "template missing";
+
+		if ($record_uri !~ m#^[^/]+/[^/]+/[^/]+$#) {
+			push @errors, "invalid format of record_uri: $record_uri";
+		}
+
+		if (@errors) {
+			return "Logger.error('errors in load_rec: " . join(", ", @errors) . "'); return false;";
+		} else {
+			return "load_rec('$record_uri','$template'); return false;";
+		}
+	};
+
+=head3 load_template
+
+Used to re-submit search request and load results in different template
+
+  <a href="#" onClick="[% load_template( 'template_name.tt' ) %]">bar</a>
+
+=cut
+
+	$args->{'load_template'} = sub {
+		my $template = shift or return "Logger.error('load_template missing template name!'); return false;";
+		return "load_template($template); return false;";
+	};
 
 	my $out;
 
@@ -151,7 +283,7 @@
  $tt->to_file(
         file => 'out.txt',
  	template => 'text.tt',
-	data => \@ds
+	data => $ds
  );
 
 =cut