Additional translations
[koha_gimpoz] / boraccount.pl
index a7ab514..b30ef5d 100755 (executable)
@@ -26,6 +26,7 @@
 use strict;
 use C4::Auth;
 use C4::Output;
+use C4::Interface::CGI::Output;
 use CGI;
 use C4::Search;
 use HTML::Template;
@@ -71,12 +72,11 @@ for (my $i=0;$i<$numaccts;$i++){
   push(@accountrows, \%row);
 }
 
-$template->param( startmenumember => join('', startmenu('member')),
-                        endmenumember   => join('', endmenu('member')),
+$template->param(
                        firstname       => $data->{'firstname'},
                        surname         => $data->{'surname'},
                        bornum          => $bornum,
                        total           => $total,
                        accounts        => \@accountrows );
 
-print $input->header(-cookie => $cookie),$template->output;
+output_html_with_http_headers $input, $cookie, $template->output;