oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lots of changes

Browse source
This commit is contained in:
Frank Dillon 2008-11-12 23:03:42 +00:00
parent 93df39d6f6
commit 615e0e3746
28 changed files with 2883 additions and 212 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Operation/Settings.pm
View file

@ -632,8 +632,8 @@ sub www_editSettings {
# Get fieldsets for avaiable account methods
my $accountConfigs = $session->config->get("account");
foreach my $accountKey (keys %{$accountConfigs}) {
my $account = $accountConfigs->{$accountKey};
foreach my $account (@{$accountConfigs}) {
#Create the instance
my $className = $account->{className};
@ -645,7 +645,7 @@ sub www_editSettings {
}
#Get the content of the settings form from the instance
my $settingsForm = $instance->editUserSettingsForm;
my $settingsForm = $instance->editSettingsForm;
#If editUserSettingsForm is empty, skip it
next if $settingsForm eq "";
@ -698,6 +698,22 @@ sub www_saveSettings {
}
}
# Save account pluggin settings
my $accountConfigs = $session->config->get("account");
foreach my $account (@{$accountConfigs}) {
#Create the instance
my $className = $account->{className};
my $instance = eval { WebGUI::Pluggable::instanciate($className,"new",[ $session ]) };
if ( my $e = WebGUI::Error->caught ) {
$session->log->warn("Could not instantiate account pluggin $className...skipping");
next;
}
#Save the settings
$instance->editSettingsFormSave;
}
### Handle special settings
# Reset login message seen numbers
if ( $session->form->get( 'showMessageOnLoginReset' ) ) {