/[Arh]/lib/Arh/CurrentUser.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 /lib/Arh/CurrentUser.pm

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

revision 10 by dpavlin, Thu Nov 29 17:17:16 2007 UTC revision 11 by dpavlin, Thu Nov 29 19:04:56 2007 UTC
# Line 16  sub _init { Line 16  sub _init {
16          my $self = shift;          my $self = shift;
17          my %args = (@_);          my %args = (@_);
18    
19            #warn "## _init",dump(@_);
20    
21          if ( delete $args{'_bootstrap'} ) {          if ( delete $args{'_bootstrap'} ) {
22                  $self->is_bootstrap_user(1);                  $self->is_bootstrap_user(1);
23          } elsif( keys %args ) {          }
24            
25            if ( keys %args ) {
26                  my $u = Arh::Model::User->new;                  my $u = Arh::Model::User->new;
27                  $u->load_by_cols( %args );                  $u->load_by_cols( %args );
28                  if ( $u->id ) {                  if ( $u->id ) {
# Line 32  sub _init { Line 36  sub _init {
36          # be superuser          # be superuser
37          #$self->is_superuser(1);          #$self->is_superuser(1);
38    
39  }          #warn "## user_object = ",dump( $self->user_object );
   
40    
41    }
42    
43  1;  1;
Legend:
Removed from v.10  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26