#!/usr/bin/perl -Tw
#
-# $Id: cust_main.cgi,v 1.14 1999-04-14 07:47:53 ivan Exp $
+# $Id: cust_main.cgi,v 1.18 1999-08-11 15:38:33 ivan Exp $
#
# Usage: cust_main.cgi custnum
# http://server.name/path/cust_main.cgi?custnum
# fixed one missed day->daytime ivan@sisd.com 98-jul-13
#
# $Log: cust_main.cgi,v $
-# Revision 1.14 1999-04-14 07:47:53 ivan
+# Revision 1.18 1999-08-11 15:38:33 ivan
+# fix for perl 5.004_04
+#
+# Revision 1.17 1999/08/10 11:15:45 ivan
+# corrected a misleading comment
+#
+# Revision 1.15 1999/04/14 13:14:54 ivan
+# configuration option to edit referrals of existing customers
+#
+# Revision 1.14 1999/04/14 07:47:53 ivan
# i18n fixes
#
# Revision 1.13 1999/04/09 03:52:55 ivan
use FS::cust_main_county;
#for misplaced logic below
- use FS::pkg_svc;
- use FS::part_svc;
use FS::part_pkg;
#for false laziness below
$cgi = new CGI;
cgisuidsetup($cgi);
+$conf = new FS::Conf;
+
#get record
if ( $cgi->param('error') ) {
#referral
$refnum = $cust_main->refnum || 0;
-if ( $custnum ) {
+if ( $custnum && ! $conf->exists('editreferrals') ) {
print qq!<INPUT TYPE="hidden" NAME="refnum" VALUE="$refnum">!;
} else {
my(@referrals) = qsearch('part_referral',{});
print qq!<INPUT TYPE="hidden" NAME="refnum" VALUE="$refnum">!;
} else {
print qq!<BR><BR>${r}Referral <SELECT NAME="refnum" SIZE="1">!;
- print "<OPTION> ";
+ print "<OPTION> " unless $refnum;
my($referral);
foreach $referral (sort {
$a->refnum <=> $b->refnum;
unless ( $custnum ) {
# pry the wrong place for this logic. also pretty expensive
- #use FS::pkg_svc;
- #use FS::part_svc;
#use FS::part_pkg;
#false laziness, copied from FS::cust_pkg::order
- my %part_pkg;
+ my $pkgpart;
if ( scalar(@agents) == 1 ) {
- # generate %part_pkg
- # $part_pkg{$pkgpart} is true iff $custnum may purchase $pkgpart
- #my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum});
- #my($agent)=qsearchs('agent',{'agentnum'=> $cust_main->agentnum });
+ # $pkgpart->{PKGPART} is true iff $custnum may purchase $pkgpart
my($agent)=qsearchs('agent',{'agentnum'=> $agentnum });
-
- my($type_pkgs);
- foreach $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
- my($pkgpart)=$type_pkgs->pkgpart;
- $part_pkg{$pkgpart}++;
- }
+ $pkgpart = $agent->pkgpart_hashref;
} else {
#can't know (agent not chosen), so, allow all
my %typenum;
foreach my $agent ( @agents ) {
next if $typenum{$agent->typenum}++;
- foreach my $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
- my($pkgpart)=$type_pkgs->pkgpart;
- $part_pkg{$pkgpart}++;
- }
+ #5.004_04 barfs (5.004_05 okay?)# $pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
+ foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; }
}
-
}
#eslaf
- my %pkgpart;
- #foreach ( @pkg_svc ) {
- foreach ( qsearch( 'pkg_svc', {} ) ) {
- my $part_svc = qsearchs ( 'part_svc', { 'svcpart' => $_->svcpart } );
- $pkgpart{ $_->pkgpart } = -1 # never will == 1 below
- if ( $part_svc->svcdb ne 'svc_acct' );
- if ( $pkgpart{ $_->pkgpart } ) {
- $pkgpart{ $_->pkgpart } = '-1';
- } else {
- $pkgpart{ $_->pkgpart } = $_->svcpart;
- }
- }
-
- my @part_pkg =
- #grep { $pkgpart{ $_->pkgpart } == 1 } qsearch( 'part_pkg', {} );
- grep {
- #( $pkgpart{ $_->pkgpart } || 0 ) == 1
- $pkgpart{ $_->pkgpart }
- && $pkgpart{ $_->pkgpart } != -1
- && $part_pkg{ $_->pkgpart }
- ;
- } qsearch( 'part_pkg', {} );
+ my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
+ qsearch( 'part_pkg', {} );
if ( @part_pkg ) {
foreach my $part_pkg ( @part_pkg ) {
print qq!<OPTION VALUE="!,
- $part_pkg->pkgpart. "_". $pkgpart{ $part_pkg->pkgpart }, '"';
+# $part_pkg->pkgpart. "_". $pkgpart{ $part_pkg->pkgpart }, '"';
+ $part_pkg->pkgpart. "_". $part_pkg->svcpart, '"';
print " SELECTED" if $pkgpart && ( $part_pkg->pkgpart == $pkgpart );
print ">", $part_pkg->pkg, " - ", $part_pkg->comment;
}