implemented type of pv note

1 files changed, 5 insertions, 3 deletions

diff --git a/rhimport.pm b/rhimport.pm
index d9b1097..e0bc11d 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -330,10 +330,12 @@ sub delete_file
 sub pv_add_note
 {
   my ( $title, $text, $id, $date, $type ) = @_;
-  $type = 'n' if undef($type);
+  $type = 1 if undef($type);
+  # 0 -> Cancelation
+  # 1 -> Recommandation
+  # 2 -> Repitition
 
-  # TODO: implement type as soon pv supports this
-  my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date);
+  my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date, $type);
 
   my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle );
   $writer->autoflush(1);