#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
$select_branches{$branch} = $branches->{$branch}->{'branchname'};
}
my $CGIbranch=CGI::scrolling_list( -name => 'value',
- -id => 'value',
+ -id => 'branch',
-values => \@select_branch,
-labels => \%select_branches,
-size => 1,