marc template retrieval but fixes

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1550 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
index 1e5aab1..c11796c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -43,11 +43,16 @@ sub _load_marc_template {
 
        if(!defined( $marctemplates{$type} )) {
                if(!$conf) { $conf = OpenSRF::Utils::SettingsClient->new; }
+
                my $template = $conf->config_value(                                     
                        "apps", "open-ils.cat","app_settings", "marctemplates", $type );
+               warn "Opening template file $template\n";
+
                open( F, $template );
                my @xml = <F>;
+               close(F);
                $marctemplates{$type} = join('', @xml);
+
        }
 
        warn "Loaded MARC template XML:\n" . $marctemplates{$type} . "\n";