added taglist to single pages

git-svn-id: svn://luxion/repos/WebCoso/trunk@322 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 11 insertions, 11 deletions

diff --git a/webcoso.pl b/webcoso.pl
index 3a788bb..c834769 100644
--- a/webcoso.pl
+++ b/webcoso.pl
@@ -114,30 +114,30 @@ my $NS='http://webcoso.thenautilus.net/';
 
 $xslt_proc->register_function($NS,'title-for',\&getTitleFor);
 
-{my $tags_file;
-sub setXMLTagsSource {$tags_file=shift}
+{my $tags_source;
+sub setXMLTagsSource {$tags_source=shift}
 sub getTagsXML {
     my $doc=XML::LibXML::Document->new();
-    return $doc unless defined $tags_file;
-    my $tagged=$fc->get($tags_file);
-    return $doc unless defined $tagged;
+    return $doc unless defined $tags_source;
 
-    my $de=$doc->createElemenNS($NS,'wc:tags');
+    warn "getTagsXML()\n";
+
+    my $de=$doc->createElementNS($NS,'wc:tags');
     $doc->setDocumentElement($de);
     my ($tagname,$doclist);
-    while (($tagname,$doclist)=each %$tagged) {
-        my $te=$doc->createElemenNS($NS,'wc:tag');
+    while (($tagname,$doclist)=each %$tags_source) {
+        my $te=$doc->createElementNS($NS,'wc:tag');
         $te->setAttribute('name',$tagname);
         $de->appendChild($te);
         my %docs;
         push @{$docs{dstUriFor($_)}},langOf($_) for @$doclist;
         my ($docurl,$langs);
         while (($docurl,$langs)=each %docs) {
-            my $dle=$doc->createElemenNS($NS,'wc:doc');
+            my $dle=$doc->createElementNS($NS,'wc:doc');
             $dle->setAttribute('uri',$docurl);
             $te->appendChild($dle);
             for my $lang (@$langs) {
-                my $le=$doc->createElemenNS($NS,'wc:lang');
+                my $le=$doc->createElementNS($NS,'wc:lang');
                 $le->appendTextNode($lang);
                 $dle->appendChild($le);
             }
@@ -225,7 +225,7 @@ sub du2html {
     my $xslt=file($deps->[-1])->parent->file('du2html.xsl');
     $xslt=$fc->get($xslt);
     if (@$deps>1) {
-        warn "tagging as $deps->[0]\n";
+        warn "xml tagging as $deps->[0]\n";
         setXMLTagsSource($fc->get($deps->[0]));
     }
     else {