Parent Directory | Revision Log | Patch
revision 27 by dpavlin, Fri May 26 21:21:25 2006 UTC | revision 28 by dpavlin, Fri May 26 22:28:07 2006 UTC | |
---|---|---|
# | Line 37 sub run { | Line 37 sub run { |
37 | $s->{$i}->create( | $s->{$i}->create( |
38 | name => 'SRC/' . ($i + 1), | name => 'SRC/' . ($i + 1), |
39 | ); | ); |
40 | ||
41 | Transports::Model::UserOnSource->new(current_user => $system_user)->create( | |
42 | user_on => $u1, | |
43 | source => $s->{$i}, | |
44 | ); | |
45 | ||
46 | Transports::Model::UserOnSource->new(current_user => $system_user)->create( | |
47 | user_on => $u2, | |
48 | source => $s->{$i}, | |
49 | ) if ($i % 2 == 0); | |
50 | } | } |
51 | ||
52 | my $d; | my $d; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |