diff options
Diffstat (limited to 'config-db/OpenSLX/ConfigDB.pm')
-rw-r--r-- | config-db/OpenSLX/ConfigDB.pm | 32 |
1 files changed, 1 insertions, 31 deletions
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm index 025af2f6..329473ce 100644 --- a/config-db/OpenSLX/ConfigDB.pm +++ b/config-db/OpenSLX/ConfigDB.pm @@ -85,7 +85,7 @@ to filtering (with boolean operators and hierarchical expressions)]. my @supportExports = qw( mergeAttributes pushAttributes externalIDForSystem externalIDForClient externalConfigNameForClient - externalAttrName generatePlaceholderFor + generatePlaceholderFor ); @EXPORT_OK = (@supportExports); @@ -2836,36 +2836,6 @@ sub externalConfigNameForClient return $name; } -=item C<externalAttrName($attr)> - -Returns the given attribute as it is referenced externally - without the -'attr'_-prefix. - -=over - -=item Param C<attr> - -The attribute you are interested in. - -=item Return Value - -The external name of the given attribute. - -=back - -=cut - -sub externalAttrName -{ - my $attr = shift; - - if ($attr =~ m[^attr_]) { - return substr($attr, 5); - } - - return $attr; -} - =item C<generatePlaceholdersFor($varName)> Returns the given variable as a placeholder - surrounded by '@@@' markers. |