diff options
| author | ivan <ivan> | 2002-09-10 00:25:06 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-09-10 00:25:06 +0000 |
| commit | 67026d72c83dcdb59cca0d7e197a3f92900941a3 (patch) | |
| tree | 7ccc874a1516b24c798929626088890d2d6c8cbc | |
| parent | db3ef51ceabcc2864b1b019fcf93d0529ca1c78d (diff) | |
1.4 workaround for >8 char otakers
| -rwxr-xr-x | httemplate/search/report_cc.cgi | 3 | ||||
| -rwxr-xr-x | httemplate/search/report_credit.cgi | 3 | ||||
| -rwxr-xr-x | httemplate/search/report_receivables.cgi | 3 | ||||
| -rwxr-xr-x | httemplate/search/report_tax.cgi | 3 |
4 files changed, 8 insertions, 4 deletions
diff --git a/httemplate/search/report_cc.cgi b/httemplate/search/report_cc.cgi index c2ab726b6..ff8c1fb0b 100755 --- a/httemplate/search/report_cc.cgi +++ b/httemplate/search/report_cc.cgi @@ -1,7 +1,8 @@ <!-- mason kludge --> <% -my $user = getotaker; +#my $user = getotaker; +my $user = $FS::UID::user; #dumb 1.4 8-char workaround $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/; my $beginning = $1; diff --git a/httemplate/search/report_credit.cgi b/httemplate/search/report_credit.cgi index 2adafc06e..05017f4a9 100755 --- a/httemplate/search/report_credit.cgi +++ b/httemplate/search/report_credit.cgi @@ -1,7 +1,8 @@ <!-- mason kludge --> <% -my $user = getotaker; +#my $user = getotaker; +my $user = $FS::UID::user; #dumb 1.4 8-char workaround $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/; my $beginning = $1; diff --git a/httemplate/search/report_receivables.cgi b/httemplate/search/report_receivables.cgi index fdd3779a9..04a41366f 100755 --- a/httemplate/search/report_receivables.cgi +++ b/httemplate/search/report_receivables.cgi @@ -1,7 +1,8 @@ <!-- mason kludge --> <% -my $user = getotaker; +#my $user = getotaker; +my $user = $FS::UID::user; #dumb 1.4 8-char workaround print header('Current Receivables Report Results'); diff --git a/httemplate/search/report_tax.cgi b/httemplate/search/report_tax.cgi index ac76fad6e..835554a2e 100755 --- a/httemplate/search/report_tax.cgi +++ b/httemplate/search/report_tax.cgi @@ -1,7 +1,8 @@ <!-- mason kludge --> <% -my $user = getotaker; +#my $user = getotaker; +my $user = $FS::UID::user; #dumb 1.4 8-char workaround $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/; my $beginning = $1; |