This commit was manufactured by cvs2svn to create branch 'rel_1_0'.
author(no author) <(no author)@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 24 Jan 2007 03:09:20 +0000 (03:09 +0000)
committer(no author) <(no author)@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 24 Jan 2007 03:09:20 +0000 (03:09 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6811 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/support-scripts/marc_export [new file with mode: 0755]
Open-ILS/xul/staff_client/chrome/branding/locale/en-US/brand.dtd [new file with mode: 0644]
Open-ILS/xul/staff_client/chrome/branding/locale/en-US/brand.properties [new file with mode: 0644]

diff --git a/Open-ILS/src/support-scripts/marc_export b/Open-ILS/src/support-scripts/marc_export
new file mode 100755 (executable)
index 0000000..e7dda64
--- /dev/null
@@ -0,0 +1,87 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use OpenSRF::System;
+use OpenSRF::EX qw/:try/;
+use OpenSRF::AppSession;
+use OpenSRF::Utils::SettingsClient;
+use OpenILS::Application::AppUtils;
+use OpenILS::Utils::Fieldmapper;
+
+use MARC::Record;
+use MARC::File::XML;
+use UNIVERSAL::require;
+
+use Getopt::Long;
+
+my @formats = qw/USMARC UNIMARC XML/;
+
+my ($config,$format,$encoding,$help) = ('/openils/conf/bootstrap.conf','USMARC','MARC8');
+
+GetOptions(
+        'help'      => \$help,
+        'config=s'      => \$config,
+        'format=s'      => \$format,
+        'encoding=s'      => \$encoding,
+);
+
+if ($help) {
+       print <<"       HELP";
+Usage: $0 [options]
+ --help or -h          This screen.
+ --config or -c                Configuration file [/openils/conf/bootstrap.conf]
+ --format or -f                Output format (USMARC, UNIMARC, XML) [USMARC]
+ --encoding or -e      Output Encoding (UTF-8, ISO-8859-?, MARC8) [MARC8]
+
+Example:
+
+  cat list_of_ids | $0 > output_file
+
+       HELP
+       exit;
+}
+
+$format = uc($format);
+$encoding = uc($encoding);
+
+binmode(STDOUT, ':raw') if ($encoding ne 'UTF-8');
+binmode(STDOUT, ':utf8') if ($encoding eq 'UTF-8');
+
+if (!grep { $format eq $_ } @formats) {
+       die     "Please select a supported format.  ".
+               "Right now that means one of [".
+               join('|',@formats). "]\n";
+}
+
+if ($format ne 'XML') {
+       my $type = 'MARC::File::' . $format;
+       $type->require;
+}
+
+OpenSRF::System->bootstrap_client( config_file => $config );
+Fieldmapper->import(IDL => OpenSRF::Utils::SettingsClient->new->config_value("IDL"));
+
+my $ses = OpenSRF::AppSession->connect('open-ils.cstore');
+
+print <<HEADER if ($format eq 'XML');
+<?xml version="1.0" encoding="$encoding"?>
+<collection xmlns='http://www.loc.gov/MARC21/slim'>
+HEADER
+
+while ( my $i = <> ) {
+       my $bib = $ses->request( 'open-ils.cstore.direct.biblio.record_entry.retrieve', $i )->gather(1);
+
+       next unless $bib;
+
+       if ($format eq 'XML') {
+               print $bib->marc . "\n";
+       } else {
+               print MARC::Record->new_from_xml( $bib->marc, $encoding, $format )->as_usmarc;
+       }
+}
+
+print "</collection>\n" if ($format eq 'XML');
+
+$ses->disconnect;
+
diff --git a/Open-ILS/xul/staff_client/chrome/branding/locale/en-US/brand.dtd b/Open-ILS/xul/staff_client/chrome/branding/locale/en-US/brand.dtd
new file mode 100644 (file)
index 0000000..7ea9b3b
--- /dev/null
@@ -0,0 +1,6 @@
+<!ENTITY  brandShortName        "Evergreen">
+<!ENTITY  brandFullName         "Evergreen">            
+<!ENTITY  vendorShortName       "open-ils.org">
+
+<!-- LOCALIZATION NOTE (releaseBaseURL): The about: page appends __MOZ_APP_VERSION__.html, e.g. 2.0.html -->
+<!ENTITY  releaseBaseURL        "http://open-ils.org/cvs/">
diff --git a/Open-ILS/xul/staff_client/chrome/branding/locale/en-US/brand.properties b/Open-ILS/xul/staff_client/chrome/branding/locale/en-US/brand.properties
new file mode 100644 (file)
index 0000000..6f28d52
--- /dev/null
@@ -0,0 +1,3 @@
+brandShortName=Evergreen
+brandFullName=Evergreen
+vendorShortName=open-ils.org