Subversion Repositories gelsvn

Rev

Rev 107 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 217
Line 16... Line 16...
16 
 
 16 
 
17 
use vars qw(@ISA);
 17 
use vars qw(@ISA);
18 
@ISA = qw(VC7ProjectCreator);
 18 
@ISA = qw(VC7ProjectCreator);
19 
 
 19 
 
20 
# ************************************************************
 20 
# ************************************************************
- 
 
 21 
# Data Section
- 
 
 22 
# ************************************************************
- 
 
 23 
 
- 
 
 24 
my(%config) = ('vcversion'    => '7.10',
- 
 
 25 
               'forloopscope' => 'TRUE',
- 
 
 26 
              );
- 
 
 27 
 
- 
 
 28 
# ************************************************************
21 
# Subroutine Section
 29 
# Subroutine Section
22 
# ************************************************************
 30 
# ************************************************************
23 
 
 31 
 
24 
sub get_configurable {
 32 
sub get_configurable {
25 
  my($self)   = shift;
 33 
  my($self) = shift;
26 
  my($name)   = shift;
 34 
  my($name) = shift;
27 
  my(%config) = ('vcversion'    => '7.10',
 - 
 
28 
                 'forloopscope' => 'TRUE',
 - 
 
29 
                );
 - 
 
30 
  return $config{$name};
 35 
  return $config{$name};
31 
}
 36 
}
32 
 
 37 
 
33 
1;
 38 
1;