comment out large section of breeding program details - this info should be on the...
[sgn.git] / mason / image / confirm.mas
blob1b24ac0187cc338e0605460e4a41e01708968ffe
2 <%args>
3 $tempfile
4 $filename
5 $refering_page => undef
6 $type
7 $type_id
8 $sp_person_id
9 $image_url
10 </%args>
12 <& /page/page_title.mas, title=>"Upload Image" &>
14 <%perl>
16   print qq { The image uploaded is shown below. Please click on "Store in SGN database" to permanently store the image in the database. <br /> };
18 print "<br />\n";
19 if ($type && $type_id) { print "<b>Association:</b> $type id $type_id<br />\n"; }
21 print "<b>Submitter:</b> $sp_person_id<br /><br/>\n";
23 print qq { 
24           <form name="store_image" action="/image/store" method="post" enctype="multipart/form-data" >
25           <input type="hidden" name="tempfile" value="$tempfile" />
26           <input type="hidden" name="filename" value="$filename" />
27           <input type="hidden" name="type" value="$type" />
28           <input type="hidden" name="type_id" value="$type_id" />
29           <input id="store_image_submit" class="btn btn-primary" type="submit" value="Store in SGN database" />
30           
31           </form>
32           <br/>
33          };
35 if ($refering_page) { print "<a class=\"footer\" href=\"$refering_page\"><button class=\"btn btn-default\">Go Back</button></a><br /><br />\n"; }
37 print qq { <img src="$image_url" /><br/><br/> };
41 </%perl>