mason/phenome/add_image.mas

   1
   2
   3 <%doc>
   4
   5 =head1 NAME
   6
   7 /phenome/add_image.mas - a component for printing add image  form
   8
   9 =head1 DESCRIPTION
  10
  11
  12 Parameters:
  13
  14 =over 1
  15
  16 =item object_id
  17
  18 object  id
  19
  20 =item  object_type
  21
  22 the type of the object (e.g. 'locus')
  23
  24 =back
  25
  26 =head1 AUTHOR
  27
  28 Naama Menda <nm249@cornell.edu>
  29
  30 =cut
  31
  32 </%doc>
  33
  34 <%args>
  35
  36 $object_id
  37 $object_type
  38 $refering_page => undef
  39 $name => 'Add image'
  40
  41 </%args>
  42
  43 <%perl>
  44 </%perl>
  45
  46 <span>
  47   <a href="/image/add?type_id=<% $object_id %>&type=<% $object %>&action=new&refering_page=<% $refering_page %>">
  48     [<% $name %>]</a>
  49 </span>