Fix copyright license statements to use the right old address for the FSF.

[koha_gimpoz] / cataloguing / value_builder / unimarc_field_100.pl

diff --git a/cataloguing/value_builder/unimarc_field_100.pl b/cataloguing/value_builder/unimarc_field_100.pl
index 80187f2..e930d70 100755 (executable)
--- a/cataloguing/value_builder/unimarc_field_100.pl
+++ b/cataloguing/value_builder/unimarc_field_100.pl
@@ -1,7 +1,5 @@
-
 #!/usr/bin/perl
 
-# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -24,6 +22,7 @@ use strict;
 use C4::Auth;
 use CGI;
 use C4::Context;
+use C4::Output;
 
 
 =head1
@@ -78,7 +77,7 @@ sub plugin {
             query         => $input,
             type          => "intranet",
             authnotrequired => 0,
-            flagsrequired   => { editcatalogue => 1 },
+            flagsrequired   => { editcatalogue => '*' },
             debug           => 1,
         }
     );
@@ -123,7 +122,7 @@ sub plugin {
         "f14"     => $f14,
         "f15$f15" => 1
     );
-    print $input->header( -type => 'utf-8', -cookie => $cookie ), $template->output;
+    output_html_with_http_headers $input, $cookie, $template->output;
 }
 
 1;