#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
use C4::Auth;
use CGI;
use C4::Context;
-use HTML::Template;
+use HTML::Template::Pro;
use C4::Search;
use C4::Output;
use C4::Koha;
+use C4::Branch; # GetBranches
=head1 NAME
sub set_parameters {
my ($template) = @_;
my $dbh = C4::Context->dbh;
- my $branches=getbranches();
+ my $branches=GetBranches();
my @branches;
my @select_branch;
my %select_branches;
$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,
return \@mainloop;
}
-1;
\ No newline at end of file
+1;