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

Timestamp:

1999-08-31T20:47:01+12:00 (25 years ago)

Author:

rjmcnab

Message:

slight performance boost

File:

• trunk/gsdl/perllib/doc.pm (modified) (2 diffs)

trunk/gsdl/perllib/doc.pm

@@ -21 +21 @@
               'text'=>""}, $class;
 
-    $self->set_source_filename ($source_filename) if defined $source_filename;
-    $self->set_doc_type ($doc_type) if defined $doc_type;
+
+#    $self->set_source_filename ($source_filename) if defined $source_filename;
+    push (@{$self->{'metadata'}}, ["gsdlsourcefilename", &unicode::ascii2utf8($source_filename)]) 
+    if defined $source_filename;
+#    $self->set_doc_type ($doc_type) if defined $doc_type;
+    push (@{$self->{'metadata'}}, ["gsdldoctype", &unicode::ascii2utf8($doc_type)]) 
+    if defined $doc_type;
 
     return $self;
@@ -137 +142 @@
     my $osexe = &util::get_os_exe();
 
-    my $hashfile_exe = "$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}/hashfile$osexe";
+    my $hashfile_exe = &util::filename_cat($ENV{'GSDLHOME'},"bin",
+                       $ENV{'GSDLOS'},"hashfile$osexe");
     my $result = "NULL";