1.1 --- a/l3-agent	Tue Jan 31 20:18:54 2006 +0200
     1.2 +++ b/l3-agent	Sat Feb 04 00:54:17 2006 +0200
     1.3 @@ -296,7 +296,7 @@
     1.4                  $cl{"hour"} = $7;
     1.5                  $cl{"min"} = $8;
     1.6                  $cl{"sec"} = $9;
     1.7 -                $cl{"fullprompt"} = $10;
     1.8 +                #$cl{"fullprompt"} = $10;
     1.9                  $cl{"prompt"} = $11;
    1.10                  $cl{"raw_cline"} = $12; 
    1.11  
    1.12 @@ -554,14 +554,14 @@
    1.13          for my $element (qw(
    1.14              prompt
    1.15              cline
    1.16 -            note
    1.17 -            note_title
    1.18              )) {
    1.19              next unless defined($cl->{"$element"});
    1.20              print OUT "<$element>";
    1.21              printq(\*OUT,$cl->{"$element"});
    1.22              print OUT "</$element>\n";
    1.23          }
    1.24 +            #note
    1.25 +            #note_title
    1.26          print OUT "<output>";
    1.27          printq(\*OUT,$output);
    1.28          print OUT "</output>\n";