mason/qtl/qtl_load/missing_data.mas

   1 <%doc>
   2
   3 =head1 NAME
   4
   5 missing_data.mas - a mason component for displaying missing data from
   6 qtl data submission forms
   7
   8 =AUTHOR
   9
  10 Isaak Y Tecle (iyt2@cornell.edu)
  11
  12 =cut
  13
  14 </%doc>
  15
  16 <%args>
  17
  18 $missing_data
  19 $guide
  20
  21 </%args>
  22
  23 <%perl>
  24
  25 my ( $messages, $count );
  26
  27 if ( @{$missing_data} )
  28 {
  29
  30 $messages .= "Data for the following field(s) is missing: <br /><br />";
  31 my $count = 1;
  32 foreach my $e (@{$missing_data}) {
  33
  34 $messages .= $count . ")" . "\t" . $e . "." . "<br />";
  35 $count++;
  36 }
  37
  38 $messages .= qq | <p><a href="javascript:history.go(-1)">
  39    Please go back and fill in the missing information.</a> </p>|;
  40 }
  41
  42 </%perl>
  43
  44 <& /page/page_title.mas, title => "Missing Data:" &>
  45 <&| /page/info_section.mas, title => ' ',
  46   subtitle => $guide &>
  47  <% $messages %>
  48 </&>