Skip to content
Snippets Groups Projects
Commit 07c3a926 authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

remove .note from uuid

parent 50d84c17
No related branches found
No related tags found
No related merge requests found
...@@ -28,7 +28,7 @@ Refresh table of contents file. ...@@ -28,7 +28,7 @@ Refresh table of contents file.
Find notes matching given pattern. If option -e is given, open these notes. Find notes matching given pattern. If option -e is given, open these notes.
=head2 show =head2 show <note-id>
=head2 diff =head2 diff
...@@ -179,6 +179,8 @@ sub find_note ...@@ -179,6 +179,8 @@ sub find_note
my %uuid; my %uuid;
foreach my $pattern (@_) foreach my $pattern (@_)
{ {
$pattern =~ s#\.note$## if ($where eq 'uuid');
my @res= $toc->find ($pattern, $where); my @res= $toc->find ($pattern, $where);
foreach my $res (@res) { $uuid{$res->{'uuid'}}= $res; } # TODO: count hits foreach my $res (@res) { $uuid{$res->{'uuid'}}= $res; } # TODO: count hits
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please to comment