mason/breeders_toolbox/upload_crosses_file_error.mas

   1 <%args>
   2 $file_name => undef
   3 $header_error => undef
   4 $line_errors_ref => undef
   5 </%args>
   6
   7 <table>
   8 <%perl>
   9 my %line_errors = %{$line_errors_ref};
  10 my $line_errors_string;
  11 foreach my $line_key (keys %line_errors) {
  12     $line_errors_string .= "<tr><td>".$line_errors{$line_key}."</td></tr>";
  13 }
  14 print "<tr><td><b>Error in upload file: $file_name</b></td></tr>";
  15 if ($header_error) {
  16   print "<tr><td>$header_error</td></tr>";
  17 }
  18 print "<tr><td><b>Errors were found in the following lines:</b></td></tr>".$line_errors_string."\n";
  19 </%perl>
  20 </table>