/[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 24 by dpavlin, Fri May 26 18:35:08 2006 UTC revision 25 by dpavlin, Fri May 26 19:15:32 2006 UTC
# Line 62  Create new transport and fill in C<creat Line 62  Create new transport and fill in C<creat
62    
63  =cut  =cut
64    
65  sub x_create {  sub create {
66          my $self = shift;          my $self = shift;
67          my %args = (@_);          my %args = (@_);
68    
69            my $user = $self->current_user ? $self->current_user->user_object : undef;
70    
71            return unless ($user);
72    
73  #       my $now  = DateTime->now();  #       my $now  = DateTime->now();
74  #       $args{'updated'} = $now->ymd . " " . $now->hms;  #       $args{'updated'} = $now->ymd . " " . $now->hms;
75          $args{'created_by'} = ( $self->current_user ? $self->current_user->user_object : undef );          $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.24  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.26