#!/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::Members;
+
use C4::Branch; # GetBranches
=head1 NAME
$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,
-multiple => 0 );
$template->param(CGIbranch => $CGIbranch);
+
+ my ($codes,$labels)=GetborCatFromCatType(undef,undef);
+ my @borcatloop;
+ foreach my $thisborcat (sort keys %$labels) {
+ push @borcatloop, {value => $thisborcat,
+ description => $labels->{$thisborcat},
+ };
+ }
+ $template->param(loopcategories => \@borcatloop);
return $template;
}
sub calculate {