Select Code to Download

Select or download this

...
<th class=graycenter>$sortedCollectionData[$i]{'CollectionId'}</th>
...

Select or download this

<th class=graycenter>$collectionData[$sortedCollectionData[$i]]{'Colle
+ctionId'}</th>

Select or download this

my $orderby = 'collection';
my @data = readCollectionData('dummyFilename.txt');
...
print Dumper \@indices;

printCollectionData(\@data, @indices);

Select or download this

...
    if($sortedCollectionData[$i]{'Status'} eq "I") {
...
      $longStatus = "Submitted Complete";
    }
...

Select or download this

my %translateLongStatus = (
    'I'  => 'Incomplete',
...
    $longStatus = $translateLongStatus{ $collectionData[$i]{Status} } 
+||'Submitted Complete';
...
}

Select or download this

#!perl -w
use strict;
...
CollectionId=>25318 Framecount=>6 Status=>I Missing=>5 Modified=>01/22
+/2012 22:13:37
CollectionId=>21318 Framecount=>6 Status=>I Missing=>5 Modified=>01/22
+/2012 22:13:43
CollectionId=>21342 Framecount=>6 Status=>I Missing=>5 Modified=>01/22
+/2012 22:13:56