From 3e6bfdd3f55497dec6b16be893c8e59b3c7e0211 Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 15 Sep 2001 19:25:40 +0000 Subject: [PATCH] make unset/logininfo not reset back to 1 after login --- Changes | 3 +++ perl/DXUser.pm | 5 +---- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Changes b/Changes index cf77e2f8..344b0574 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +15Sep01======================================================================= +1. released 1.48 +2. found 1st bug, fixed unset/logininfo reseting itself after logout 14Sep01======================================================================= 1. added the start of script files on login/startup. You can now add commands (for example to set variables) to a file called diff --git a/perl/DXUser.pm b/perl/DXUser.pm index cbedad41..e65dd922 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -527,10 +527,7 @@ sub wantann_talk sub wantlogininfo { - my $self = shift; - my $n = shift; - $self->{wantlogininfo} = $n if $n; - return exists $self->{wantlogininfo} ? $self->{wantlogininfo} : 0; + return _want('logininfo', @_); } sub is_node -- 2.43.0