From eb4ff7f73c5d4bdf74a3472448b5a195598ff4cd Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 1 Aug 2007 22:26:52 +0000 Subject: event refactor, landing on HEAD! --- httemplate/elements/tr-select-pkg_class.html | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) (limited to 'httemplate/elements/tr-select-pkg_class.html') diff --git a/httemplate/elements/tr-select-pkg_class.html b/httemplate/elements/tr-select-pkg_class.html index 542142466..aa2760996 100644 --- a/httemplate/elements/tr-select-pkg_class.html +++ b/httemplate/elements/tr-select-pkg_class.html @@ -1,20 +1,27 @@ -% my( $classnum, %opt ) = @_; -% -% $opt{'pkg_class'} ||= [ qsearch( 'pkg_class', { disabled=>'' } ) ]; -% -% #warn "***** tr-select-pkg-class: \n". Dumper(%opt); -% % if ( scalar(@{ $opt{'pkg_class'} }) == 0 ) { - + % } else { <% $opt{'label'} || 'Package class' %> - <% include( '/elements/select-pkg_class.html', $classnum, %opt ) %> + <% include( '/elements/select-pkg_class.html', + 'curr_value' => $classnum, + %opt + ) + %> % } + +<%init> + +my %opt = @_; +my $classnum = $opt{'curr_value'} || $opt{'value'}; + +$opt{'pkg_class'} ||= [ qsearch( 'pkg_class', {} ) ]; # { disabled=>'' } ) + + -- cgit v1.2.1