/[transports]/trunk/lib/Transports/Bootstrap.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 /trunk/lib/Transports/Bootstrap.pm

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

revision 44 by dpavlin, Fri May 26 22:28:07 2006 UTC revision 45 by dpavlin, Tue May 30 14:34:58 2006 UTC
# Line 58  sub run { Line 58  sub run {
58                  );                  );
59          }          }
60    
61            my $tc1 = Transports::Model::TransportClass->new(current_user => $system_user);
62            $tc1->create(
63                    name => 'Default',
64            );
65    
66            my $tc2 = Transports::Model::TransportClass->new(current_user => $system_user);
67            $tc2->create(
68                    name => 'Upgrade',
69            );
70    
71          foreach my $i ( 1 ... 7 ) {          foreach my $i ( 1 ... 7 ) {
72                  my $t = Transports::Model::Transport->new(current_user => $system_user);                  my $t = Transports::Model::Transport->new(current_user => $system_user);
73                  $t->create(                  $t->create(
74                            class => $i % 4 == 0 ? $tc2 : $tc1,
75                          source => $s->{ $i % 5 },                          source => $s->{ $i % 5 },
76                          destination => $d->{ $i % 2 },                          destination => $d->{ $i % 2 },
77                          request_nr => $i,                          request_nr => $i,
Legend:
Removed from v.44  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26