diff options
| -rwxr-xr-x | rhimport-zf | 4 | ||||
| -rw-r--r-- | rhimport.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/rhimport-zf b/rhimport-zf index 963ef7e..24c7ad7 100755 --- a/rhimport-zf +++ b/rhimport-zf @@ -125,9 +125,9 @@ for my $entry ($feed->entries) { if($#ARGV >= 0 && $ARGV[0] eq 'nopv') { print "not adding note to PV for regular entry - only for rebroadcast\n"; } else { - rhimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", @broadcast_day), "1"); + rhimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", @broadcast_day), "1", 1); } - rhimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", @rebroadcast_day), "2") unless $dow == 5; + rhimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", @rebroadcast_day), "2", 0) unless $dow == 5; print "\n"; unlink($NOTE_FILE); diff --git a/rhimport.pm b/rhimport.pm index 669a2b1..b8823ba 100644 --- a/rhimport.pm +++ b/rhimport.pm @@ -342,8 +342,8 @@ sub delete_file sub pv_add_note { - my ( $title, $text, $id, $date, $type ) = @_; - my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date, $type); + my ( $title, $text, $id, $date, $type, $index ) = @_; + my @script = ('/usr/bin/ssh', 'root@intranet', 'addnote', $id, $date, $type, $index ); my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle ); $writer->autoflush(1); |