/[A3C]/lib/A3C/Action/StrixSelectSite.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/A3C/Action/StrixSelectSite.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 197 by dpavlin, Tue Jun 17 21:32:12 2008 UTC revision 215 by dpavlin, Fri Jun 20 20:55:19 2008 UTC
# Line 30  use Jifty::Action schema { Line 30  use Jifty::Action schema {
30  sub available_values {  sub available_values {
31          my $self = shift;          my $self = shift;
32          my $field = shift;          my $field = shift;
33          warn "# available_values( $field )";          #warn "# available_values( $field )";
34          if ( $field eq 'instance' ) {          if ( $field eq 'instance' ) {
35                  my $coll = A3C::Model::StrixInstanceCollection->new;                  my $coll = A3C::Model::StrixInstanceCollection->new;
36                  $coll->unlimit;                  $coll->unlimit;
# Line 53  sub available_values { Line 53  sub available_values {
53    
54                  return [{ display => _('No sites') }] unless $coll->count;                  return [{ display => _('No sites') }] unless $coll->count;
55    
56                  warn "# intance $instance as ",$coll->count," sites\n";                  #warn "# intance $instance as ",$coll->count," sites\n";
57    
58                  my $vv = [];                  my $vv = [];
59                  while ( my $i = $coll->next ) {                  while ( my $i = $coll->next ) {
# Line 61  sub available_values { Line 61  sub available_values {
61                                  display => $i->naziv,                                  display => $i->naziv,
62                                  value => $i->site_id,                                  value => $i->site_id,
63                          };                          };
64                          warn $i->site_id;                          #warn "## added ",$i->site_id," to available values\n";
65                  }                  }
66                  warn "# $field vv = ",dump( $vv );                  #warn "# $field vv = ",dump( $vv );
67                  return $vv;                  return $vv;
68          } else {          } else {
69                  die "unknown field $field";                  die "unknown field $field";
Legend:
Removed from v.197  
changed lines
  Added in v.215
  ViewVC Help
Powered by ViewVC 1.1.26