projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sticky customer notes, RT#29311
[freeside.git]
/
FS
/
FS
/
cust_main.pm
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
d7d5869
..
b43d7e3
100644
(file)
--- a/
FS/FS/cust_main.pm
+++ b/
FS/FS/cust_main.pm
@@
-392,7
+392,7
@@
sub insert {
$payby = 'PREP' if $amount;
$payby = 'PREP' if $amount;
- } elsif ( $self->payby =~ /^(CASH|WEST|MCRD|PPAL)$/ ) {
+ } elsif ( $self->payby =~ /^(CASH|WEST|MCRD|
MCHK|
PPAL)$/ ) {
$payby = $1;
$self->payby('BILL');
$payby = $1;
$self->payby('BILL');
@@
-2346,8
+2346,8
@@
Returns all notes (see L<FS::cust_main_note>) for this customer.
sub notes {
my($self,$orderby_classnum) = (shift,shift);
sub notes {
my($self,$orderby_classnum) = (shift,shift);
- my $orderby = "
_DATE
DESC";
- $orderby = "
CLASSNUM
ASC, $orderby" if $orderby_classnum;
+ my $orderby = "
sticky DESC, _date
DESC";
+ $orderby = "
classnum
ASC, $orderby" if $orderby_classnum;
qsearch( 'cust_main_note',
{ 'custnum' => $self->custnum },
'',
qsearch( 'cust_main_note',
{ 'custnum' => $self->custnum },
'',
@@
-3459,6
+3459,7
@@
Old-style:
=cut
=cut
+#super false laziness w/quotation::charge
sub charge {
my $self = shift;
my ( $amount, $setup_cost, $quantity, $start_date, $classnum );
sub charge {
my $self = shift;
my ( $amount, $setup_cost, $quantity, $start_date, $classnum );