[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