X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FCGI.pm;h=e15e510f017edd512b27cb53426825844a524be4;hp=d9aceeb35eafd2dd627e503774b65caa60e0578b;hb=e6999b858367d9d83e0fa2c32cddfd31b4416486;hpb=3210a2b7d904e95b48ebbd84afa2bf1875544e8e diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm index d9aceeb..e15e510 100644 --- a/lib/Packages/CGI.pm +++ b/lib/Packages/CGI.pm @@ -35,7 +35,7 @@ sub note { } sub print_errors { return unless @fatal_errors || @errors; - print '
ERROR: $_
"; } @@ -43,7 +43,7 @@ sub print_errors { } sub print_debug { return unless $debug && @debug; - print ''; foreach (@debug) { print "$_\n"; @@ -52,24 +52,26 @@ sub print_debug { } sub print_hints { return unless @hints; - print ''; + print ''; foreach (@hints) { - print "'; } sub print_msgs { + print '$_
"; + print "$_
"; } print ''; foreach (@msgs) { print "'; } sub print_notes { foreach (@notes) { my ( $title, $note ) = @$_; - print '$_
"; } + print ''; + print ''; if ($note) { - print "$title
"; + print "$title
"; } else { $note = $title; }