[Jifty-commit] r3751 - in jifty/trunk: .

[jifty-commit at lists.jifty.org]

Author: sterling
Date: Tue Jul 31 22:33:17 2007
New Revision: 3751

Added:
   jifty/trunk/lib/Jifty/Plugin/Chart/Renderer/GD/
   jifty/trunk/lib/Jifty/Plugin/Chart/Renderer/GD/Graph.pm
Modified:
   jifty/trunk/   (props changed)

Log:
 r8271 at dynpc145:  andrew | 2007-07-31 21:31:21 -0500
 Added a renderer for GD::Graph


Added: jifty/trunk/lib/Jifty/Plugin/Chart/Renderer/GD/Graph.pm
==============================================================================
--- (empty file)
+++ jifty/trunk/lib/Jifty/Plugin/Chart/Renderer/GD/Graph.pm	Tue Jul 31 22:33:17 2007
@@ -0,0 +1,56 @@
+use strict;
+use warnings;
+
+package Jifty::Plugin::Chart::Renderer::GD::Graph;
+use base qw/ Jifty::Plugin::Chart::Renderer /;
+
+=head1 NAME
+
+Jifty::Plugin::Chart::Renderer::GD::Graph - A chart renderer using GD::Graph
+
+=head1 SYNOPSIS
+
+In F<config.yml>:
+
+  Plugins:
+    - Chart:
+        renderer: Jifty::Plugin::Chart::Renderer::GD::Graph
+
+=head1 DESCRIPTION
+
+This is a chart renderer that uses L<GD::Graph> to build charts.
+
+=cut
+
+sub render {
+    my $self = shift;
+    my %args = @_;
+
+    # Convert the type to lowercase
+    $args{type} = lc $args{type};
+
+    # Save the data for retrieval from the session later
+    my $chart_id   = Jifty->web->serial;
+    my $session_id = 'chart_' . $chart_id;
+    Jifty->web->session->set( $session_id => Jifty::YAML::Dump(\%args) );
+
+    # Output the <img> tag and include the chart's configuration key
+    Jifty->web->out(qq{<img src="/chart/gd_graph/$chart_id" width="$args{width}" height="$args{height}"/>});
+
+    # Make sure we don't return anything that will get output
+    return;
+}
+
+=head1 AUTHOR
+
+Andrew Sterling Hanenkamp C<< <andrew.hanenkamp at boomer.com> >>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2007 Boomer Consulting, Inc.
+
+This is free software and may be modified and distributed under the same terms as Perl itself.
+
+=cut
+
+1;