scip/note
1
0
Fork 0
mirror of https://codeberg.org/scip/note.git synced 2025-12-17 04:31:02 +01:00
Code Issues Packages Projects Releases Wiki Activity

FIXED: there was a bug in the search expression, use now \Q and \E.

Browse Source 
ADDED:          --config <file> allows one to use another config than the default.
This commit is contained in:
TLINDEN
2012-02-10 20:15:52 +01:00
parent 7d308cde40
commit 0c293e4b81
6 changed files with 42 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
NOTEDB/dbm.pm
View File

@@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: dbm.pm,v 1.1 2000/05/14 00:55:28 thomas Exp thomas $
# $Id: dbm.pm,v 1.2 2000/06/25 19:51:11 scip Exp scip $
# Perl module for note
# DBM database backend. see docu: perldoc NOTEDB::dbm
#
@@ -107,7 +107,7 @@ sub get_search
my($num, $note, $date, %res);
foreach $num (sort {$a <=> $b} keys %date) {
if (ude($note{$num}) =~ /$searchstring/i) {
if (ude($note{$num}) =~ /\Q$searchstring\E/i) {
$res{$num}->{'note'} = ude($note{$num});
$res{$num}->{'date'} = ude($date{$num});
}