/[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 89 by dpavlin, Thu Jun 15 22:08:07 2006 UTC revision 90 by dpavlin, Wed Jun 21 13:06:11 2006 UTC
# Line 133  sub validate_request_nr { Line 133  sub validate_request_nr {
133          my $self = shift;          my $self = shift;
134          my $nr = shift;          my $nr = shift;
135    
136            return (0, 'Request number is required!') unless ($nr);
137    
138          return (0, 'Request number should be number!') unless ($nr =~ m#^\d+$#);          return (0, 'Request number should be number!') unless ($nr =~ m#^\d+$#);
139    
140          return (1, 'OK');          return (1, 'OK');
Legend:
Removed from v.89  
changed lines
  Added in v.90
  ViewVC Help
Powered by ViewVC 1.1.26