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

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

revision 1 by dpavlin, Thu May 4 15:12:03 2006 UTC revision 15 by dpavlin, Fri May 26 10:01:16 2006 UTC
# Line 22  column email => Line 22  column email =>
22  column password =>,  column password =>,
23      type is 'text',      type is 'text',
24      label is 'Password',      label is 'Password',
25        is mandatory,
26      render_as 'password';      render_as 'password';
27    
28  package Transports::Model::User;  package Transports::Model::User;
# Line 29  use base qw/Transports::Record/; Line 30  use base qw/Transports::Record/;
30    
31  # Your model-specific methods go here.  # Your model-specific methods go here.
32    
33    =head2 password_is STRING
34    
35    Returns true if and only if the current user's password matches STRING
36    
37    =cut
38    
39    
40    sub password_is {
41            my $self = shift;
42            my $string = shift || return;
43            warn "password_is ", $self->_value('password'), " == $string\n";
44            return 1 if ($self->_value('password') eq $string);
45            return 0;
46    }
47    
48    =head2 password
49    
50    Never display a password
51    
52    =cut
53    
54    #sub password {
55    #       return undef;
56    #}
57    
58  1;  1;
59    
Legend:
Removed from v.1  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.26