diff options
author | michel_j <michel_j@a3e5c962-4219-0410-a828-e124f845ac39> | 2003-08-23 01:29:48 +0000 |
---|---|---|
committer | michel_j <michel_j@a3e5c962-4219-0410-a828-e124f845ac39> | 2003-08-23 01:29:48 +0000 |
commit | 9206108142b050b6d69cf5d469ad237d531d9f20 (patch) | |
tree | 47be81f38e414e962a6a69faa80cbaf5cdff0b11 /modules/VC7ProjectCreator.pm | |
parent | fda133cc50cdb71362305d50c0560170f65ac41e (diff) | |
download | MPC-9206108142b050b6d69cf5d469ad237d531d9f20.tar.gz |
Fri Aug 22 20:10:41 UTC 2003 Justin Michel <michel_j@ociweb.com>
Diffstat (limited to 'modules/VC7ProjectCreator.pm')
-rw-r--r-- | modules/VC7ProjectCreator.pm | 34 |
1 files changed, 11 insertions, 23 deletions
diff --git a/modules/VC7ProjectCreator.pm b/modules/VC7ProjectCreator.pm index bf182002..6be9b130 100644 --- a/modules/VC7ProjectCreator.pm +++ b/modules/VC7ProjectCreator.pm @@ -29,32 +29,20 @@ sub file_sorter { return lc($left) cmp lc($right); } - -sub specific_lookup { +sub translate_value { my($self) = shift; - my($tag) = shift; - my($val) = undef; - - if (defined $self->{'guid_names'} && - defined $self->{'guid_names'}->{$tag}) { - $val = $self->{'guid_names'}->{$tag}; - } - - return $val; -} - - -sub save_project_value { - my($self) = shift; - my($name) = shift; - my($value) = shift; - - if ($name eq 'guid') { - if (!defined $self->{'guid_names'}) { - $self->{'guid_names'} = {}; + my($key) = shift; + my($val) = shift; + + if ($key eq 'after' && $val ne '') { + my($arr) = $self->create_array($val); + $val = ''; + foreach my $entry (@$arr) { + $val .= '"' . $entry . '" '; } - $self->{'guid_names'}->{$self->project_file_name()} = $value; + $val =~ s/\s+$//; } + return $val; } |