X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fedit%2Fpart_svc.cgi;fp=htdocs%2Fedit%2Fpart_svc.cgi;h=e1897b2e6014dcbb4155c33dd0d6ef55866592b1;hb=2312a7bf316e4f58efb31e4fc72311fedaecd242;hp=491c013fe04ecd6c761ccda6af6941e2773e0ce5;hpb=dbb8c185411a252d7df9362b3aa88edfb92dfbfa;p=freeside.git diff --git a/htdocs/edit/part_svc.cgi b/htdocs/edit/part_svc.cgi index 491c013fe..e1897b2e6 100755 --- a/htdocs/edit/part_svc.cgi +++ b/htdocs/edit/part_svc.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# part_svc.cgi: Add/Edit service (output form) +# $Id: part_svc.cgi,v 1.2 1998-11-21 03:16:40 ivan Exp $ # # ivan@sisd.com 97-nov-14 # @@ -8,24 +8,27 @@ # bmccane@maxbaud.net 98-apr-3 # # use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12 +# +# $Log: part_svc.cgi,v $ +# Revision 1.2 1998-11-21 03:16:40 ivan +# visual +# use strict; -use CGI::Base; +use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearchs); use FS::part_svc qw(fields); -use FS::CGI qw(header menubar); +use FS::CGI qw(header menubar popurl table); -my($cgi) = new CGI::Base; -$cgi->get; +my($cgi) = new CGI; &cgisuidsetup($cgi); -SendHeaders(); # one guess. - my($part_svc,$action); -if ( $cgi->var('QUERY_STRING') =~ /^(\d+)$/ ) { #editing +my($query) = $cgi->keywords; +if ( $query && $query =~ /^(\d+)$/ ) { #editing $part_svc=qsearchs('part_svc',{'svcpart'=>$1}); $action='Edit'; } else { #adding @@ -34,12 +37,11 @@ if ( $cgi->var('QUERY_STRING') =~ /^(\d+)$/ ) { #editing } my($hashref)=$part_svc->hashref; -print header("$action Service Definition", menubar( - 'Main Menu' => '../', - 'View all services' => '../browse/part_svc.cgi', -)), '