7 use Apache::Const -compile => qw(OK REDIRECT :log);
8 use APR::Const -compile => qw(:error SUCCESS);
9 use Apache::RequestRec ();
10 use Apache::RequestIO ();
11 use Apache::RequestUtil;
14 use Template qw(:template);
16 use OpenSRF::EX qw(:try);
22 print "Content-type: text/xml; charset=utf-8\n\n";
24 my $template = Template->new( {
28 PLUGIN_BASE => 'OpenILS::Template::Plugin',
29 INCLUDE_PATH => ['/pines/cvs/ILS/Open-ILS/src/extras'],
37 if( ! $template->process( 'opensearch.ttk' ) ) {
38 warn "Error processing template opensearch.ttk\n";
39 warn "Error Occured: " . $template->error();
40 my $err = $template->error();
41 $err =~ s/\n/\<br\/\>/g;
42 print "<br><b>Unable to process template:<br/><br/> " . $err . "!!!</b>";
47 warn "Error processing template opensearch.ttk: $e - $@ \n";
48 print "<center><br/><br/><b>Error<br/><br/> $e <br/><br/> $@ </b><br/></center>";