mason/barcode/tool/multi_tool.mas

   1
   2
   3 <%args>
   4 $operator
   5 $date
   6 $project
   7 $location
   8 @cvterms
   9 </%args>
  10
  11
  12 <%perl>
  13 use Tie::UrlEncoder;
  14
  15 our %urlencode;
  16 my $encoded_operator = $urlencode{$operator};
  17 my $encoded_date     = $urlencode{$date};
  18 my $size = "small";
  19 </%perl>
  20
  21
  22 <center>
  23 <h1>CASSAVABASE MULTI-BARCODE SHEET</h1>
  24
  25 <br />
  26 <br />
  27 <div class="boxbgcolor5">
  28 Scan the following barcodes once
  29 </div>
  30
  31 <table>
  32 <tr><td><font size="4">Operator</font></td>
  33
  34 <td><img src="/barcode/image/?code=O:<% $encoded_operator %>&size=<% $size %>" /></td></tr>
  35
  36 <tr><td><font size="4">Today's Date</font></td>
  37 <td><img src="/barcode/image/?code=D:<% $encoded_date %>&size=<% $size %>" /></td></tr>
  38 <tr><td><font size="4">Project</font></td>
  39
  40 <td><img src="/barcode/image/?code=P:<% $project %>&size=<% $size %>" /></td></tr>
  41 <tr><td><font size="4">Location</font></td>
  42 <td><img src="/barcode/image/?code=L:<% $location %>&size=<% $size %>" /></td></tr>
  43 </table>
  44
  45
  46 <br /><br /><br /><br />
  47
  48
  49 <div class="boxbgcolor5">
  50 Scan the barcode for the plant to be phenotyped, then scan the phenotype barcode, then enter the number on the keypad
  51 </div>
  52
  53
  54 <table border="0" cellpadding="20">
  55 <%perl>
  56
  57 foreach my $t (@cvterms) {
  58      my $definition = $t->{cvterm_definition};
  59      $definition =~ s/(.{40})/$1\<br \\\>/g;
  60      print qq { <tr><td><img src="/barcode/image/?code=$t->{cvterm}&size=$size" /></td><td>$definition</td></tr> };
  61
  62 }
  63
  64 </%perl>
  65 </table>
  66 </center>
  67
  68