X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2FREAL_cust_pkg.cgi;h=9cbab2a162597c248ad9546091b1327491e0e49f;hb=69dc4d8ce9a688f3ba602f3342b05c936a66aaf9;hp=abfaac3fce4d8f23594e50a3f044bfad8c7ed8d4;hpb=a4c96748eb6eab29a70f3a944c6520283a635c78;p=freeside.git diff --git a/httemplate/edit/REAL_cust_pkg.cgi b/httemplate/edit/REAL_cust_pkg.cgi index abfaac3fc..9cbab2a16 100755 --- a/httemplate/edit/REAL_cust_pkg.cgi +++ b/httemplate/edit/REAL_cust_pkg.cgi @@ -1,12 +1,19 @@ <% -# +# my $error =''; my $pkgnum = ''; if ( $cgi->param('error') ) { $error = $cgi->param('error'); $pkgnum = $cgi->param('pkgnum'); + if ( $error eq '_bill_areyousure' ) { + my $bill = $cgi->param('bill'); + $error = "You are attempting to set the next bill date to $bill, which is + in the past. This will charge the customer for the interval + from $bill until now. Are you sure you want to do this? ". + ''; + } } else { my($query) = $cgi->keywords; $query =~ /^(\d+)$/ or die "no pkgnum"; @@ -30,6 +37,15 @@ print header('Package Edit'); #, menubar( # 'Main Menu' => popurl(2) #)); +%> + + + + + + +<% + #print info my($susp,$cancel,$expire)=( $cust_pkg->getfield('susp'), @@ -45,7 +61,10 @@ print '
', print qq!Error: $error! if $error; -print &ntable("#cccccc"), '', &ntable("#cccccc",2), +#my $format = "%c %z (%Z)"; +my $format = "%m/%d/%Y %T %z (%Z)"; + +print ntable("#cccccc",2), 'Package number', $pkgnum, '', 'Package', @@ -55,27 +74,64 @@ print &ntable("#cccccc"), '', &ntable("#cccccc",2), 'Order taker', $otaker, '', 'Setup date'. - '', - 'Next bill date', - '', -; + ''. + ' '. + ''; + +print 'Last bill date', + ''. + ' '. + '' + if $cust_pkg->dbdef_table->column('last_bill'); + +print 'Next bill date', + ''. + ' '. + ''; print 'Suspension date', - time2str("%D",$susp), '' + time2str($format, $susp), '' if $susp; -print 'Expiration date', - time2str("%D",$expire), '' - if $expire; +#print 'Expiration date', +# time2str("%D",$expire), '' +# if $expire; +print 'Expiration date'. + '', + ''. + ' '. + '
(will cancel this package'. + ' when the date is reached)'. + ''; print 'Cancellation date', - time2str("%D",$cancel), '' + time2str($format, $cancel), '' if $cancel; %> -'. + +