[wellwell-devel] [SCM] Interchange wellwell catalog branch, master, updated. 3238de4495d6fa260f860afbcd4ad76b50130052

Stefan Hornburg racke at rt.icdevgroup.org
Thu Jan 29 12:47:09 UTC 2009


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Interchange wellwell catalog".

The branch, master has been updated
       via  3238de4495d6fa260f860afbcd4ad76b50130052 (commit)
      from  bed93707fe7572bfcd969580c348a3d51389a6ae (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 3238de4495d6fa260f860afbcd4ad76b50130052
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Thu Jan 29 13:46:45 2009 +0100

    theming support introduced

-----------------------------------------------------------------------

Summary of changes and diff:
 code/form.tag                     |    4 ++--
 code/theme.sub                    |   14 ++++++++++++++
 code/theme_form_element_label.sub |   13 +++++++++++++
 3 files changed, 29 insertions(+), 2 deletions(-)
 create mode 100644 code/theme.sub
 create mode 100644 code/theme_form_element_label.sub

diff --git a/code/form.tag b/code/form.tag
index f27934b..947b717 100644
--- a/code/form.tag
+++ b/code/form.tag
@@ -5,7 +5,7 @@ sub {
 	my ($name, $opt) = @_;
 	my ($form_name, @out_title, @out, @out_fields, @out_end, $required_fields);
 
-	$Tag->perl({tables => 'form_series form_components form_elements form_attributes'});
+	$Tag->perl({tables => 'form_series form_components form_elements form_attributes', subs => 1});
 
 	$form_name = $opt->{part};
 
@@ -173,7 +173,7 @@ sub {
 			if ($elref->{label} =~ /\S/) {
 				$label = "$elref->{label}$append$opt->{appendlabel}";
 			}
-			push (@out_fields, qq{<label for="$elref->{name}">$label</label>});
+			push (@out_fields, theme('form_element_label', $elref->{name}, $label));
 			push (@out_fields, $Tag->display({name => $elref->{name},
 									   type => $elref->{widget} || 'text',
 									   value => $value,
diff --git a/code/theme.sub b/code/theme.sub
new file mode 100644
index 0000000..f55dc6b
--- /dev/null
+++ b/code/theme.sub
@@ -0,0 +1,14 @@
+Sub theme <<EOS
+sub {
+	my ($function, @args) = @_;
+	my ($sub);
+
+	# just call provided function for now :-)
+	unless ($sub = $Config->{Sub}{"theme_$function"}) {
+		Log("Theming function $function not found.");
+		return;
+	}
+
+	return $sub->(@args);
+}
+EOS
diff --git a/code/theme_form_element_label.sub b/code/theme_form_element_label.sub
new file mode 100644
index 0000000..d0c4e8e
--- /dev/null
+++ b/code/theme_form_element_label.sub
@@ -0,0 +1,13 @@
+#
+# Parameters are:
+#
+# name - Element name
+# label - Element label
+
+Sub theme_form_element_label <<EOS 
+sub {
+	my ($name, $label) = @_;
+Log("TFEL: $name $label");
+	return qq{<label for="$name">$label</label>};
+}
+EOS


hooks/post-receive
-- 
Interchange wellwell catalog



More information about the wellwell-devel mailing list