+sub set_options {
+ my $this = shift();
+
+ foreach my $key (sort keys %{ $this->{options} }) {
+ my $value = $this->{options}->{$key};
+ $value = "" if !defined $value;
+ $this->conn()->log("irspy_debug", "$this setting option '$key' -> ",
+ defined $value ? "'$value'" : "undefined");
+ $this->{options}->{$key} = $this->conn()->option($key, $value);
+ #Net::Z3950::ZOOM::connection_option_set($this->conn()->_conn(), $key, $value);
+ }
+}
+