Processors for showing different fields differently

webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Graph.pm

@@ -0,0 +1,20 @@
+package Tinderbox3::FieldProcessors::Graph;
+
+use strict;
+
+sub new {
+	my $class = shift;
+	$class = ref($class) || $class;
+	my $this = {};
+	bless $this, $class;
+
+  return $this;
+}
+
+sub process_field {
+  my $this = shift;
+  my ($tree_columns, $field, $value) = @_;
+  return "$field: $value";
+}
+
+1

webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/URL.pm

@@ -0,0 +1,20 @@
+package Tinderbox3::FieldProcessors::URL;
+
+use strict;
+
+sub new {
+	my $class = shift;
+	$class = ref($class) || $class;
+	my $this = {};
+	bless $this, $class;
+
+  return $this;
+}
+
+sub process_field {
+  my $this = shift;
+  my ($tree_columns, $field, $value) = @_;
+  return "<a href='$value'>$field</a>";
+}
+
+1

webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/Warn.pm

@@ -0,0 +1,20 @@
+package Tinderbox3::FieldProcessors::Warn;
+
+use strict;
+
+sub new {
+	my $class = shift;
+	$class = ref($class) || $class;
+	my $this = {};
+	bless $this, $class;
+
+  return $this;
+}
+
+sub process_field {
+  my $this = shift;
+  my ($tree_columns, $field, $value) = @_;
+  return "$field: $value";
+}
+
+1

webtools/tinderbox3/scripts/Tinderbox3/FieldProcessors/default.pm

@@ -0,0 +1,20 @@
+package Tinderbox3::FieldProcessors::default;
+
+use strict;
+
+sub new {
+	my $class = shift;
+	$class = ref($class) || $class;
+	my $this = {};
+	bless $this, $class;
+
+  return $this;
+}
+
+sub process_field {
+  my $this = shift;
+  my ($tree_columns, $field, $value) = @_;
+  return "$field: $value";
+}
+
+1

webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Graph.pm

@@ -0,0 +1,20 @@
+package Tinderbox3::FieldProcessors::Graph;
+
+use strict;
+
+sub new {
+	my $class = shift;
+	$class = ref($class) || $class;
+	my $this = {};
+	bless $this, $class;
+
+  return $this;
+}
+
+sub process_field {
+  my $this = shift;
+  my ($tree_columns, $field, $value) = @_;
+  return "$field: $value";
+}
+
+1

webtools/tinderbox3/server/Tinderbox3/FieldProcessors/URL.pm

@@ -0,0 +1,20 @@
+package Tinderbox3::FieldProcessors::URL;
+
+use strict;
+
+sub new {
+	my $class = shift;
+	$class = ref($class) || $class;
+	my $this = {};
+	bless $this, $class;
+
+  return $this;
+}
+
+sub process_field {
+  my $this = shift;
+  my ($tree_columns, $field, $value) = @_;
+  return "<a href='$value'>$field</a>";
+}
+
+1

webtools/tinderbox3/server/Tinderbox3/FieldProcessors/Warn.pm

@@ -0,0 +1,20 @@
+package Tinderbox3::FieldProcessors::Warn;
+
+use strict;
+
+sub new {
+	my $class = shift;
+	$class = ref($class) || $class;
+	my $this = {};
+	bless $this, $class;
+
+  return $this;
+}
+
+sub process_field {
+  my $this = shift;
+  my ($tree_columns, $field, $value) = @_;
+  return "$field: $value";
+}
+
+1

webtools/tinderbox3/server/Tinderbox3/FieldProcessors/default.pm

@@ -0,0 +1,20 @@
+package Tinderbox3::FieldProcessors::default;
+
+use strict;
+
+sub new {
+	my $class = shift;
+	$class = ref($class) || $class;
+	my $this = {};
+	bless $this, $class;
+
+  return $this;
+}
+
+sub process_field {
+  my $this = shift;
+  my ($tree_columns, $field, $value) = @_;
+  return "$field: $value";
+}
+
+1