L<FS::part_pkg_usageprice> - Package definition usage pricing add-on class
+L<FS::cust_pkg_usageprice> - Customer package usage pricing add-on class
+
L<FS::part_pkg_currency> - Package definition local currency prices
L<FS::currency_exchange> - Currency exchange rates
use FS::conferencing_quality;
use FS::svc_video;
use FS::part_pkg_usageprice;
+ use FS::cust_pkg_usageprice;
# Sammath Naur
if ( $FS::Mason::addl_handler_use ) {
],
},
+ 'cust_pkg_usageprice' => {
+ 'columns' => [
+ 'usagepricenum', 'serial', '', '', '', '',
+ 'pkgnum', 'int', '', '', '', '',
+ 'usagepricepart', 'int', '', '', '', '',
+ 'quantity', 'int', '', '', '', '',
+ ],
+ 'primary_key' => 'usagepricenum',
+ 'unique' => [ [ 'pkgnum', 'usagepricepart' ] ],
+ 'index' => [ [ 'pkgnum' ] ],
+ 'foreign_keys' => [
+ { columns => [ 'pkgnum' ],
+ table => 'cust_pkg',
+ },
+ { columns => [ 'usagepricepart' ],
+ table => 'part_pkg_usageprice',
+ },
+ ],
+ },
+
'part_pkg_link' => {
'columns' => [
'pkglinknum', 'serial', '', '', '', '',
cust_pkg_option records will be created
+=item cust_pkg_usageprice
+
+Array reference of cust_pkg_usageprice objects, will be inserted
+
=item ticket_subject
a ticket will be added to this customer with this subject
'params' => $self->refnum,
);
+ if ( $self->hashref->{cust_pkg_usageprice} ) {
+ for my $cust_pkg_usageprice ( @{ $self->hashref->{cust_pkg_usageprice} } ) {
+ $cust_pkg_usageprice->pkgnum( $self->pkgnum );
+ my $error = $cust_pkg_usageprice->insert;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error;
+ }
+ }
+ }
+
if ( $self->discountnum ) {
my $error = $self->insert_discount();
if ( $error ) {
--- /dev/null
+package FS::cust_pkg_usageprice;
+use base qw( FS::Record );
+
+use strict;
+#use FS::Record qw( qsearch qsearchs );
+
+=head1 NAME
+
+FS::cust_pkg_usageprice - Object methods for cust_pkg_usageprice records
+
+=head1 SYNOPSIS
+
+ use FS::cust_pkg_usageprice;
+
+ $record = new FS::cust_pkg_usageprice \%hash;
+ $record = new FS::cust_pkg_usageprice { 'column' => 'value' };
+
+ $error = $record->insert;
+
+ $error = $new_record->replace($old_record);
+
+ $error = $record->delete;
+
+ $error = $record->check;
+
+=head1 DESCRIPTION
+
+An FS::cust_pkg_usageprice object represents an specific customer package usage
+pricing add-on. FS::cust_pkg_usageprice inherits from FS::Record. The
+following fields are currently supported:
+
+=over 4
+
+=item usagepricenum
+
+primary key
+
+=item pkgnum
+
+pkgnum
+
+=item usagepricepart
+
+usagepricepart
+
+=item quantity
+
+quantity
+
+
+=back
+
+=head1 METHODS
+
+=over 4
+
+=item new HASHREF
+
+Creates a new record. To add the record to the database, see L<"insert">.
+
+Note that this stores the hash reference, not a distinct copy of the hash it
+points to. You can ask the object for a copy with the I<hash> method.
+
+=cut
+
+# the new method can be inherited from FS::Record, if a table method is defined
+
+sub table { 'cust_pkg_usageprice'; }
+
+=item insert
+
+Adds this record to the database. If there is an error, returns the error,
+otherwise returns false.
+
+=item delete
+
+Delete this record from the database.
+
+=item replace OLD_RECORD
+
+Replaces the OLD_RECORD with this one in the database. If there is an error,
+returns the error, otherwise returns false.
+
+=item check
+
+Checks all fields to make sure this is a valid record. If there is
+an error, returns the error, otherwise returns false. Called by the insert
+and replace methods.
+
+=cut
+
+sub check {
+ my $self = shift;
+
+ my $error =
+ $self->ut_numbern('usagepricenum')
+ || $self->ut_number('pkgnum')
+ || $self->ut_number('usagepricepart')
+ || $self->ut_number('quantity')
+ ;
+ return $error if $error;
+
+ $self->SUPER::check;
+}
+
+=back
+
+=head1 BUGS
+
+=head1 SEE ALSO
+
+L<FS::Record>
+
+=cut
+
+1;
+
$self->SUPER::check;
}
+=item target_info
+
+Returns a hash reference of information about the target of this object.
+Keys are "label" and "multiplier".
+
+=cut
+
+sub target_info {
+ my $self = shift;
+ $self->targets->{$self->target};
+}
+
=item targets
+(Class method)
Returns a hash reference. Keys are possible values for the "target" field.
Values are hash references with "label" and "multiplier" keys.
t/svc_video.t
FS/part_pkg_usageprice.pm
t/part_pkg_usageprice.t
+FS/cust_pkg_usageprice.pm
+t/cust_pkg_usageprice.t
--- /dev/null
+BEGIN { $| = 1; print "1..1\n" }
+END {print "not ok 1\n" unless $loaded;}
+use FS::cust_pkg_usageprice;
+$loaded=1;
+print "ok 1\n";
),
],
(
- map { my $amount = $_->amount
- / (FS::part_pkg_usageprice->targets->{$_->target}{multiplier}||1);
- my $label = FS::part_pkg_usageprice->targets->{$_->target}{label};
+ map { my $amount = $_->amount / ($_->target_info->{multiplier} || 1);
+ my $label = $_->target_info->{label};
[
{ data => "Plus $money_char". $_->price. ' '.
( $_->action eq 'increment' ? 'per' : 'for' ).
);
$hash{'custnum'} = $cust_main->custnum if $cust_main;
+my @cust_pkg_usageprice = ();
+foreach my $quantity_param ( grep ( $cgi->param($_) && $cgi->param($_) > 0 ),
+ grep /^usagepricenum(\d+)_quantity$/,
+ $cgi->param
+ )
+{
+ $quantity_param =~ /^usagepricenum(\d+)_quantity$/ or die 'unpossible';
+ my $num = $1;
+ push @cust_pkg_usageprice, new FS::cust_pkg_usageprice {
+ usagepricepart => scalar($cgi->param("usagepricenum${num}_usagepricepart")),
+ quantity => scalar($cgi->param($quantity_param)),
+ };
+}
+$hash{cust_pkg_usageprice} = \@cust_pkg_usageprice;
+
if ( $quotationnum ) {
$quotation_pkg = new FS::quotation_pkg \%hash;
--- /dev/null
+% unless ( $opt{'js_only'} ) {
+
+ <INPUT TYPE="hidden" NAME="<%$name%>" ID="<%$id%>" VALUE="<% $curr_value %>">
+
+ <INPUT TYPE = "hidden"
+ NAME = "<%$name%>_usagepricepart"
+ ID = "<%$id%>_usagepricepart"
+ VALUE = "<% $part_pkg_usageprice->usagepricepart %>"
+ >
+
+ <TABLE STYLE="display:inline">
+ <TR>
+
+% ###
+% # action
+% ###
+ <TD>
+% # maybe we should be a quantity entry instead of a select? even more
+% # javascript auto-calculation need to display a subtotal & total
+ <SELECT NAME = "<%$name%>_quantity"
+ ID = "<%$id%>_quantity"
+ <% $onchange %>
+ >
+% my $info = $part_pkg_usageprice->target_info;
+% my $amount = $part_pkg_usageprice->amount / ($info->{multiplier}||1);
+ <OPTION VALUE="">Additional <% $info->{label} %>
+% for (1..100) { #100? arbitrary.
+ <OPTION VALUE="<% $_ %>"><%
+ $money_char. sprintf('%.2f', $_ * $part_pkg_usageprice->price ).
+ ' '.
+ 'for'. #( $part_pkg_usageprice->action eq 'increment' ? 'per' : 'for' ).
+ ' '.
+ ( $_ * $amount ). ' '. $info->{label}
+ %>
+% }
+ </SELECT>
+ </TD>
+
+ </TR>
+ </TABLE>
+
+% }
+<%init>
+
+#my $targets = FS::part_pkg_usageprice->targets;
+
+my( %opt ) = @_;
+
+my $conf = new FS::Conf;
+my $money_char = $conf->config('money_char') || '$';
+
+my $name = $opt{'element_name'} || $opt{'field'} || 'usagepricenum';
+my $id = $opt{'id'} || $opt{'field'} || 'usagepricenum';
+
+my $curr_value = $opt{'curr_value'} || $opt{'value'};
+
+my $onchange = '';
+if ( $opt{'onchange'} ) {
+ $onchange = $opt{'onchange'};
+ $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/;
+ $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack. all onchange
+ #callbacks should act the same
+ $onchange = 'onChange="'. $onchange. '"';
+}
+
+my $cust_pkg_usageprice = $curr_value
+ ? qsearchs('cust_pkg_usageprice', { 'usagepricenum' => $curr_value } )
+ : new FS::cust_pkg_usageprice { 'usagepricepart' => $opt{usagepricepart} };
+
+my $part_pkg_usageprice = $cust_pkg_usageprice->part_pkg_usageprice;
+
+</%init>
}
}
-// if this form element exists, then the start date is a future
-// package change date; don't replace it
+ // if this form element exists, then the start date is a future
+ // package change date; don't replace it
if ( form.delay ) {
return;
}
date_button_disabled.style.display = '';
}
+ get_part_pkg_usageprice( opt.value, update_part_pkg_usageprice );
+
} else {
form.submitButton.disabled = true;
if ( discountnum ) { form.discountnum.disabled = true; }
}
}
+function update_part_pkg_usageprice(part_pkg_usageprice) {
+
+ var table = document.getElementById('cust_pkg_usageprice_table');
+
+ // black the current usage price rows
+ for ( var r = table.rows.length - 1; r >= 0; r-- ) {
+ table.deleteRow(r);
+ }
+
+ // add the new usage price rows
+ var rownum = 0;
+ var usagepriceArray = eval('(' + part_pkg_usageprice + ')' );
+ for ( var s = 0; s < usagepriceArray.length; s=s+2 ) {
+ //surely this should be some kind of JSON structure
+ var html = usagepriceArray[s+0];
+ var javascript = usagepriceArray[s+1];
+
+ // a lot like ("inspiried by") edit/elements/edit.html function spawn_<%$field%>
+
+ // XXX evaluate the javascript
+ //if (window.ActiveXObject) {
+ // window.execScript(newfunc);
+ //} else { /* (window.XMLHttpRequest) */
+ // //window.eval(newfunc);
+ // setTimeout(newfunc, 0);
+ //}
+
+ var row = table.insertRow(rownum++);
+
+ //var label_cell = document.createElement('TD');
+
+ //label_cell.id = '<% $field %>_label' + <%$field%>_fieldnum;
+
+ //label_cell.style.textAlign = "right";
+ //label_cell.style.verticalAlign = "top";
+ //label_cell.style.borderTop = "1px solid black";
+ //label_cell.style.paddingTop = "5px";
+
+ //label_cell.innerHTML = '<% $label %>';
+
+ //row.appendChild(label_cell);
+
+ var widget_cell = document.createElement('TD');
+
+ //widget_cell.style.borderTop = "1px solid black";
+ widget_cell.style.paddingTop = "3px";
+ widget_cell.colSpan = "2";
+
+ widget_cell.innerHTML = html;
+
+ row.appendChild(widget_cell);
+
+ }
+
+ if ( rownum > 0 ) {
+ document.getElementById('cust_pkg_usageprice_title').style.display = '';
+ } else {
+ document.getElementById('cust_pkg_usageprice_title').style.display = 'none';
+ }
+
+}
+
+
function standardize_new_location() {
var form = document.OrderPkgForm;
var loc = form.locationnum;
grep $opt{$_},
qw( lock_pkgpart lock_locationnum qualnum quotationnum svcpart );
-my $height = $opt{'lock_locationnum'} ? 336 : 606;
+my $height = $opt{'lock_locationnum'} ? 470 : 740;
</%init>
--- /dev/null
+% unless ( $opt{'js_only'} ) {
+
+ <% include('tr-td-label.html', %opt) %>
+ <TD <% $cell_style %>>
+
+% }
+%
+ <% include( '/elements/cust_pkg_usageprice.html', %opt ) %>
+%
+% unless ( $opt{'js_only'} ) {
+
+ </TD>
+ </TR>
+
+% }
+<%init>
+
+my( %opt ) = @_;
+
+my $cell_style = $opt{'cell_style'} ? 'STYLE="'. $opt{'cell_style'}. '"' : '';
+
+#$opt{'label'} ||= 'XXX Something';
+
+</%init>
<& /elements/header-popup.html, mt("Detach Package to New Customer") &>
-<SCRIPT TYPE="text/javascript" SRC="../elements/order_pkg.js"></SCRIPT>
-
<& /elements/error.html &>
<FORM NAME="OrderPkgForm" ACTION="<% $p %>edit/process/detach-cust_pkg.html" METHOD=POST>
}
&>
+<& /elements/xmlhttp.html,
+ 'url' => $p.'misc/xmlhttp-part_pkg_usageprice.html',
+ 'subs' => [ 'get_part_pkg_usageprice' ],
+&>
+
+
<LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
<SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
</TABLE><BR>
+%#so:
+%# - hide until you selecdt a pacakge with add-ons
+%# -lookup and display the available add-ons when
+%# -add them to the (recur if there is one, otherwise setup) price and display magically like processing fees do on edit/cust_pay.cgi
+
+%# better label?
+<FONT CLASS = "fsinnerbox-title"
+ ID = "cust_pkg_usageprice_title"
+ STYLE = "display:none"
+><% mt('Usage add-ons') |h %></FONT>
+<TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0 ID="cust_pkg_usageprice_table">
+
+</TABLE>
+<BR>
+
% my $discount_cust_pkg = $curuser->access_right('Discount customer package');
% my $waive_setup_fee = $curuser->access_right('Waive setup fee');
%
--- /dev/null
+<% encode_json( \@return ) %>\
+<%init>
+
+my( $pkgpart ) = $cgi->param('arg');
+
+#could worry about agent-virting this so you can't see the add-on pricing of
+# other agents, but not a real-world big worry
+
+my $part_pkg = qsearchs( 'part_pkg', { pkgpart=>$pkgpart } );
+
+my $num = 0;
+
+my @return = map {
+ my @inc = ('/elements/cust_pkg_usageprice.html',
+ 'usagepricepart' => $_->usagepricepart,
+ );
+
+ ( include(@inc, field=>'usagepricenum'.$num, html_only=>1 ),
+ include(@inc, field=>'usagepricenum'.$num++, js_only=>1 ),
+ );
+ }
+ $part_pkg->part_pkg_usageprice;
+
+</%init>