mason/phenome/print_images.mas

   1
   2
   3 <%doc>
   4
   5 =head1 NAME
   6
   7 /phenome/print_images.mas - a component for printing images associated with your favorite objects (locus, accession etc.)
   8
   9 =head1 DESCRIPTION
  10
  11
  12 Requires the following javascript classes:
  13 <& /util/import_javascript.mas, classes => ["jquery", "thickbox", "CXGN.Page.FormattingHelpers"] &>
  14
  15 Parameters:
  16
  17 =over 2
  18
  19 =item images
  20
  21 arrayref of image ids
  22
  23 =item dbh
  24
  25 dstabase handle (for instantiating new SGN::Image objects)
  26
  27 =back
  28
  29 =head1 AUTHOR
  30
  31 Naama Menda <nm249@cornell.edu>
  32
  33 =cut
  34
  35 </%doc>
  36
  37 <%args>
  38
  39 $images
  40 $dbh
  41
  42 </%args>
  43
  44 <%perl>
  45
  46 use CXGN::Page::FormattingHelpers qw / html_optional_show /;
  47 use SGN::Image;
  48
  49 my $image_html     = "";
  50 my $m_image_html   = "";
  51 my $count;
  52 my @more_is;
  53
  54 if (@$images) {    # don't display anything for empty list of images
  55   $image_html .= qq|<table cellpadding="5">|;
  56   foreach my $image_id (@$images) {
  57             $count++;
  58             my $image = SGN::Image->new($dbh, $image_id);
  59             my $image_name        = $image->get_name();
  60             my $image_description = $image->get_description();
  61             my $image_img  = $image->get_image_url("medium");
  62             my $small_image = $image->get_image_url("thumbnail");
  63             my $image_page  = "/image/index.pl?image_id=$image_id";
  64
  65             my $thickbox =
  66 qq|<a href="$image_img"  title="<a href=$image_page>Go to image page ($image_name)</a>" class="thickbox" rel="gallery-figures"><img src="$small_image" alt="$image_description" /></a> |;
  67             my $fhtml =
  68               qq|<tr><td width=120>|
  69                 . $thickbox
  70                   . $image_name
  71                     . "</td><td>"
  72                       . $image_description
  73                         . "</td></tr>";
  74             if ( $count < 3 ) { $image_html .= $fhtml; }
  75             else {
  76               push @more_is, $fhtml;
  77             }    #more than 3 figures- show these in a hidden div
  78           }
  79   $image_html .= "</table>";  #close the table tag or the first 3 figures
  80 }
  81 $m_image_html .=
  82   "<table cellpadding=5>";  #open table tag for the hidden figures #4 and on
  83 my $more = scalar(@more_is);
  84 foreach (@more_is) { $m_image_html .= $_; }
  85
  86 $m_image_html .= "</table>";    #close tabletag for the hidden figures
  87
  88 if (@more_is) {    #html_optional_show if there are more than 3 figures
  89   $image_html .= html_optional_show(
  90                                     "Images",
  91                                     "<b>See $more more images...</b>",
  92                                     qq| $m_image_html |,
  93                                     0, #< do not show by default
  94                                     'abstract_optional_show', #< don't use the default button-like style
  95                                    );
  96 }
  97
  98 </%perl>
  99
 100
 101 <% $image_html %>