/[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 235 by dpavlin, Fri Jun 20 20:55:19 2008 UTC revision 236 by dpavlin, Sun Sep 7 21:22:10 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 51  sub available_values { Line 51  sub available_values {
51                  my $coll = A3C::Model::StrixSiteCollection->new;                  my $coll = A3C::Model::StrixSiteCollection->new;
52                  $coll->limit( column => 'instance', value => $instance );                  $coll->limit( column => 'instance', value => $instance );
53    
54                    if ( $coll->count == 0 ) {
55                            warn "SYNC sites for $instance\n";
56                            Strix::Import->sites( $instance );
57                            # FIXME re-run query?
58                            $coll = A3C::Model::StrixSiteCollection->new;
59                            $coll->limit( column => 'instance', value => $instance );
60                    }
61    
62                  return [{ display => _('No sites') }] unless $coll->count;                  return [{ display => _('No sites') }] unless $coll->count;
63    
64                  #warn "# intance $instance as ",$coll->count," sites\n";                  #warn "# intance $instance as ",$coll->count," sites\n";
Legend:
Removed from v.235  
changed lines
  Added in v.236
  ViewVC Help
Powered by ViewVC 1.1.26