-
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
use C4::Auth;
use CGI;
use C4::Context;
+use C4::Output;
=head1
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { editcatalogue => 1 },
+ flagsrequired => { editcatalogue => '*' },
debug => 1,
}
);
"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;