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

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

revision 26 by dpavlin, Fri May 26 19:15:32 2006 UTC revision 27 by dpavlin, Fri May 26 21:21:25 2006 UTC
# Line 10  use Jifty::DBI::Schema; Line 10  use Jifty::DBI::Schema;
10  column date =>  column date =>
11          type is 'timestamp',          type is 'timestamp',
12          label is 'Date',          label is 'Date',
         is immutable,  
13          render_as 'unrendered',          render_as 'unrendered',
         default is 'now()',  
14          since '0.0.1';          since '0.0.1';
15    
16  column source =>  column source =>
# Line 53  use base qw/Transports::Record/; Line 51  use base qw/Transports::Record/;
51  use Transports::Model::Source;  use Transports::Model::Source;
52  use Transports::Model::Destination;  use Transports::Model::Destination;
53  use Transports::Model::User;  use Transports::Model::User;
54    use DateTime;
55    
56  # Your model-specific methods go here.  # Your model-specific methods go here.
57    
58  =head2 create  =head2 create
59    
60  Create new transport and fill in C<created_by>.  Create new transport and fill-in C<date> and C<created_by>.
61    
62  =cut  =cut
63    
# Line 66  sub create { Line 65  sub create {
65          my $self = shift;          my $self = shift;
66          my %args = (@_);          my %args = (@_);
67    
68          my $user = $self->current_user ? $self->current_user->user_object : undef;          my $now  = DateTime->now();
69            $args{'date'} = $now->ymd . " " . $now->hms;
70    
71          return unless ($user);          if (! $args{created_by}) {
72                    warn 'need $self->current_user' unless ($self->current_user);
73                    $args{created_by} = $self->current_user->user_object;
74            }
75    
 #       my $now  = DateTime->now();  
 #       $args{'updated'} = $now->ymd . " " . $now->hms;  
         $args{'created_by'} = $user;  
76          my ($id) = $self->SUPER::create(%args);          my ($id) = $self->SUPER::create(%args);
77          return ($id);          return ($id);
78  }  }
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.26