Changeset 20420
- Timestamp:
- 2009-08-28T12:06:34+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/basebuildproc.pm
r18508 r20420 243 243 my $self = shift (@_); 244 244 my ($lang_meta, $langarr) = @_; 245 $lang_meta =~ s/^ex\.//; # strip ex. if there 245 246 $self->{'lang_meta'} = $lang_meta; 246 247 $self->{'langarr'} = $langarr; … … 718 719 } 719 720 else { 721 $field =~ s/^ex\.//; #strip ex. if present 720 722 @metadata_values = @{$doc_obj->get_metadata($doc_obj->get_top_section(), $field)}; 721 723 }
Note:
See TracChangeset
for help on using the changeset viewer.