|
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 |
- |
|
|