mason/stock/barcode/upload_confirm.mas

   1 <%doc>
   2
   3 =head1 NAME
   4
   5 stock/barcode/upload_confirm.mas - a mason component for displaying a confirmation
   6 message of stock phenotyping data loaded from a barcode reader.
   7 page.
   8
   9 =AUTHOR
  10
  11 Naama Menda <nm249@cornell.edu>
  12
  13 =cut
  14
  15 </%doc>
  16
  17 <%args>
  18
  19 @errors => ()
  20 @warnings => ()
  21 $data => undef # formatted data to be printed on confirmation page
  22 $feedback_email
  23 $tempfile
  24
  25 </%args>
  26
  27 <%perl>
  28
  29 my $err_string;
  30
  31 my $warning_string = join "<br />" , @warnings;
  32 if (!@errors) {
  33     $err_string = "No errors found! Click the Confirm upload button to proceed";
  34 } else {
  35     $err_string .= "The following errors were found. Please correct and try again. <a href=\"mailto:$feedback_email\">Contact us</a> for assistance : <br />";
  36     $err_string .= join "<br />" , @errors;
  37     $err_string .= "<h4>Cannot continue with uploading.</h4>";
  38     $err_string .= qq|<a href="javascript:history.back()">Go back to upload page</a>|;
  39 }
  40
  41 </%perl>
  42
  43 <& /page/page_title.mas, title => "Confirm barcode data upload" &>
  44 <&| /page/info_section.mas, title => "Confirm upload" &>
  45  <form action="/barcode/stock/store" method="POST" >
  46    <h4>Warnings</h4><div> <% $warning_string %> </div>
  47    <br />
  48    <h4>Errors</h4><div> <% $err_string %> </div>
  49    <br />
  50    <input type="hidden" name="type" value="confirm">
  51    <input type="hidden" name="tempfile" value="<% $tempfile %>">
  52
  53 %if (!@errors) {
  54    <input type = "submit" value = "Confirm upload">
  55 %}
  56  </form>
  57 </&>