diff options
author | Christian Pointner <equinox@helsinki.at> | 2012-02-17 17:44:49 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2012-02-17 17:44:49 (GMT) |
commit | bd0d8a26d9837b7bb71740856ebcb6df1a84d226 (patch) | |
tree | eb41ba44e768c0f3ed107d68254fa420ef59a206 /rhimport.pm | |
parent | e08dbd3ddb76b947554fde1708edb79eb0bface1 (diff) |
implemented type of pv note
Diffstat (limited to 'rhimport.pm')
-rw-r--r-- | rhimport.pm | 8 |
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); |