added type for reports
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 21 Nov 2005 15:14:37 +0000 (15:14 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 21 Nov 2005 15:14:37 +0000 (15:14 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2099 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/extras/fieldmapper.pl

index f885be1..9dd2ed0 100755 (executable)
@@ -16,6 +16,8 @@ my @web_hints = qw/asv asva asvr asvq
 
 my @web_core = qw/ aou au perm_ex ex aout mvr ccs ahr /;
 
+my @reports = qw/ perm_ex ex ao aou aout /;
+
 
 print "var _c = {};\n";
 
@@ -31,6 +33,12 @@ for my $object (keys %$map) {
                next unless (grep { $_ eq $hint } @web_core );
        }
 
+       if($web eq "reports") {
+               my $hint = $map->{$object}->{hint};
+               next unless (grep { $_ eq $hint } @web_core );
+       }
+
+
        my $short_name = $map->{$object}->{hint};
 
        my @fields;