mason/image/confirm.mas

   1
   2 <%args>
   3 $tempfile
   4 $filename
   5 $refering_page => undef
   6 $type
   7 $type_id
   8 $sp_person_id
   9 $image_url
  10 </%args>
  11
  12 <%perl>
  13 if ($refering_page) { print "<a href=\"$refering_page\">[Return]</a><br /><br />\n"; }
  14
  15   print qq { The image uploaded is shown below. Please click on "Store in SGN database" to permanently store the image in the database. <br /> };
  16
  17 print "<br /><br />\n";
  18 if ($type && $type_id) { print "<b>Association</b> $type id $type_id<br /><br />\n"; }
  19
  20 print "Submitter: $sp_person_id<br />\n";
  21
  22 print qq {
  23           <form name="store_image" action="/image/store" method="post" enctype="multipart/form-data" >
  24           <input type="hidden" name="tempfile" value="$tempfile" />
  25           <input type="hidden" name="filename" value="$filename" />
  26           <input type="hidden" name="type" value="$type" />
  27           <input type="hidden" name="type_id" value="$type_id" />
  28           <input type="submit" value="Store in SGN database" />
  29
  30           </form>
  31          };
  32
  33 if ($refering_page) { print "<a href=\"$refering_page\">[Cancel]</a><br /><br />\n"; }
  34
  35 print qq { <img src="$image_url" /> };
  36
  37
  38
  39 </%perl>