From 4c94c2023ca28113398ec934c64182444c87429a Mon Sep 17 00:00:00 2001 From: Mitch Jackson Date: Fri, 8 Dec 2017 20:03:27 +0000 Subject: [PATCH] whitespace only --- FS/FS/Record.pm | 129 +++++++++++++++--------------- httemplate/search/cust_credit.html | 4 +- httemplate/search/elements/search.html | 52 ++++++------ httemplate/search/report_cust_credit.html | 2 +- 4 files changed, 93 insertions(+), 94 deletions(-) diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 82974b36a..bf676d1cc 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -71,7 +71,7 @@ FS::UID->install_callback( sub { eval "use FS::Conf;"; die $@ if $@; - $conf = FS::Conf->new; + $conf = FS::Conf->new; $conf_encryption = $conf->exists('encryption'); $conf_encryptionmodule = $conf->config('encryptionmodule'); $conf_encryptionpublickey = join("\n",$conf->config('encryptionpublickey')); @@ -106,7 +106,7 @@ FS::Record - Database record objects $record = qsearchs FS::Record 'table', \%hash; $record = qsearchs FS::Record 'table', { 'column' => 'value', ... }; - @records = qsearch FS::Record 'table', \%hash; + @records = qsearch FS::Record 'table', \%hash; @records = qsearch FS::Record 'table', { 'column' => 'value', ... }; $table = $record->table; @@ -176,14 +176,14 @@ Creates a new record. It doesn't store it in the database, though. See L<"insert"> for that. Note that the object stores this hash reference, not a distinct copy of the -hash it points to. You can ask the object for a copy with the I +hash it points to. You can ask the object for a copy with the I method. TABLE can only be omitted when a dervived class overrides the table method. =cut -sub new { +sub new { my $proto = shift; my $class = ref($proto) || $proto; my $self = {}; @@ -194,10 +194,10 @@ sub new { carp "warning: FS::Record::new called with table name ". $self->{'Table'} unless $nowarn_classload; } - + $self->{'Hash'} = shift; - foreach my $field ( grep !defined($self->{'Hash'}{$_}), $self->fields ) { + foreach my $field ( grep !defined($self->{'Hash'}{$_}), $self->fields ) { $self->{'Hash'}{$field}=''; } @@ -419,7 +419,7 @@ sub qsearch { push @statement, $statement; warn "[debug]$me $statement\n" if $DEBUG > 1 || $debug; - + foreach my $field ( grep defined( $record->{$_} ) && $record->{$_} ne '', @real_fields @@ -522,12 +522,12 @@ sub qsearch { # Check for encrypted fields and decrypt them. ## only in the local copy, not the cached object no warnings 'deprecated'; # XXX silence the warning for now - if ( $conf_encryption + if ( $conf_encryption && eval 'defined(@FS::'. $table . '::encrypted_fields)' ) { foreach my $record (@return) { foreach my $field (eval '@FS::'. $table . '::encrypted_fields') { - next if $field eq 'payinfo' - && ($record->isa('FS::payinfo_transaction_Mixin') + next if $field eq 'payinfo' + && ($record->isa('FS::payinfo_transaction_Mixin') || $record->isa('FS::payinfo_Mixin') ) && $record->payby && !grep { $record->payby eq $_ } @encrypt_payby; @@ -648,7 +648,7 @@ sub _query { push @statement, $statement; warn "[debug]$me $statement\n" if $DEBUG > 1 || $debug; - + foreach my $field ( grep defined( $record->{$_} ) && $record->{$_} ne '', @real_fields @@ -731,12 +731,12 @@ sub _from_hashref { # Check for encrypted fields and decrypt them. ## only in the local copy, not the cached object - if ( $conf_encryption + if ( $conf_encryption && eval 'defined(@FS::'. $table . '::encrypted_fields)' ) { foreach my $record (@return) { foreach my $field (eval '@FS::'. $table . '::encrypted_fields') { - next if $field eq 'payinfo' - && ($record->isa('FS::payinfo_transaction_Mixin') + next if $field eq 'payinfo' + && ($record->isa('FS::payinfo_transaction_Mixin') || $record->isa('FS::payinfo_Mixin') ) && $record->payby && !grep { $record->payby eq $_ } @encrypt_payby; @@ -761,7 +761,7 @@ sub get_real_fields { my $real_fields = shift; ## could be optimized more for readability - return ( + return ( map { my $op = '='; @@ -822,7 +822,7 @@ sub get_real_fields { } } @{ $real_fields } - ); + ); } =item by_key PRIMARY_KEY_VALUE @@ -860,7 +860,7 @@ single SELECT spanning multiple tables, and cache the results for subsequent method calls. Interface will almost definately change in an incompatible fashion. -Arguments: +Arguments: =cut @@ -943,7 +943,7 @@ sub get { # to avoid "Use of unitialized value" errors if ( defined ( $self->{Hash}->{$field} ) ) { $self->{Hash}->{$field}; - } else { + } else { ''; } } @@ -958,7 +958,7 @@ Sets the value of the column/field/key COLUMN to VALUE. Returns VALUE. =cut -sub set { +sub set { my($self,$field,$value) = @_; $self->{'modified'} = 1; $self->{'Hash'}->{$field} = $value; @@ -1000,7 +1000,7 @@ sub AUTOLOAD { confess "errant AUTOLOAD $field for $self (no args)" unless blessed($self) && $self->can('getfield'); $self->getfield($field); - } + } } # efficient @@ -1011,7 +1011,7 @@ sub AUTOLOAD { # $_[0]->setfield($field, $_[1]); # } else { # $_[0]->getfield($field); -# } +# } #} =item hash @@ -1028,7 +1028,7 @@ sub hash { my($self) = @_; confess $self. ' -> hash: Hash attribute is undefined' unless defined($self->{'Hash'}); - %{ $self->{'Hash'} }; + %{ $self->{'Hash'} }; } =item hashref @@ -1163,14 +1163,14 @@ sub insert { } my $table = $self->table; - + # Encrypt before the database if ( scalar( eval '@FS::'. $table . '::encrypted_fields') && $conf_encryption ) { foreach my $field (eval '@FS::'. $table . '::encrypted_fields') { - next if $field eq 'payinfo' - && ($self->isa('FS::payinfo_transaction_Mixin') + next if $field eq 'payinfo' + && ($self->isa('FS::payinfo_transaction_Mixin') || $self->isa('FS::payinfo_Mixin') ) && $self->payby && !grep { $self->payby eq $_ } @encrypt_payby; @@ -1204,7 +1204,7 @@ sub insert { local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; - local $SIG{QUIT} = 'IGNORE'; + local $SIG{QUIT} = 'IGNORE'; local $SIG{TERM} = 'IGNORE'; local $SIG{TSTP} = 'IGNORE'; local $SIG{PIPE} = 'IGNORE'; @@ -1214,7 +1214,7 @@ sub insert { # get inserted id from the database, if applicable & needed if ( $db_seq && ! $self->getfield($primary_key) ) { warn "[debug]$me retreiving sequence from database\n" if $DEBUG; - + my $insertid = ''; if ( driver_name eq 'Pg' ) { @@ -1263,7 +1263,7 @@ sub insert { } else { dbh->rollback if $FS::UID::AutoCommit; - return "don't know how to retreive inserted ids from ". driver_name. + return "don't know how to retreive inserted ids from ". driver_name. ", try using counterfiles (maybe run dbdef-create?)"; } @@ -1287,7 +1287,7 @@ sub insert { dbh->commit or croak dbh->errstr if $FS::UID::AutoCommit; - # Now that it has been saved, reset the encrypted fields so that $new + # Now that it has been saved, reset the encrypted fields so that $new # can still be used. foreach my $field (keys %{$saved}) { $self->setfield($field, $saved->{$field}); @@ -1346,7 +1346,7 @@ sub delete { local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; - local $SIG{QUIT} = 'IGNORE'; + local $SIG{QUIT} = 'IGNORE'; local $SIG{TERM} = 'IGNORE'; local $SIG{TSTP} = 'IGNORE'; local $SIG{PIPE} = 'IGNORE'; @@ -1354,7 +1354,7 @@ sub delete { my $rc = $sth->execute or return $sth->errstr; #not portable #return "Record not found, statement:\n$statement" if $rc eq "0E0"; $h_sth->execute or return $h_sth->errstr if $h_sth; - + dbh->commit or croak dbh->errstr if $FS::UID::AutoCommit; #no need to needlessly destoy the data either (causes problems actually) @@ -1404,15 +1404,15 @@ sub replace { my $error = $new->check; return $error if $error; - + # Encrypt for replace my $saved = {}; if ( scalar( eval '@FS::'. $new->table . '::encrypted_fields') && $conf_encryption ) { foreach my $field (eval '@FS::'. $new->table . '::encrypted_fields') { - next if $field eq 'payinfo' - && ($new->isa('FS::payinfo_transaction_Mixin') + next if $field eq 'payinfo' + && ($new->isa('FS::payinfo_transaction_Mixin') || $new->isa('FS::payinfo_Mixin') ) && $new->payby && !grep { $new->payby eq $_ } @encrypt_payby; @@ -1424,7 +1424,7 @@ sub replace { #my @diff = grep $new->getfield($_) ne $old->getfield($_), $old->fields; my %diff = map { ($new->getfield($_) ne $old->getfield($_)) ? ($_, $new->getfield($_)) : () } $old->fields; - + unless (keys(%diff) || $no_update_diff ) { carp "[warning]$me ". ref($new)."->replace ". ( $primary_key ? "$primary_key ".$new->get($primary_key) : '' ). @@ -1435,7 +1435,7 @@ sub replace { my $statement = "UPDATE ". $old->table. " SET ". join(', ', map { - "$_ = ". _quote($new->getfield($_),$old->table,$_) + "$_ = ". _quote($new->getfield($_),$old->table,$_) } real_fields($old->table) ). ' WHERE '. join(' AND ', @@ -1485,7 +1485,7 @@ sub replace { local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; - local $SIG{QUIT} = 'IGNORE'; + local $SIG{QUIT} = 'IGNORE'; local $SIG{TERM} = 'IGNORE'; local $SIG{TSTP} = 'IGNORE'; local $SIG{PIPE} = 'IGNORE'; @@ -1497,7 +1497,7 @@ sub replace { dbh->commit or croak dbh->errstr if $FS::UID::AutoCommit; - # Now that it has been saved, reset the encrypted fields so that $new + # Now that it has been saved, reset the encrypted fields so that $new # can still be used. foreach my $field (keys %{$saved}) { $new->setfield($field, $saved->{$field}); @@ -1541,7 +1541,7 @@ non-custom fields, foreign keys, etc., and call this method via $self->SUPER::ch =cut -sub check { +sub check { my $self = shift; foreach my $field ($self->virtual_fields) { my $error = $self->ut_textn($field); @@ -1552,7 +1552,7 @@ sub check { =item virtual_fields [ TABLE ] -Returns a list of virtual fields defined for the table. This should not +Returns a list of virtual fields defined for the table. This should not be exported, and should only be called as an instance or class method. =cut @@ -1646,8 +1646,8 @@ format_types). =back -PARAMS is a hashref (or base64-encoded Storable hashref) containing the -POSTed data. It must contain the field "uploaded files", generated by +PARAMS is a hashref (or base64-encoded Storable hashref) containing the +POSTed data. It must contain the field "uploaded files", generated by /elements/file-upload.html and containing the list of uploaded files. Currently only supports a single file named "file". @@ -1667,13 +1667,13 @@ sub process_batch_import { my $param = shift; # because some job-spawning code (JSRPC) pre-freezes the arguments, - # and then the 'frozen' attribute doesn't get set, and thus $job->args + # and then the 'frozen' attribute doesn't get set, and thus $job->args # doesn't know to thaw them, we have to do this everywhere. if (!ref $param) { $param = thaw(decode_base64($param)); } warn Dumper($param) if $DEBUG; - + my $files = $param->{'uploaded_files'} or die "No files provided.\n"; @@ -2011,7 +2011,7 @@ sub batch_import { next if $line =~ /^\s*$/; #skip empty lines $line = &{$row_callback}($line) if $row_callback; - + next if $line =~ /^\s*$/; #skip empty lines $parser->parse($line) or do { @@ -2064,7 +2064,7 @@ sub batch_import { foreach my $field ( @fields ) { my $value = shift @columns; - + if ( ref($field) eq 'CODE' ) { #&{$field}(\%hash, $value); push @later, $field, $value; @@ -2183,7 +2183,7 @@ sub _h_statement { =item unique COLUMN -B: External use is B. +B: External use is B. Replaces COLUMN in record with a unique number, using counters in the filesystem. Used by the B method on single-field unique columns @@ -2359,7 +2359,7 @@ sub ut_numbern { =item ut_decimal COLUMN[, DIGITS] -Check/untaint decimal numbers (up to DIGITS decimal places. If there is an +Check/untaint decimal numbers (up to DIGITS decimal places. If there is an error, returns the error, otherwise returns false. =item ut_decimaln COLUMN[, DIGITS] @@ -2489,7 +2489,7 @@ error, returns the error, otherwise returns false. sub ut_alphan { my($self,$field)=@_; - $self->getfield($field) =~ /^(\w*)$/ + $self->getfield($field) =~ /^(\w*)$/ or return "Illegal (alphanumeric) $field: ". $self->getfield($field); $self->setfield($field,$1); ''; @@ -2504,7 +2504,7 @@ an error, returns the error, otherwise returns false. sub ut_alphasn { my($self,$field)=@_; - $self->getfield($field) =~ /^([\w ]*)$/ + $self->getfield($field) =~ /^([\w ]*)$/ or return "Illegal (alphanumeric) $field: ". $self->getfield($field); $self->setfield($field,$1); ''; @@ -2824,8 +2824,8 @@ sub ut_name { $self->getfield($field) =~ /^([\p{Word} \,\.\-\']+)$/ or return gettext('illegal_name'). " $field: ". $self->getfield($field); my $name = $1; - $name =~ s/^\s+//; - $name =~ s/\s+$//; + $name =~ s/^\s+//; + $name =~ s/\s+$//; $name =~ s/\s+/ /g; $self->setfield($field, $name); ''; @@ -2906,7 +2906,7 @@ see L. sub ut_country { my( $self, $field ) = @_; unless ( $self->getfield($field) =~ /^(\w\w)$/ ) { - if ( $self->getfield($field) =~ /^([\w \,\.\(\)\']+)$/ + if ( $self->getfield($field) =~ /^([\w \,\.\(\)\']+)$/ && country2code($1) ) { $self->setfield($field,uc(country2code($1))); } @@ -3167,7 +3167,7 @@ sub loadRSA { if ($conf_encryptionpublickey && $conf_encryptionpublickey ne '') { $rsa_encrypt = $rsa_module->new_public_key($conf_encryptionpublickey); } - + # Intitalize Decryption if ($conf_encryptionprivatekey && $conf_encryptionprivatekey ne '') { $rsa_decrypt = $rsa_module->new_private_key($conf_encryptionprivatekey); @@ -3235,8 +3235,8 @@ sub scalar_sql { =item count [ WHERE [, PLACEHOLDER ...] ] -Convenience method for the common case of "SELECT COUNT(*) FROM table", -with optional WHERE. Must be called as method on a class with an +Convenience method for the common case of "SELECT COUNT(*) FROM table", +with optional WHERE. Must be called as method on a class with an associated table. =cut @@ -3273,7 +3273,7 @@ sub row_exists { =item real_fields [ TABLE ] -Returns a list of the real columns in the specified table. Called only by +Returns a list of the real columns in the specified table. Called only by fields() and other subroutines elsewhere in FS::Record. =cut @@ -3288,7 +3288,7 @@ sub real_fields { =item pvf FIELD_NAME -Returns the FS::part_virtual_field object corresponding to a field in the +Returns the FS::part_virtual_field object corresponding to a field in the record (specified by FIELD_NAME). =cut @@ -3301,7 +3301,7 @@ sub pvf { my $concat = [ "'cf_'", "name" ]; return qsearchs({ table => 'part_virtual_field', hashref => { dbtable => $self->table, - name => $name + name => $name }, select => 'vfieldpart, dbtable, length, label, '.concat_sql($concat).' as name', }); @@ -3335,7 +3335,7 @@ sub _quote { cluck "WARNING: Attempting to set non-null integer $table.$column null; ". "using 0 instead"; 0; - } elsif ( $value =~ /^\d+(\.\d+)?$/ && + } elsif ( $value =~ /^\d+(\.\d+)?$/ && ! $column_type =~ /(char|binary|text)$/i ) { $value; } elsif (( $column_type =~ /^bytea$/i || $column_type =~ /(blob|varbinary)/i ) @@ -3399,7 +3399,7 @@ the current database. =cut -sub str2time_sql { +sub str2time_sql { my $driver = shift || driver_name; return 'UNIX_TIMESTAMP(' if $driver =~ /^mysql/i; @@ -3422,7 +3422,7 @@ the current database. =cut -sub str2time_sql_closing { +sub str2time_sql_closing { my $driver = shift || driver_name; return ' )::INTEGER ' if $driver =~ /^Pg/i; @@ -3496,7 +3496,7 @@ sub concat_sql { =item group_concat_sql COLUMN, DELIMITER -Returns an SQL expression to concatenate an aggregate column, using +Returns an SQL expression to concatenate an aggregate column, using GROUP_CONCAT() for mysql and array_to_string() and array_agg() for Pg. =cut @@ -3514,7 +3514,7 @@ sub group_concat_sql { =item midnight_sql DATE -Returns an SQL expression to convert DATE (a unix timestamp) to midnight +Returns an SQL expression to convert DATE (a unix timestamp) to midnight on that day in the system timezone, using the default driver name. =cut @@ -3586,4 +3586,3 @@ http://poop.sf.net/ =cut 1; - diff --git a/httemplate/search/cust_credit.html b/httemplate/search/cust_credit.html index 1b39b051d..c0da01afe 100755 --- a/httemplate/search/cust_credit.html +++ b/httemplate/search/cust_credit.html @@ -53,7 +53,7 @@ if ($unapplied) { push @style, ''; } -push @header, emt('Date'), +push @header, emt('Date'), emt('By'), emt('Reason'), emt('Info'), @@ -199,7 +199,7 @@ my $where = 'WHERE '. join(' AND ', @search); my $count_query = 'SELECT COUNT(*), SUM(amount) '; $count_query .= ', SUM(' . FS::cust_credit->unapplied_sql . ') ' if $unapplied; -$count_query .= 'FROM cust_credit'. +$count_query .= 'FROM cust_credit'. $addl_from. FS::UI::Web::join_cust_main('cust_credit'). $where; diff --git a/httemplate/search/elements/search.html b/httemplate/search/elements/search.html index 7f4bbf812..3b8895e94 100644 --- a/httemplate/search/elements/search.html +++ b/httemplate/search/elements/search.html @@ -9,7 +9,7 @@ Example: ### 'title' => 'Page title', - + 'name_singular' => 'item', #singular name for the records returned #OR# # (preferred, will be pluralized automatically) 'name' => 'items', #plural name for the records returned @@ -30,10 +30,10 @@ Example: 'addl_from' => '', #'LEFT JOIN othertable USING ( key )', 'extra_sql' => '', #'AND otherstuff', #'WHERE onlystuff', 'order_by' => 'ORDER BY something', - + }, # "select * from tablename"; - + #required unless 'query' is an SQL query string (shouldn't be...) 'count_query' => 'SELECT COUNT(*) FROM tablename', @@ -47,7 +47,7 @@ Example: 'header' => [ '#', 'Item', { 'label' => 'Another Item', - + }, ], @@ -70,11 +70,11 @@ Example: 'redirect_empty' => sub { my( $cgi ) = @_; popurl(2).'view/item.html'; }, - + ### # optional ### - + # some HTML callbacks... 'menubar' => '', #menubar arrayref 'html_init' => '', #after the header/menubar and before the pager @@ -85,21 +85,21 @@ Example: 'html_foot' => '', #at the bottom 'html_posttotal' => '', #at the bottom # (these three can be strings or coderefs) - + 'count_addl' => [], #additional count fields listref of sprintf strings or coderefs # [ $money_char.'%.2f total paid', ], - + #second (smaller) header line, currently only for HTML 'header2 => [ '#', 'Item', { 'label' => 'Another Item', - + }, ], #listref of column footers 'footer' => [], - + #disabling things 'disable_download' => '', # set true to hide the CSV/Excel download links 'disable_total' => '', # set true to hide the total" @@ -107,7 +107,7 @@ Example: 'disable_nonefound' => '', # set true to disable the "No matching Xs found" # message 'nohtmlheader' => '', # set true to remove the header and menu bar - + #handling "disabled" fields in the records 'disableable' => 1, # set set to 1 (or column position for "disabled" # status col) to enable if this table has a "disabled" @@ -140,7 +140,7 @@ Example: 'order_by_sql' => { #to keep complex SQL expressions out of cgi order_by value, 'fieldname' => 'sql snippet', # maps fields/sort_fields values to sql snippets } - + #listref - each item is the empty string, # or a listref of link and method name to append, # or a listref of link and coderef to run and append @@ -155,7 +155,7 @@ Example: #one letter for each column, left/right/center/none # or pass a listref with full values: [ 'left', 'right', 'center', '' ] 'align' => 'lrc.', - + #listrefs of ( scalars or coderefs ) # currently only HTML, maybe eventually Excel too 'color' => [], @@ -166,11 +166,11 @@ Example: # Excel-specific listref of ( hashrefs or coderefs ) # each hashref: http://search.cpan.org/dist/Spreadsheet-WriteExcel/lib/Spreadsheet/WriteExcel.pm#Format_methods_and_Format_properties 'xls_format' => => [], - + # miscellany 'download_label' => 'Download this report', - # defaults to 'Download full results' + # defaults to 'Download full results' 'link_field' => 'pkgpart' # will create internal links for each row, # with the value of this field as the NAME attribute @@ -210,7 +210,7 @@ Example: ) %> % -% } +% } <%init> my(%opt) = @_; @@ -304,10 +304,10 @@ if ( $opt{'agent_virt'} ) { $opt{$att} ||= [ map '', @{ $opt{'fields'} } ]; } - splice @{ $opt{'header'} }, $pos, 0, 'Agent'; - splice @{ $opt{'align'} }, $pos, 0, 'c'; - splice @{ $opt{'style'} }, $pos, 0, ''; - splice @{ $opt{'size'} }, $pos, 0, ''; + splice @{ $opt{'header'} }, $pos, 0, 'Agent'; + splice @{ $opt{'align'} }, $pos, 0, 'c'; + splice @{ $opt{'style'} }, $pos, 0, ''; + splice @{ $opt{'size'} }, $pos, 0, ''; splice @{ $opt{'fields'} }, $pos, 0, sub { $_[0]->agentnum ? $_[0]->agent->agent : '(global)'; }; splice @{ $opt{'color'} }, $pos, 0, ''; @@ -329,7 +329,7 @@ if ( $opt{'disableable'} ) { my $table = $query->{'table'}; - $count_query .= + $count_query .= ( $count_query =~ /\bWHERE\b/i ? ' AND ' : ' WHERE ' ). "( $table.disabled = '' OR $table.disabled IS NULL )"; @@ -342,10 +342,10 @@ if ( $opt{'disableable'} ) { $opt{$att} ||= [ map '', @{ $opt{'fields'} } ]; } - splice @{ $opt{'header'} }, $pos, 0, 'Status'; - splice @{ $opt{'align'} }, $pos, 0, 'c'; - splice @{ $opt{'style'} }, $pos, 0, 'b'; - splice @{ $opt{'size'} }, $pos, 0, ''; + splice @{ $opt{'header'} }, $pos, 0, 'Status'; + splice @{ $opt{'align'} }, $pos, 0, 'c'; + splice @{ $opt{'style'} }, $pos, 0, 'b'; + splice @{ $opt{'size'} }, $pos, 0, ''; splice @{ $opt{'fields'} }, $pos, 0, sub { shift->disabled ? 'DISABLED' : 'Active'; }; splice @{ $opt{'color'} }, $pos, 0, @@ -452,7 +452,7 @@ if ( ref $query ) { ], #'order_by' => $opt{order_by}. " ". $limit, ) - ]; + ]; } else { # not ref $query; plain SQL (still used as of 07/2015) diff --git a/httemplate/search/report_cust_credit.html b/httemplate/search/report_cust_credit.html index b283e0504..cf54c34b4 100644 --- a/httemplate/search/report_cust_credit.html +++ b/httemplate/search/report_cust_credit.html @@ -42,7 +42,7 @@ my $access_user = $FS::CurrentUser::CurrentUser->access_users_hashref('table' => my $unapplied = $cgi->param('unapplied') ? 1 : 0; -my $title = $cgi->param('unapplied') ? +my $title = $cgi->param('unapplied') ? 'Unapplied credit report' : 'Credit report'; -- 2.11.0