X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=fs_selfservice%2FFS-SelfService%2Fcgi%2Fmisc%2Fpart_svc-columns.cgi;fp=fs_selfservice%2FFS-SelfService%2Fcgi%2Fmisc%2Fpart_svc-columns.cgi;h=4ee83ca96b8d06268ab4edebb534139e3c54a142;hb=beb9681db0ee4c0912c82849267a82dd434784b3;hp=0000000000000000000000000000000000000000;hpb=a22b55437cb9c2da2670c33b28dd521a1ef1a190;p=freeside.git

diff --git a/fs_selfservice/FS-SelfService/cgi/misc/part_svc-columns.cgi b/fs_selfservice/FS-SelfService/cgi/misc/part_svc-columns.cgi
new file mode 100755
index 000000000..4ee83ca96
--- /dev/null
+++ b/fs_selfservice/FS-SelfService/cgi/misc/part_svc-columns.cgi
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use strict;
+use CGI;
+use FS::SelfService qw( mason_comp );
+
+my $cgi = new CGI;
+
+my $rv = mason_comp( 'comp'         => '/misc/part_svc-columns.cgi',
+                     'query_string' => $cgi->query_string, #pass CGI params...
+                   );
+
+#hmm.
+my $output = $rv->{'error'} || $rv->{'output'};
+
+print $cgi->header( '-expires' => 'now' ).
+      $output;
+