From 060def081410b0dc94955581688444a632dc7968 Mon Sep 17 00:00:00 2001
From: TLINDEN <git@daemon.de>
Date: Fri, 10 Feb 2012 20:38:32 +0100
Subject: [PATCH] FIXED:          bin/note were missing. for whatever reason, I
 don't know.

---
 Changelog |  3 +++
 NOTEDB.pm |  2 +-
 VERSION   |  2 +-
 bin/note  | 17 ++++++++++-------
 4 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/Changelog b/Changelog
index e1e9f08..994562c 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,6 @@
+1.3.9:
+FIXED:		bin/note were missing. for whatever reason, I don't know.
+================================================================================
 1.3.8:
 ADDED:		New backend added: NOTEDB::pwsafe3, which adds support to store
 		notes in a Password Safe v3 database.
diff --git a/NOTEDB.pm b/NOTEDB.pm
index 6c0f91a..8c2854a 100644
--- a/NOTEDB.pm
+++ b/NOTEDB.pm
@@ -10,7 +10,7 @@ package NOTEDB;
 use Exporter ();
 use vars qw(@ISA @EXPORT $crypt_supported);
 
-$NOTEDB::VERSION = "1.32";
+$NOTEDB::VERSION = "1.33";
 
 BEGIN {
     # make sure, it works, otherwise encryption
diff --git a/VERSION b/VERSION
index e05cb33..d4c4950 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-1.3.8
+1.3.9
diff --git a/bin/note b/bin/note
index 217cd23..0c198ac 100755
--- a/bin/note
+++ b/bin/note
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # note - console notes management with database and encryption support.
-# Copyright (C) 1999-2009 Thomas Linden   (see README for details!)
+# Copyright (C) 1999-2012 Thomas Linden   (see README for details!)
 #
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License
@@ -140,7 +140,7 @@ $CONF 		= File::Spec->catfile($ENV{HOME}, ".noterc");
 $USER 		= getlogin || getpwuid($<);
 chomp $USER;
 $TOPIC 		= 1;
-$version 	= "1.3.6";
+$version 	= "1.3.9";
 $CurDepth 	= 1;		# the current depth inside the topic "directory" structure...
 $maxlen         = "auto";
 $timelen        = 22;
@@ -212,7 +212,7 @@ else {
 	      "longtopic|T!"	     => \$opt_T, # no arg
 	      "list|l:s"	     => \$opt_l, # string,  optional
 	      "longlist|L:s"	     => \$opt_L, # string,  optional
-	      "dump||Dump|D:s"       => \$opt_D, # string,  optional
+	      "dump|Dump|D:s"       => \$opt_D, # string,  optional
 	      "import|Import|I:s"    => \$opt_I, # string,  optional
 	      "overwrite|o!"	     => \$opt_o, # no arg
 	      "help|h|?!"	     => \$opt_h, # no arg
@@ -254,7 +254,7 @@ else {
     $number = $opt_e;
   }
   elsif ($opt_d) {
-    $mode = "delete";
+    $mode = "del";
     $number = $opt_d;
   }
   elsif ($opt_enc) {
@@ -780,9 +780,9 @@ sub new {
   }
 
 sub add_ticket {
-	my $note = shift;
+	my $orignote = shift;
 	if ($conf{addticket}) {
-	  my ($topic, $title, $rest) = split /\n/, $note, 3;
+	  my ($topic, $title, $rest) = split /\n/, $orignote, 3;
 	  my $note = "";
 	  if ($topic =~ /^\//) {
 	    # topic path, keep it
@@ -799,8 +799,11 @@ sub add_ticket {
 	    $title = "[" . ticket() . "] " . $title;
 	  }
 	  $note .= "$title\n$rest";
+	  return $note;
 	}
-	return $note;
+        else {
+	  return $orignote;
+        }
 }