| Line 136... |
Line 136... |
| 136 |
#my @ProductList = @{ getData (\@displayFields, \@whereClause, $DBTABLE, $FORM{sortby}, $curpage, $pagelimit) };
|
136 |
#my @ProductList = @{ getData (\@displayFields, \@whereClause, $DBTABLE, $FORM{sortby}, $curpage, $pagelimit) };
|
| 137 |
my $x = scalar @ProductList; # How many results were returned?
|
137 |
my $x = scalar @ProductList; # How many results were returned?
|
| Line 138... |
Line 138... |
| 138 |
|
138 |
|
| 139 |
# If the user is trying to download an excel export, create the file...
|
139 |
# If the user is trying to download an excel export, create the file...
|
| 140 |
my $filename = $FORM{excel} ? exportExcel (\@ProductList) : "";
|
140 |
my $filename = $FORM{excel} ? exportExcel (\@ProductList) : "";
|
| 141 |
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";
|
141 |
my $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl?LOGOUT" }, "[Log Out]") : "You are not signed in.";
|
| Line 142... |
Line 142... |
| 142 |
my $xlsLink = $filename ? " ".$h->a ({ href=>$filename }, "[Download Now]") : "";
|
142 |
my $xlsLink = $filename ? " ".$h->a ({ href=>$filename }, "[Download Now]") : "";
|
| 143 |
|
143 |
|
| 144 |
# Set some cookie stuff...
|
144 |
# Set some cookie stuff...
|