#!/usr/bin/perl
-# $Id$
-
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
use C4::Context;
use C4::Branch; # GetBranches
use C4::Koha;
+use C4::Dates;
use C4::Acquisition;
use C4::Output;
use C4::Circulation;
#my %select_branches;
push @select_branch,"";
#$select_branches{""}="";
-foreach my $thisbranch (keys %$branches) {
+foreach my $thisbranch (sort keys %$branches) {
push @select_branch,$thisbranch;
# my $selected = 1 if $thisbranch eq $branch;
my %row =(value => $thisbranch,
$template->param( CGICatCode => $CGICatCode,
CGIZipCode => $CGIZipCode,
-# CGIBranch => $CGIBranch,
CGISort1 => $CGIsort1,
hassort1 => $hassort1,
CGISort2 => $CGIsort2,
hassort2 => $hassort2,
CGIextChoice => $CGIextChoice,
CGIsepChoice => $CGIsepChoice,
- CGIBranch => $CGIBranch
-# CGIBranch => \@branchloop
- DHTMLcalendar_dateformat => get_date_format_string_for_DHTMLcalendar(),
+ CGIBranch => $CGIBranch,
+ DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
);
}