diff options
| -rw-r--r-- | rhimport.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rhimport.pm b/rhimport.pm index b8823ba..fa816e5 100644 --- a/rhimport.pm +++ b/rhimport.pm @@ -343,7 +343,8 @@ sub delete_file sub pv_add_note { my ( $title, $text, $id, $date, $type, $index ) = @_; - my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date, $type, $index ); + my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date, $type); + push(@script , $index) unless (!defined $index); my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle ); $writer->autoflush(1); |