my $sth =

          $dbh->prepare(

            "Select itemtype,description from itemtypes order by description");

        $sth->execute;

        my @itemtype;

        my %itemtypes;

        push @itemtype, "";

        $itemtypes{''} = "";

        while ( my ( $value, $lib ) = $sth->fetchrow_array ) {

            push @itemtype, $value;

            $itemtypes{$value} = $lib;

        }

        my $CGIitemtype = CGI::scrolling_list(

            -name     => 'value',

            -values   => \@itemtype,

            -labels   => \%itemtypes,

            -size     => 1,

            -multiple => 0

        );

        $sth->finish;

        # To show list of branches please use GetBranchesLoop() and modify template

        my $req =

          $dbh->prepare(

"select distinctrow left(publishercode,45) from biblioitems order by publishercode"

          );

        $req->execute;

        my @select;

        push @select, "";

        while ( my ($value) = $req->fetchrow ) {

            push @select, $value;

        }

        my $CGIpublisher = CGI::scrolling_list(

            -name     => 'value',

            -id       => 'publisher',

            -values   => \@select,

            -size     => 1,

            -multiple => 0

        );

#         my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");

#         $sth->execute;

#         while (my ($description,$itemtype) = $sth->fetchrow) {

#             $classlist.="<option value=\"$itemtype\">$description</option>\n";

#         }

#         $sth->finish;

            CGIitemtype  => $CGIitemtype,

            CGIPublisher => $CGIpublisher,

-