Changeset 10201

Timestamp:

2005-07-01T15:17:47+12:00 (19 years ago)

Author:

kjdon

Message:

small changes for writing out gsf:templates. needs LOTS more work

File:

• trunk/gsdl3/bin/script/convert_coll_from_gs2.pl (modified) (4 diffs)

trunk/gsdl3/bin/script/convert_coll_from_gs2.pl

@@ -208 +208 @@
     
     $collwriter->startTag('format');
-    write_format($collwriter, $format->{'SearchVList'});
+    write_format($collwriter, $format->{'SearchVList'}, "document");
     $collwriter->endTag('format');
     }
@@ -309 +309 @@
         $dlist = "DateList";
         }
+        # need to work out how to split into classifier and document
         if (defined $format->{$vlist} || defined $format->{"VList"}|| defined $format->{$hlist} || defined $format->{"HList"} || defined $format->{$dlist}) {
         $collwriter->startTag('format');
         if (defined $format->{$vlist}) {
-            write_format($collwriter, $format->{$vlist});
+            write_format($collwriter, $format->{$vlist}, "document");
         } elsif (defined $format->{"VList"}) {
             # use VList if no specific one
-            write_format($collwriter, $format->{"VList"});
+            write_format($collwriter, $format->{"VList"}, "document");
         }
         if (defined $format->{$hlist}) {
-            write_format($collwriter, $format->{$hlist});
+            write_format($collwriter, $format->{$hlist}, "horizontal");
         } elsif (defined $format->{"HList"}) {
             # use HList if no specific one
-            write_format($collwriter, $format->{"HList"});
+            write_format($collwriter, $format->{"HList"}, "horizontal");
         }
         if (defined $format->{$dlist}) {
-            write_format($collwriter, $format->{$dlist});
+            write_format($collwriter, $format->{$dlist}, "document");
         }
         $collwriter->endTag('format');
@@ -444 +445 @@
 
 sub write_format {
-    my ($writer, $old_format) = @_;
+    my ($writer, $old_format, $node_type) = @_;
     # replace \' with '
     $old_format =~ s/\\\'/\'/g;
@@ -481 +482 @@
     $old_format =~ s/=([a-z]+)([> ])/=\'$1\'$2/g;
 
-    $writer->startTag('gsf:template', 'match'=>'documentNode');
-    $writer->charactersXML($old_format);
-    $writer->endTag('gsf:template');
-
-    
+    if ($node_type eq "document") {
+    $writer->startTag('gsf:template', 'match'=>'documentNode');
+    $writer->charactersXML($old_format);
+    $writer->endTag('gsf:template');
+    } elsif ($node_type eq "classifier") {
+    $writer->startTag('gsf:template', 'match'=>'classifierNode');
+    $writer->charactersXML($old_format);
+    $writer->endTag('gsf:template');
+    } elsif ($node_type eq "horizontal") {  
+    $writer->startTag('gsf:template', 'match'=>'classifierNode', 'mode'=>'horizontal');
+    $writer->charactersXML($old_format);
+    $writer->endTag('gsf:template');
+
+    }
 }