X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=licom.cgi;h=59eddd66fb65a04bcd2e978a6bb5adf4601cadaa;hb=297ce7fe28302141e53fb85c12ccc1db65ff59d7;hp=80239b50a0de8339e607f8e962520452abca39bc;hpb=efe4485ed983d6573813abf54fe6ddd9e855434b;p=licom.git diff --git a/licom.cgi b/licom.cgi index 80239b5..59eddd6 100755 --- a/licom.cgi +++ b/licom.cgi @@ -44,6 +44,8 @@ our %Actions = save => [\&html_start, \&action_save, \&html_end], search => [\&html_start, \&action_search, \&html_end], verify => [\&html_start, \&action_verify, \&html_end], + delete => [\&html_start, \&action_ask_del, \&html_end], + expunge => [\&html_start, \&action_do_del, \&html_end], vcard => \&action_vcard ); @@ -322,6 +324,7 @@ EOF [Verify] [vCard] [Edit] + [Delete] EOF @@ -479,7 +482,7 @@ EOF my $print = defined ($FieldNames{$field}) ? $FieldNames{$field} : $field; my @values = @{$contacts->{$field}}; - next if (!$UserID and $field eq 'group'); + next if ($field eq 'group'); push (@values, ''); @@ -496,6 +499,31 @@ EOF } } + if ($UserID) + { + my %c_groups = map { $_ => 1 } (@{$contacts->{'group'}}); + my %a_groups = (); + my @a_persons = LiCoM::Person->search (); + + for (@a_persons) + { + $a_groups{$_} = 1 for ($_->get ('group')); + } + + print "\t\t\t