<%doc>
First, we get the references to three hashes from the computing
component. Then we sort for bx and ff (=id value in hash) in the LeeRecord
object. Then we create the page.
<%init>
my ($LeeRecordIdHash, $LeeRecordDateHash, $LeeRecordNtHash) = $m->comp('/diglib/mc/LeeRecordData.mc');
<%args>
$sortBy=>'Date'
<%perl>
my @sortedRecords;
if ($sortBy eq "BoxAndFile")
{
@sortedRecords = sort { $LeeRecordIdHash->{$a} <=> $LeeRecordIdHash->{$b} } (keys %{$LeeRecordNtHash});
}
elsif ($sortBy eq "Date")
{
@sortedRecords = sort { $LeeRecordDateHash->{$a} <=> $LeeRecordDateHash->{$b} } (keys %{$LeeRecordDateHash});
}
ALL ITEMS IN THE COLLECTION
Arranged by <% $sortBy %>
|
BOX and FILE No.
|
DATE
|
ITEM TYPE
|
DESCRIPTION
|
PAGE IMAGE LINKS
|
% foreach my $LeeRecord (@sortedRecords)
%{
|
Box: <% $LeeRecord->get_bx %>, File: <% $LeeRecord->get_ff %>
|
<& /diglib/mc/LeeDateColumn.mc, LeeRecord => $LeeRecord &>
<& /diglib/mc/LeeItemTypeColumn.mc, LeeRecord => $LeeRecord &>
<& /diglib/mc/LeeDescriptionColumn.mc, LeeRecord => $LeeRecord &>
<& /diglib/mc/LeeImageColumn.mc, LeeRecord => $LeeRecord &>
%}
|
|
|
|
<& /diglib/mh/footer.mh &>