--- nsdl/prototypes/metadata_convert.pl	2002/05/11 20:20:32	1.2
+++ nsdl/prototypes/metadata_convert.pl	2002/05/11 23:22:49	1.4
@@ -44,12 +44,22 @@ END
 #http://www.dlib.vt.edu/projects/OAi/marcxml/marcxml.html
 #http://www.openarchives.org/OAI/openarchivesprotocol.html
 # ">
-#     xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
-#     xsi:schemaLocation="http://purl.org/dc/elements/1.1
-#     http://www.openarchives.org/OAI/1.1/dc.xsd">
+
+my $namespace='http://ExternalFunction/';
+my $func = sub {
+    my $text = shift;
+    return uc($text);
+};
+
+$tr->install_function($namespace, 'plain-text', $func);
+
+
 my $NSDL_metadata1=(<<END);
 <?xml version="1.0"?>
-<dc xmlns="http://purl.org/dc/elements/1.1/">
+<dc xmlns="http://purl.org/dc/elements/1.1/"
+     xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+     xsi:schemaLocation="http://purl.org/dc/elements/1.1
+     http://www.openarchives.org/OAI/1.1/dc.xsd">
 <title>The Cornell Law Quarterly</title>
 <date>1915-1916</date>
 <identifier>http://heinonline.org/HeinOnline/show.pl?
@@ -193,7 +203,10 @@ close(OUT);
 open(OUT,'>tmpn2l.xsl');
 print(OUT <<END);
 <?xml version="1.0"?> 
-<xsl:stylesheet xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
+<xsl:stylesheet
+  xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0"
+  xmlns:external="$namespace"
+>
 <xsl:template match="/">
 <loncapa>
 <xsl:text>
@@ -204,7 +217,16 @@ print(OUT <<END);
 </xsl:text>
 </xsl:template>
 <xsl:template match="dc:title">
-<title><xsl:value-of select="."/></title>
+<title>
+         <xsl:choose>
+           <xsl:when test="function-available('external:plain-text')">
+             <xsl:value-of select="external:plain-text(.)"/>
+           </xsl:when>
+           <xsl:otherwise>
+             Function external:plain-text() is not available!
+           </xsl:otherwise>
+         </xsl:choose>
+</title>
 <xsl:text>
 </xsl:text>
 </xsl:template>