/[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 69 by dpavlin, Sun Jun 11 14:23:37 2006 UTC revision 85 by dpavlin, Thu Jun 15 22:08:07 2006 UTC
# Line 74  column comment => Line 74  column comment =>
74          render_as 'textarea',          render_as 'textarea',
75          since '0.0.12';          since '0.0.12';
76    
77    column landscape =>
78            refers_to Transports::Model::Landscape,
79            label is 'Part of landscape',
80            since '0.0.15';
81    
82  package Transports::Model::Transport;  package Transports::Model::Transport;
83  use base qw/Transports::Record/;  use base qw/Transports::Record/;
84  use DateTime;  use DateTime;
# Line 120  sub current_user_can { Line 125  sub current_user_can {
125      }      }
126  }  }
127    
128    =head2 validate_request_nr
129    
130    =cut
131    
132    sub validate_request_nr {
133            my $self = shift;
134            my $nr = shift;
135    
136            return (0, 'Request number should be number!') unless ($nr =~ m#^\d+$#);
137    
138            return (1, 'OK');
139    }
140    
141  1;  1;
142    
Legend:
Removed from v.69  
changed lines
  Added in v.85
  ViewVC Help
Powered by ViewVC 1.1.26