my $value = join( ',', $input->param( $param ) );
C4::Context->set_preference( $pref, $value );
logaction( 'SYSTEMPREFERENCE', 'MODIFY', undef, $pref . " | " . $value );
}
_debug( "Setting $preference to $value" );
C4::Context->set_preference( $preference, $value );
logaction( 'SYSTEMPREFERENCE', 'MODIFY', undef, $preference . " | " . $value );
sub GetPreferences {
-