mason/image/index.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 /image/index.mas - a page for displaying image and image details
   7
   8 =head1 DESCRIPTION
   9
  10 parameters:
  11
  12 =over 5
  13
  14 =item $object_id
  15
  16 The id of the image in the database
  17
  18 =item $dbh
  19
  20 a database handle
  21
  22 =item $person_id
  23
  24 the person logged into the system right now
  25
  26 =item size
  27
  28 the size of the image to display initially
  29
  30 =back
  31
  32 =head1 AUTHOR
  33
  34 Lukas Mueller
  35
  36 =cut
  37
  38 </%doc>
  39
  40 <%args>
  41 $object_id => undef
  42 $dbh
  43 $person_id => undef
  44 $size => 'medium'
  45 </%args>
  46
  47 <%perl>
  48
  49 use SGN::Image;
  50
  51 if (!$object_id) {
  52    print "<br /><br />No image is available with these parameters.";
  53    return;
  54  }
  55
  56 my $image = SGN::Image->new($dbh, $object_id);
  57
  58 </%perl>
  59
  60 <& /page/page_title.mas, title=>"SGN Image ".$image->get_name() &>
  61
  62 <&| /page/info_section.mas, title=>"Image data" &>
  63
  64     <& /page/form.mas, object_type=>'image', object_id=>"$object_id", form_name=> 'image_form', server_side_script => '/image/ajax/image_ajax_form.pl', form_div_name=>'image_info_div', js_object_name=> 'image_form', page_url => '/image/index.pl', alternate_new_button => '' &>
  65
  66 </&>
  67
  68 <&| /page/info_section.mas, title=>"Image" &>
  69     <& /image/display_image.mas, image=>$image, size=>$size &>
  70 </&>