X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FCGI.pm;fp=lib%2FPackages%2FCGI.pm;h=cac499fbc45658ddcf32663f9b20fc46592b2d01;hp=e9d834cb16feffc43a17d2885e13457c7d4fb2ff;hb=08852aab550de858d4e4956ea357dbc3ae713a26;hpb=91edc66c5f872b41114dc61bdefc6d89c205a183 diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm index e9d834c..cac499f 100644 --- a/lib/Packages/CGI.pm +++ b/lib/Packages/CGI.pm @@ -2,15 +2,16 @@ package Packages::CGI; use Exporter; our @ISA = qw( Exporter ); -our @EXPORT = qw( fatal_error error hint debug msg - print_errors print_hints print_debug print_msgs ); +our @EXPORT = qw( fatal_error error hint debug msg note + print_errors print_hints print_debug print_msgs + print_notes ); our $debug = 0; -our (@fatal_errors, @errors, @debug, @msgs, @hints); +our (@fatal_errors, @errors, @debug, @msgs, @hints, @notes); sub reset { - @fatal_errors = @errors = @debug = @msgs = @hints = (); + @fatal_errors = @errors = @debug = @msgs = @hints = @notes = (); } sub fatal_error { @@ -29,6 +30,9 @@ sub debug { sub msg { push @msgs, $_[0]; } +sub notes { + push @notes, [ @_ ]; +} sub print_errors { return unless @fatal_errors || @errors; print '
$_
"; } } +sub print_notes { + foreach (@notes) { + my ( $title, $note ) = @$_; + my $str = ""; + + if ($note) { + $str .= "$note
"; + return $str; + } +} 1;