<%
-#
-# $Id: part_pkg.cgi,v 1.1 2001-07-30 07:36:04 ivan Exp $
-#
-# part_pkg.cgi: Add/Edit package (output form)
-#
-# ivan@sisd.com 97-dec-10
-#
-# Changes to allow page to work at a relative position in server
-# Changed to display services 2-wide in table
-# bmccane@maxbaud.net 98-apr-3
-#
-# use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12
-#
-# $Log: part_pkg.cgi,v $
-# Revision 1.1 2001-07-30 07:36:04 ivan
-# templates!!!
-#
-# Revision 1.9 1999/02/07 09:59:19 ivan
-# more mod_perl fixes, and bugfixes Peter Wemm sent via email
-#
-# Revision 1.8 1999/01/19 05:13:39 ivan
-# for mod_perl: no more top-level my() variables; use vars instead
-# also the last s/create/new/;
-#
-# Revision 1.7 1999/01/18 09:41:29 ivan
-# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-# (good idea anyway)
-#
-# Revision 1.6 1998/12/17 06:17:05 ivan
-# fix double // in relative URLs, s/CGI::Base/CGI/;
-#
-# Revision 1.5 1998/11/21 07:12:26 ivan
-# *** empty log message ***
-#
-# Revision 1.4 1998/11/21 07:11:08 ivan
-# *** empty log message ***
-#
-# Revision 1.3 1998/11/21 07:07:40 ivan
-# popurl, bugfix
-#
-# Revision 1.2 1998/11/15 13:14:55 ivan
-# first pass as per-user custom pricing
-#
+#<!-- $Id: part_pkg.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $part_pkg $action $query $hashref $part_svc $count );