more fixes to subscription prefs
parent
d366a7bbb5
commit
5ed773c643
|
@ -6,7 +6,6 @@ use strict;
|
||||||
use IkiWiki 3.00;
|
use IkiWiki 3.00;
|
||||||
|
|
||||||
sub import {
|
sub import {
|
||||||
hook(type => "formbuilder_setup", id => "notifyemail", call => \&formbuilder_setup);
|
|
||||||
hook(type => "formbuilder", id => "notifyemail", call => \&formbuilder);
|
hook(type => "formbuilder", id => "notifyemail", call => \&formbuilder);
|
||||||
hook(type => "getsetup", id => "notifyemail", call => \&getsetup);
|
hook(type => "getsetup", id => "notifyemail", call => \&getsetup);
|
||||||
hook(type => "changes", id => "notifyemail", call => \¬ify);
|
hook(type => "changes", id => "notifyemail", call => \¬ify);
|
||||||
|
@ -20,28 +19,23 @@ sub getsetup () {
|
||||||
},
|
},
|
||||||
}
|
}
|
||||||
|
|
||||||
sub formbuilder_setup (@) {
|
sub formbuilder (@) {
|
||||||
my %params=@_;
|
my %params=@_;
|
||||||
|
|
||||||
my $form=$params{form};
|
my $form=$params{form};
|
||||||
return unless $form->title eq "preferences";
|
return unless $form->title eq "preferences";
|
||||||
my $session=$params{session};
|
my $session=$params{session};
|
||||||
|
my $username=$session->param("name");
|
||||||
$form->field(name => "subscriptions", size => 50,
|
$form->field(name => "subscriptions", size => 50,
|
||||||
fieldset => "preferences",
|
fieldset => "preferences",
|
||||||
comment => "(".htmllink("", "", "ikiwiki/PageSpec", noimageinline => 1).")");
|
comment => "(".htmllink("", "", "ikiwiki/PageSpec", noimageinline => 1).")");
|
||||||
if (! $form->submitted) {
|
if (! $form->submitted) {
|
||||||
$form->field(name => "subscriptions", force => 1,
|
$form->field(name => "subscriptions", force => 1,
|
||||||
value => getsubscriptions($session->param("name")));
|
value => getsubscriptions($username));
|
||||||
|
}
|
||||||
|
elsif ($form->submitted eq "Save Preferences" && $form->validate &&
|
||||||
|
defined $form->field("subscriptions")) {
|
||||||
|
setsubscriptions($username, $form->field('subscriptions'));
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
|
||||||
sub formbuilder (@) {
|
|
||||||
my %params=@_;
|
|
||||||
my $form=$params{form};
|
|
||||||
return unless $form->title eq "preferences" &&
|
|
||||||
$form->submitted eq "Save Preferences" && $form->validate &&
|
|
||||||
defined $form->field("subscriptions");
|
|
||||||
setsubscriptions($form->field('name'), $form->field('subscriptions'));
|
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getsubscriptions ($) {
|
sub getsubscriptions ($) {
|
||||||
|
|
Loading…
Reference in New Issue