Changeset 10999 for trunk/gsdl

Timestamp:

2005-12-16T13:57:08+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now all the Greenstone encodings are available for the "-input_encoding" option.

File:

• trunk/gsdl/bin/script/explode_metadata_database.pl (modified) (2 diffs)

trunk/gsdl/bin/script/explode_metadata_database.pl

@@ -11 +11 @@
 no strict 'subs'; # allow barewords (eg STDERR) as function arguments
 no strict 'refs'; # allow filehandles to be variables and vice versa
+
+use encodings;
 use printusage;
 use parse2;
@@ -23 +25 @@
       { 'name' => "unicode",
     'desc' => "{BasPlug.input_encoding.unicode}" } ];
+
+my $e = $encodings::encodings;
+foreach my $enc (sort {$e->{$a}->{'name'} cmp $e->{$b}->{'name'}} keys (%$e)) 
+{
+    my $hashEncode =
+    {'name' => $enc,
+     'desc' => $e->{$enc}->{'name'}};
+    
+    push(@{$unicode_list},$hashEncode);
+}
 
 my $arguments =