my ($tl21);
if (! Exists($tl21)){
   $tl21 = $mw->Toplevel(-title=>"Report");
   $tl21->Label->pack(-side => 'top');
    my $f1= $tl21->Frame(-borderwidth =>2, -relief=> 'groove')->pack(-
+side => 'top', -fill => 'x');
    my $f2= $tl21->Frame(-borderwidth =>2, -relief=> 'groove')->pack(-
+side => 'top', -fill => 'x');
    my $f3= $tl21->Frame(-borderwidth =>2, -relief=> 'groove')->pack(-
+side => 'top', -fill => 'x');
    $lb = $f1->Scrolled("Listbox", -scrollbars => "osoe", -selectmode=
+>"extended",
                       )->pack(-side => 'left', -fill => 'y');
    my $lb->insert("end", @tags_list);
    
    my $lb2 = $f1->Scrolled("Listbox", -scrollbars => "osoe", -selectm
+ode=>"extended",
                       )->pack(-side => 'left', -fill => 'y');
   
           my $sel_btn=$f2->Button(-text => "> Select Field", 
           -command => \&select_tag)->pack(-side =>'left', -expand=>1,
+ -anchor => 'center');
            $balloon->attach($sel_btn, -msg => "Select field");       
+ 
            my $sel1_btn=  $f2->Button(-text => "> Unselect Field", 
            -command => \&unselect_tag)->pack(-side =>'left', -expand=
+>1, -anchor => 'center');
            $balloon->attach($sel1_btn, -msg => "Unselect field");
            my $sel2_btn=   $f2->Button(-text => ">> Select all", 
            -command => \&select_all)->pack(-side =>'left', -expand=>1
+, -anchor => 'center');
            $balloon->attach($sel2_btn, -msg => "Select all");
            my $sel3_btn=   $f2->Button(-text => "<< Unselect All Fiel
+ds",             
            -command => \&unselect_all)->pack(-side =>'left', -expand=
+>1, -anchor => 'center');
            $balloon->attach($sel3_btn, -msg => "Unselect all fields")
+;

            my $convert_btn=$f3->Button(-text=>"Go",
                 -command=> sub {
                 my $selected_tags = $lb2->get(0,'end');
                 if (scalar @$selected_tags < 1){
                      my $msg_title = "ListBox selection Error";
                     my $message = "Please make a selection first!";
                     message_box($msg_title,$message); 
                 }

##print first line with field names, tabbed
$list_selected_tags = join ",", @$selected_tags;
$t->insert('end', $list_selected_tags);

$t->insert('end', "\n");
foreach my $k (sort keys %$users_ref){
          foreach my $i (@$selected_tags){
   
                  my $temp_i = $users_ref->{$k}{$i};
                  if ($temp_i =~ /,/){
                      $temp_i = "\"$temp_i\"";
                    } 
                    else{
                        $temp_i = "$temp_i";
                    }
                  #$temp_i =~ s/"/""/g;
                  
                  $t->insert('end', "$temp_i,") unless $i eq @$selecte
+d_tags[-1];;
                  $t->insert('end', "$temp_i\n") if $i eq @$selected_t
+ags[-1];

                }
                #$t->insert('end', "\n");
}

                 $tl21->withdraw;
  
          }
          )->pack(-side =>'left', -expand=>1, -anchor => 'center');
          $balloon->attach($convert_btn, -msg => "Filter report");
          my $cancel_btn=$f3->Button(-text=>"Cancel",
                 -command=> sub { 
                    $tl21->withdraw
          }#end of 2nd inner sub
          )->pack(-side =>'left', -expand=>1, -anchor => 'center');
          $balloon->attach($cancel_btn, -msg => "Close current window"
+);


            
sub select_tag {
  my @elements = $lb->curselection;
  my $delete_point;
  if ($#elements>=0){
  foreach my $i (0..$#elements) {
  $delete_point =$elements[0];
    my $element = $lb->get($elements[$i]);
    $lb2->insert("end","$element LALA") ;
    }
    $lb->delete($delete_point,$elements[-1]);
    $lb->selectionClear(0,'end');
    }
    else {
     my $msg_title = "ListBox selection Error";
     my $message = "Please make a selection first!";
     message_box($msg_title,$message); 
    }
}


sub unselect_tag {
  my @elements = $lb2->curselection;
  my $delete_point;
    if ($#elements>=0){
  foreach my $i (0..$#elements) {
  $delete_point =$elements[0];
    my $element = $lb2->get($elements[$i]);
    $lb->insert("end","$element") ;
    }
    $lb2->delete($delete_point,$elements[-1]);
    $lb2->selectionClear(0,'end');
   }
       else{
     my $msg_title = "ListBox selection Error";
     my $message = "Please make a selection first!";
     message_box($msg_title,$message); 
    }
}

sub select_all{
    $lb2->delete(0,'end');
    $lb2->insert(0,@tags_list);
    $lb->delete(0,'end');
}

sub unselect_all{
    $lb->delete(0,'end');
    $lb->insert(0,@tags_list);
    $lb2->delete(0,'end');
}
              
 }#end of if (! Exists($tl21))statement

 else{
             $tl21->deiconify();
            $tl21->raise();
     }

}
[download]