Lines 152-165
if ( $shelfnumber || ( $shelfnumber == -1 ) ) { # the shelf already exist.
Link Here
|
152 |
} |
152 |
} |
153 |
} |
153 |
} |
154 |
else { # this shelf doesn't already exist. |
154 |
else { # this shelf doesn't already exist. |
155 |
my $limit = 10; |
155 |
# my $limit = 10; |
156 |
my ($shelflist); |
156 |
my ($shelflist); |
157 |
my @shelvesloop; |
157 |
my @shelvesloop; |
158 |
my %shelvesloop; |
158 |
my %shelvesloop; |
159 |
|
159 |
|
160 |
#grab each type of shelf, open (type 3) should not be limited by user. |
160 |
#grab each type of shelf, open (type 3) should not be limited by user. |
161 |
foreach my $shelftype (1,2,3) { |
161 |
foreach my $shelftype (1,2,3) { |
162 |
my ($shelflist) = GetRecentShelves($shelftype, $limit, $shelftype == 3 ? undef : $loggedinuser); |
162 |
my ($shelflist) = GetRecentShelves($shelftype, undef, $shelftype == 3 ? undef : $loggedinuser); |
163 |
for my $shelf (@{ $shelflist }) { |
163 |
for my $shelf (@{ $shelflist }) { |
164 |
push(@shelvesloop, $shelf->{shelfnumber}); |
164 |
push(@shelvesloop, $shelf->{shelfnumber}); |
165 |
$shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname}; |
165 |
$shelvesloop{$shelf->{shelfnumber}} = $shelf->{shelfname}; |
166 |
- |
|
|