From 7a8a2ccb2ad33407ece7372f107b6ae0ee1e1d86 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 14 Dec 2005 18:55:44 +0000
Subject: [PATCH]  r11687@llin:  dpavlin | 2005-12-14 21:52:48 +0100  added
 load_rec('database/prefix/mfn','template.tt') and 
 load_template('template.tt') for use in TT

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@239 07558da8-63fa-0310-ba24-9fe276d99e06
---
 conf/output/tt/html_ffzg_results_nonstd.tt |  6 +--
 conf/output/tt/html_ffzg_results_short.tt  |  4 +-
 lib/WebPAC/Output/TT.pm                    | 43 +++++++++++++++++++++-
 3 files changed, 47 insertions(+), 6 deletions(-)

diff --git a/conf/output/tt/html_ffzg_results_nonstd.tt b/conf/output/tt/html_ffzg_results_nonstd.tt
index ede59ad..241b5e6 100644
--- a/conf/output/tt/html_ffzg_results_nonstd.tt
+++ b/conf/output/tt/html_ffzg_results_nonstd.tt
@@ -74,9 +74,9 @@
 <h3>Oblik zapisa</h3>
 
 <ul class="redstar">
-	<li><a href="#" onClick="load_rec([% d('MFN') %], 'html_ffzg_results_apa.tt'); return false;">APA stil citiranja</a></li>
-	<li><a href="#" onClick="load_rec([% d('MFN') %], 'html_ffzg_results_isbd.tt'); return false;">katalo¾ni opis</a></li>
-  	<li><a href="#" onClick="return load_template('html_ffzg_results_short.tt');">lista rezultata</a></li>
+	<li><a href="#" onClick="[% load_rec(record_uri, 'html_ffzg_results_apa.tt') %]">APA stil citiranja</a></li>
+	<li><a href="#" onClick="[% load_rec(record_uri, 'html_ffzg_results_isbd.tt') %]">katalo¾ni opis</a></li>
+  	<li><a href="#" onClick="[% load_template('html_ffzg_results_short.tt') %]">lista rezultata</a></li>
 </ul>
 
 </div>
diff --git a/conf/output/tt/html_ffzg_results_short.tt b/conf/output/tt/html_ffzg_results_short.tt
index 016f4f0..1af44f1 100644
--- a/conf/output/tt/html_ffzg_results_short.tt
+++ b/conf/output/tt/html_ffzg_results_short.tt
@@ -36,8 +36,8 @@
 
 <div class="links">
 	<ul class="redstar">
-  		<li><a href="#" onClick="load_rec([% d('MFN') %], 'html_ffzg_results_nonstd.tt'); return false;">vi¹e informacija</a></li>
-  		<li><a href="#" onClick="load_rec([% d('MFN') %], 'html_ffzg_results_apa.tt'); return false;">oblik za citiranje</a></li>
+  		<li><a href="#" onClick="[% load_rec(record_uri, 'html_ffzg_results_nonstd.tt') %]">vi¹e informacija</a></li>
+  		<li><a href="#" onClick="[% load_rec(record_uri, 'html_ffzg_results_apa.tt') %]">oblik za citiranje</a></li>
  	
 	  </ul>
 </div>
diff --git a/lib/WebPAC/Output/TT.pm b/lib/WebPAC/Output/TT.pm
index ccb558c..c19a29b 100644
--- a/lib/WebPAC/Output/TT.pm
+++ b/lib/WebPAC/Output/TT.pm
@@ -71,7 +71,8 @@ Create output from in-memory data structure using Template Toolkit template.
 
  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:
@@ -223,6 +224,46 @@ __JS_LINK_SEARCH__
 
 	$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;
 
 	$self->{'tt'}->process(
-- 
2.20.1