# Copyright 2004-2007 Interchange Development Group and others # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. See the LICENSE file for details. UserTag values-space Order name UserTag values-space addAttr UserTag values-space Version 1.5 UserTag values-space Routine <{values}; } else { $old_ref = $Vend::Session->{values_repository}{$old_name} ||= {}; } if ($name eq '') { $::Values = $Vend::Session->{values}; } else { $::Values = $Vend::Session->{values_repository}{$name} ||= {}; } $Vend::ValuesSpace = $name; %$::Values = () if $opt->{clear}; my @copy; if ($opt->{copy_all}) { @copy = keys %$old_ref; } elsif ($opt->{copy}) { @copy = grep /\S/, split / /, $opt->{copy}; } $::Values->{$_} = $old_ref->{$_} for @copy; #Debug("changed values space from $old_name to $name; new contents:\n" . ::uneval($::Values)); return $opt->{show} ? $old_name : ''; } EOR