diff options
author | Thierry Vignaud <tv@mandriva.org> | 2009-10-01 11:32:21 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2009-10-01 11:32:21 +0000 |
commit | 150a939cfe47d4f4b351f284367be73febc1a740 (patch) | |
tree | ffcec9f8494b0ec63ae1a89234926cf2acdeeafa /rpmdrake | |
parent | 5be8ced0798f549f7c974d156b821afa9c9c233f (diff) | |
download | rpmdrake-150a939cfe47d4f4b351f284367be73febc1a740.tar rpmdrake-150a939cfe47d4f4b351f284367be73febc1a740.tar.gz rpmdrake-150a939cfe47d4f4b351f284367be73febc1a740.tar.bz2 rpmdrake-150a939cfe47d4f4b351f284367be73febc1a740.tar.xz rpmdrake-150a939cfe47d4f4b351f284367be73febc1a740.zip |
(do_search) enable to disable use of regular expression (default is: disabled)
Diffstat (limited to 'rpmdrake')
-rwxr-xr-x | rpmdrake | 11 |
1 files changed, 10 insertions, 1 deletions
@@ -56,6 +56,9 @@ my %elems; sub do_search($$$$$$$) { my ($find_entry, $tree, $tree_model, $options, $current_search_type, $urpm, $pkgs) = @_; my $entry = $find_entry->get_text or return; + if (!$use_regexp->[0]) { + $entry = quotemeta $entry; + } # remove leading/trailing spacing when pasting: if ($entry !~ /\S\s\S/) { # if spacing in middle, likely a string search in description @@ -523,6 +526,7 @@ sub run_treeview_dialog { my $auto_string = N("/_Options") . N("/_Select dependencies without asking"); my $noclean_string = N("/_Options") . "/" . N("Clear download cache after successfull install"); my $updates_string = N("/_Options") . N("/_Compute updates on startup"); + my $regexp_search_string = N("/_Options") . "/" . N("Use _regular expressions in searches"); my ($menu, $factory) = create_factory_menu( $w->{real_window}, [ N("/_File"), undef, undef, undef, '<Branch>' ], @@ -566,9 +570,13 @@ sub run_treeview_dialog { [ N("/_Options") . N("/_Show automatically selected packages"), undef, sub { $dont_show_selections->[0] = !$checkbox_show_autoselect->get_active; }, undef, '<CheckItem>' ], + [ $updates_string, undef, sub { $compute_updates->[0] = $check_boxes{$updates_string}->get_active; }, undef, '<CheckItem>' ], + [ $regexp_search_string, undef, sub { + $use_regexp->[0] = $check_boxes{$regexp_search_string}->get_active; + }, undef, '<CheckItem>' ], ), [ N("/_View"), undef, undef, undef, '<Branch>' ], (map { @@ -618,7 +626,8 @@ sub run_treeview_dialog { %check_boxes = map { $_ => $factory->get_widget("<main>" . $get_path->($_)); - } ($auto_string, $noclean_string, $updates_string); + } ($auto_string, $noclean_string, $updates_string, $regexp_search_string); + $check_boxes{$regexp_search_string}->set_active($use_regexp->[0]); if (!$>) { $check_boxes{$auto_string}->set_active($::rpmdrake_options{auto}); $check_boxes{$updates_string}->set_active($compute_updates->[0]); |