Hi, I am generating a OrgChart using the following code. I am able to create the diagram but there are no text in that chart. I am using the following code segment and OS is Solaris 11 

#!/usr/bin/perl
  use GD::OrgChart;
  use constant FONT => "/usr/openwin/lib/locale/KOI8-R/X11/fonts/TrueT
+ype/TimesBold.ttf";
  #use IO::Pipe;

  our $COMPANY;

  # put data into $COMPANY such that it looks like:
  $COMPANY =
    { text => "Owner", subs => [
      { text => "President", subs => [
        { text => "Watcher" },
        { text => "Sitter" },
      ]},
      { text => "Security", subs => [
        { text => "Watcher" },
        { text => "Watcher" },
      ]},
    ]};

  our $chart = GD::OrgChart->new({ size => 12, font => FONT });
  $chart->DrawTree($COMPANY);

  open (PIC, ">gd.gif") || die "Oops unable open file";
    if (PIC){
        print "FILE OPENED";
    }else {
        print "Oops!";
    }
    binmode PIC;
    
   
  our $image = $chart->Image;
  print PIC ($image->gif());
  close(PIC);

[download]

In reply to GD OrgChart by beginr

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.