mason/util/barcode.mas

   1
   2 <%doc>
   3
   4 =head1 NAME
   5
   6 /util/barcode.mas - generate a barcode from an identifier and prints text alongside the barcode
   7
   8 =head1 DESCRIPTION
   9
  10 This mason component calls SGN::Controller::Barcode.
  11
  12 Arguments:
  13
  14  $identifier (required) - will be converted to barcode
  15  $text - what's printed alongside barcode (human readable)
  16
  17
  18 =head1 AUTHOR
  19
  20 Lukas Mueller <lam87@cornell.edu>
  21
  22 =cut
  23
  24 </%doc>
  25
  26 <%args>
  27 $identifier
  28 $text => ''
  29 $format => ''
  30 </%args>
  31
  32 <%perl>
  33
  34 our %urlencode;
  35 use Tie::UrlEncoder;
  36
  37 my $encoded_id = $urlencode{$identifier};
  38 my $encoded_text = $urlencode{$text};
  39 my $link;
  40
  41 if ($format eq "code128") {
  42   $link = "/barcode/code128png/$encoded_id/$encoded_text";
  43 }
  44
  45 if ($format eq "qrcode") {
  46   my $info = "http://solgenomics.net/stock/$identifier/view";
  47   $link = "/barcode/qrcodepng/$info/$encoded_text";
  48   #$link = "/barcode/qrcodepng/$identifier/$encoded_text";
  49 }
  50
  51
  52 </%perl>
  53
  54 <center><img src="<% $link %>" /></center>