Lines 129-154
if ($do_it) {
Link Here
|
129 |
-multiple => 0 ); |
129 |
-multiple => 0 ); |
130 |
|
130 |
|
131 |
my $CGIsepChoice=GetDelimiterChoices; |
131 |
my $CGIsepChoice=GetDelimiterChoices; |
132 |
#branch |
|
|
133 |
my $branches = GetBranches; |
134 |
my @branchloop; |
135 |
foreach my $thisbranch (keys %$branches) { |
136 |
# my $selected = 1 if $thisbranch eq $branch; |
137 |
my %row =(value => $thisbranch, |
138 |
# selected => $selected, |
139 |
branchname => $branches->{$thisbranch}->{'branchname'}, |
140 |
); |
141 |
push @branchloop, \%row; |
142 |
} |
143 |
|
132 |
|
144 |
#doctype |
133 |
#doctype |
145 |
my $itemtypes = GetItemTypes; |
134 |
my $itemtypes = GetItemTypes; |
146 |
my @itemtypeloop; |
135 |
my @itemtypeloop; |
147 |
foreach my $thisitemtype (keys %$itemtypes) { |
136 |
foreach my $thisitemtype ( sort {$itemtypes->{$a}->{'description'} cmp $itemtypes->{$b}->{'description'}} keys %$itemtypes) { |
148 |
# my $selected = 1 if $thisbranch eq $branch; |
|
|
149 |
my %row =(value => $thisitemtype, |
137 |
my %row =(value => $thisitemtype, |
150 |
# selected => $selected, |
138 |
description => $itemtypes->{$thisitemtype}->{'description'}, |
151 |
description => $itemtypes->{$thisitemtype}->{'description'}, |
|
|
152 |
); |
139 |
); |
153 |
push @itemtypeloop, \%row; |
140 |
push @itemtypeloop, \%row; |
154 |
} |
141 |
} |
Lines 156-166
if ($do_it) {
Link Here
|
156 |
#borcat |
143 |
#borcat |
157 |
my ($codes,$labels) = GetborCatFromCatType(undef,undef); |
144 |
my ($codes,$labels) = GetborCatFromCatType(undef,undef); |
158 |
my @borcatloop; |
145 |
my @borcatloop; |
159 |
foreach my $thisborcat (sort keys %$labels) { |
146 |
foreach my $thisborcat (sort {$labels->{$a} cmp $labels->{$b}} keys %$labels) { |
160 |
# my $selected = 1 if $thisbranch eq $branch; |
|
|
161 |
my %row =(value => $thisborcat, |
147 |
my %row =(value => $thisborcat, |
162 |
# selected => $selected, |
148 |
description => $labels->{$thisborcat}, |
163 |
description => $labels->{$thisborcat}, |
|
|
164 |
); |
149 |
); |
165 |
push @borcatloop, \%row; |
150 |
push @borcatloop, \%row; |
166 |
} |
151 |
} |
Lines 170-176
if ($do_it) {
Link Here
|
170 |
$template->param( |
155 |
$template->param( |
171 |
CGIextChoice => $CGIextChoice, |
156 |
CGIextChoice => $CGIextChoice, |
172 |
CGIsepChoice => $CGIsepChoice, |
157 |
CGIsepChoice => $CGIsepChoice, |
173 |
branchloop =>\@branchloop, |
158 |
branchloop => GetBranchesLoop(C4::Context->userenv->{'branch'}), |
174 |
itemtypeloop =>\@itemtypeloop, |
159 |
itemtypeloop =>\@itemtypeloop, |
175 |
borcatloop =>\@borcatloop, |
160 |
borcatloop =>\@borcatloop, |
176 |
); |
161 |
); |
177 |
- |
|
|