Changeset 1868 for trunk/gsdl/perllib/doc.pm

Timestamp:

2001-01-26T17:25:49+13:00 (23 years ago)

Author:

sjboddie

Message:

Made a bunch of changes to the building code to support lots of new
languages and encodings. It's still kind of a mess but should be fixed
up over the weekend.

File:

• trunk/gsdl/perllib/doc.pm (modified) (1 diff)

trunk/gsdl/perllib/doc.pm

@@ -130 +130 @@
 }
 
-sub set_source_encoding {
-    my $self = shift (@_);
-    my ($source_encoding) = @_;
-
-    $self->set_metadata_element ($self->get_top_section(), 
-                 "gsdlsourceencoding", 
-                 $source_encoding);
-}
-
-# returns the source_encoding as it was provided
-sub get_source_encoding {
-    my $self = shift (@_);
-    
-    return $self->get_metadata_element ($self->get_top_section(), "gsdlsourceencoding");
-}
-
 sub _escape_text {
     my ($text) = @_;