cvs commit: p5ee/App-Repository/lib/App/ValueDomain Repository.pm

[Stephen Adkins]

cvsuser     05/09/16 12:43:11

  Modified:    App-Repository/lib/App/ValueDomain Repository.pm
  Log:
  add extra_values and extra_labels configurability
  
  Revision  Changes    Path
  1.4       +7 -1      p5ee/App-Repository/lib/App/ValueDomain/Repository.pm
  
  Index: Repository.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/ValueDomain/Repository.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Repository.pm     9 Aug 2005 18:48:45 -0000       1.3
  +++ Repository.pm     16 Sep 2005 19:43:11 -0000      1.4
  @@ -131,6 +131,12 @@
               $rows   = $rep->get_rows($table, \%params, [EMAIL PROTECTED]);
               $values = [];
               $labels = {};
  +            if ($self->{extra_values}) {
  +                push(@$values, @{$self->{extra_values}});
  +            }
  +            if ($self->{extra_labels}) {
  +                $labels = { %{$self->{extra_labels}} };
  +            }
               foreach $row (@$rows) {
                   push(@$values, $row->[0]);
                   $labels->{$row->[0]} = $row->[1] if ($labelcolumn);