3 files changed, 6 insertions, 4 deletions
diff --git a/data/doc/sisu/CHANGELOG_v4 b/data/doc/sisu/CHANGELOG_v4
index a1e4cbfd..63339a55 100644
--- a/data/doc/sisu/CHANGELOG_v4
+++ b/data/doc/sisu/CHANGELOG_v4
@@ -28,6 +28,8 @@ http://www.jus.uio.no/sisu/pkg/src/sisu_4.0.14.orig.tar.xz
   sisu_4.0.14.orig.tar.xz
   sisu_4.0.14-1.dsc
 
+* v4: harvest, authors, topics, terminal info
+
 %% 4.0.13.orig.tar.xz (2013-03-13:10/3)
 http://sources.sisudoc.org/gitweb/?p=code/sisu.git;a=shortlog;h=refs/tags/sisu_4.0.13
 http://sources.sisudoc.org/gitweb/?p=code/sisu.git;a=shortlog;h=refs/tags/debian/sisu_4.0.13-1
diff --git a/lib/sisu/v4/harvest_authors.rb b/lib/sisu/v4/harvest_authors.rb
index 4a11b2ee..80aee266 100644
--- a/lib/sisu/v4/harvest_authors.rb
+++ b/lib/sisu/v4/harvest_authors.rb
@@ -69,7 +69,6 @@ module SiSU_HarvestAuthors
       @file_list=opt.files
     end
     def songsheet
-      puts 'authors:'
       idx_array={}
       @opt.f_pths.each do |y|
         lang_hash_file_array={}
@@ -198,7 +197,8 @@ module SiSU_HarvestAuthors
           file="#{harvest_pth}/authors.#{lng}.html"
         end
         FileUtils::mkdir_p(harvest_pth) unless FileTest.directory?(harvest_pth)
-        puts "file://#{file}"
+        fileinfo=(@opt.cmd =~/[vVM]/) ? ("file://#{file}") : ''
+        SiSU_Screen::Ansi.new(@opt.cmd,"harvest authors (#{@opt.files.length} files)",fileinfo).dark_grey_title_hi unless @opt.cmd =~/q/
         @output[lng][:html]=File.new(file,'w')
       end
     end
diff --git a/lib/sisu/v4/harvest_topics.rb b/lib/sisu/v4/harvest_topics.rb
index 0397847e..fda71e7c 100644
--- a/lib/sisu/v4/harvest_topics.rb
+++ b/lib/sisu/v4/harvest_topics.rb
@@ -71,7 +71,6 @@ module SiSU_HarvestTopics
       @file_list=opt.files
     end
     def songsheet
-      puts 'topics:'
       idx_array={}
       @opt.f_pths.each do |y|
         lang_hash_file_array={}
@@ -473,7 +472,8 @@ module SiSU_HarvestTopics
           file="#{harvest_pth}/topics.#{lng}.html"
         end
         FileUtils::mkdir_p(harvest_pth) unless FileTest.directory?(harvest_pth)
-        puts "file://#{file}"
+        fileinfo=(@opt.cmd =~/[vVM]/) ? ("file://#{file}") : ''
+        SiSU_Screen::Ansi.new(@opt.cmd,"harvest topics(#{@opt.files.length} files)",fileinfo).dark_grey_title_hi unless @opt.cmd =~/q/
         @output[lng][:html]=File.new(file,'w')
         if @opt.cmd.inspect =~/[M]/
           @output[lng][:html_mnt]=File.new("#{@env.path.pwd}/topics.html",'w')