X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FCGI.pm;h=d9aceeb35eafd2dd627e503774b65caa60e0578b;hp=b2b261db705b7c009b9cb62c2534b2c3ed4039a7;hb=3210a2b7d904e95b48ebbd84afa2bf1875544e8e;hpb=dc9512b1309f4c8c6bd1171b543183e8ac8b2115 diff --git a/lib/Packages/CGI.pm b/lib/Packages/CGI.pm index b2b261d..d9aceeb 100644 --- a/lib/Packages/CGI.pm +++ b/lib/Packages/CGI.pm @@ -31,9 +31,6 @@ sub msg { push @msgs, $_[0]; } sub note { - push @notes, $_[0]; -} -sub notes { push @notes, [ @_ ]; } sub print_errors { @@ -69,15 +66,14 @@ sub print_msgs { sub print_notes { foreach (@notes) { my ( $title, $note ) = @$_; - my $str = ""; + print '
'; if ($note) { - $str .= "

$title

"; + print "

$title

"; } else { $note = $title; } - $str .= "

$note

"; - return $str; + print "

$note

"; } }