1.1 --- a/l3-agent	Fri Feb 24 08:49:31 2006 +0200
     1.2 +++ b/l3-agent	Fri Feb 24 18:43:35 2006 +0200
     1.3 @@ -127,7 +127,6 @@
     1.4              next if ($diff->{"local_session_id"} 
     1.5                      && $cl->{"local_session_id"} 
     1.6                      && ($cl->{"local_session_id"} ne $diff->{"local_session_id"}));
     1.7 -            print "diff of my session found\n";
     1.8  
     1.9              next if ($diff->{"day"} && $cl->{"day"} && ($cl->{"day"} ne $diff->{"day"}));
    1.10  
    1.11 @@ -292,7 +291,8 @@
    1.12  
    1.13          $file =~ m@.*/(.*?)-.*@;
    1.14  
    1.15 -        print "\n+- processing file $file\n" if $Config{"verbose"} =~/y/;
    1.16 +        print "\n+- processing file $file\n|   " 
    1.17 +            if $Config{"verbose"} =~/y/;
    1.18  
    1.19          my $tty = $1;
    1.20          my $first_pass = 1;
    1.21 @@ -485,7 +485,7 @@
    1.22  
    1.23  
    1.24                  if ($Config{verbose} =~ /y/i) {
    1.25 -                    print "\n|   " if $commandlines_loaded % 15 == 1;
    1.26 +                    print "\n|   " if $commandlines_loaded % 5 == 1;
    1.27                      print " ",$cl{"last_command"};
    1.28                  }
    1.29  

     2.1 --- a/l3-frontend	Fri Feb 24 08:49:31 2006 +0200
     2.2 +++ b/l3-frontend	Fri Feb 24 18:43:35 2006 +0200
     2.3 @@ -689,7 +689,7 @@
     2.4  
     2.5          my $cline;
     2.6          $prompt_hint = join ("
", map("$_=$cl->{$_}", grep (!/^output$/, sort(keys(%{$cl})))));
     2.7 -        $cline = "<span title='$prompt_hint'>".$cl->{"prompt"}."</prompt>".$cl->{"cline"};
     2.8 +        $cline = "<span title='$prompt_hint'>".$cl->{"prompt"}."</span>".$cl->{"cline"};
     2.9          $cline =~ s/\n//;
    2.10  
    2.11          $cline = "<span title='$hint' class='with_hint'>$cline</span>" if $hint;