0.14_02 commit
[bse.git] / site / cgi-bin / modules / SiteUser.pm
CommitLineData
589b789c
TC
1package SiteUser;
2use strict;
3# represents a registered user
4use Squirrel::Row;
5use vars qw/@ISA/;
6@ISA = qw/Squirrel::Row/;
7
8sub columns {
9 return qw/id userId password email keepAddress whenRegistered lastLogon
10 name1 name2 address city state postcode telephone facsimile
b19047a6
TC
11 country wantLetter confirmed confirmSecret waitingForConfirmation
12 textOnlyMail title organization referral otherReferral
15fb10f2 13 prompt otherPrompt profession otherProfession previousLogon/;
b19047a6
TC
14}
15
16sub removeSubscriptions {
17 my ($self) = @_;
18
19 SiteUsers->doSpecial('removeSubscriptions', $self->{id});
589b789c
TC
20}
21
531fb3bc
TC
22sub removeSubscription {
23 my ($self, $subid) = @_;
24
25 SiteUsers->doSpecial('removeSub', $self->{id}, $subid);
26}
27
589b789c 281;