Changeset 1374 for trunk/gsdl/perllib/doc.pm
- Timestamp:
- 2000-08-08T16:36:49+12:00 (24 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/doc.pm
r1241 r1374 43 43 sub new { 44 44 my $class = shift (@_); 45 45 my ($source_filename, $doc_type) = @_; 46 46 47 my $self = bless {'associated_files'=>[], 47 48 'subsection_order'=>[], … … 51 52 'text'=>""}, $class; 52 53 53 # $self->set_source_filename ($source_filename) if defined $source_filename; 54 push (@{$self->{'metadata'}}, ["gsdlsourcefilename", $source_filename]) if defined $source_filename; 55 # $self->set_doc_type ($doc_type) if defined $doc_type; 56 push (@{$self->{'metadata'}}, ["gsdldoctype", $doc_type]) if defined $doc_type; 54 $self->set_source_filename ($source_filename) if defined $source_filename; 55 $self->set_doc_type ($doc_type) if defined $doc_type; 57 56 58 57 return $self; … … 246 245 if (!defined $OID) { 247 246 $OID = "NULL"; 248 my $tmp_filename = &util::get_tmp_filename(); 249 if (!open (OUTFILE, ">$tmp_filename")) { 250 print STDERR "doc::set_OID could not write to $tmp_filename\n"; 247 248 my $filename = $self->get_source_filename(); 249 if (defined ($filename)) { 250 251 $OID = $self->_calc_OID ($filename); 252 251 253 } else { 252 $self->output_section('OUTFILE', $self->get_top_section(), 1); 253 close (OUTFILE); 254 255 $OID = $self->_calc_OID ($tmp_filename); 254 255 print STDERR "doc::set_OID WARNING source filename undefined (continuing)\n"; 256 257 $filename = &util::get_tmp_filename(); 258 if (!open (OUTFILE, ">$tmp_filename")) { 259 print STDERR "doc::set_OID could not write to $tmp_filename\n"; 260 } else { 261 $self->output_section('OUTFILE', $self->get_top_section(), 1); 262 close (OUTFILE); 263 } 264 265 $OID = $self->_calc_OID ($filename); 256 266 &util::rm ($tmp_filename); 257 267 }
Note:
See TracChangeset
for help on using the changeset viewer.