Changeset 19898
- Timestamp:
- 2009-06-24T14:16:37+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/cfgread4gs3.pm
r17895 r19898 83 83 "searchType" => "searchtype", 84 84 "languageMetadata" => "languagemetadata", 85 "buildType" => "buildtype" 85 86 }; 86 87 # A hash structure which is returned by sub read_cfg_file. … … 92 93 # creator, public, maintainer and within a displayItem. 93 94 my $currentLocation = ""; 94 my $stringexp = q/^(creator|maintainer|public )$/;95 my $stringexp = q/^(creator|maintainer|public|buildType)$/; 95 96 my $displayItemNames = q/^(name|description)$/; 96 97 … … 415 416 my ($filename) = @_; 416 417 $data = {}; 417 if ( $filename !~ /collectionConfig\.xml$/|| !-f $filename) {418 if (($filename !~ /collectionConfig\.xml$/ && $filename !~ /buildConfig\.xml$/) || !-f $filename) { 418 419 return undef; 419 420 }
Note:
See TracChangeset
for help on using the changeset viewer.