package PVE::HTMLDropDown; use strict; use vars qw(@ISA); my $umenuid = 0; sub new { my ($class) = @_; my $self = {}; $self->{count}=0; $self->{links}=0; $self->{uid} = "pvemenu_" . ++$umenuid; bless($self); return $self; } sub add_item { my ($self,$name,$link,$text,$img) = @_; if (!(defined($self->{$name}->{count}))) { $self->{$name}->{count}=0; } $self->{$name}->{$self->{$name}->{count}}->{link} = $link; $self->{$name}->{$self->{$name}->{count}}->{text} = $text; $self->{$name}->{$self->{$name}->{count}}->{image} = $img; $self->{$name}->{count} = $self->{$name}->{count} + 1; $self->{$name}->{menuid} = $self->{uid} . "_" . $name; } sub out_dropdown_menu { my ($self,$name) = @_; my $i; my $br=0; my $image = "/images/iarrdown.png"; my $menuid = $self->{$name}->{menuid}; my $html = ""; $html .= "
"; return $html; } sub out_symbol { my ($self,$name,$shape,$elink) = @_; my $html; my $image = "/images/tarrdown.png"; if ($shape) { $image = "/images/$shape.png"; } my $menuid = $self->{$name}->{menuid}; my $lnk_name = $menuid . "_lnk_" . $self->{links}; if (defined($elink)) { $elink = ",'$elink'"; } $html = "