-for (my $i=0; $i<$count2; $i++){
- my @barcodes = barcodes($data[$i]->{'biblioitemnumber'});
- if ($data[$i]->{'dewey'} == 0){
- $data[$i]->{'dewey'}="";
+
+
+foreach my $dat (sort {$b->{'dateaccessioned'} cmp $a->{'dateaccessioned'}} @data) {
+ my @barcodes = barcodes($dat->{'biblioitemnumber'});
+ my $barcodestext = "";
+ foreach my $num (@barcodes) {
+ my $message = $num->{'itemlost'} == 1 ? "(lost)" :
+ $num->{'itemlost'} == 2 ? "(long overdue)" : "";
+ $barcodestext .= "$num->{'barcode'} $message <br>";
+ }
+ $barcodestext = substr($barcodestext, 0, -4);
+
+ $dat->{'dewey'}="" if ($dat->{'dewey'} == 0);
+
+ $dat->{'volumeddesc'} = " " unless $dat->{'volumeddesc'};
+ $dat->{'dewey'}=~ s/\.0000$//;
+ $dat->{'dewey'}=~ s/00$//;
+ my $class="$dat->{'classification'}$dat->{'dewey'}$dat->{'subclass'}";
+ my $select;
+ if (($dat->{'notforloan'})
+ || ($dat->{'itemlost'} == 1)) {
+ $select = "Cannot be reserved.";
+ } else {
+ $select = " <input type=checkbox name=reqbib value=$dat->{'biblioitemnumber'}><input type=hidden name=biblioitem value=$dat->{'biblioitemnumber'}>";