I'm still not getting exactly what I wanted here are some lines of code that I am using. I've posted the lines related the hash that I'm having trouble with). The code is not as efficient as you'll probably think but I'm working on it.
On the main application:
%returnVals = (); %X_Axis = (); %Y_Axis = ();
$ExcelLink = &swOpenExcel("FILE", $lAppName, $wbFullDirectory, $wbChar
+tDirectory, $wbExcelName, $wbExcelData, $dataCol, $strtRow, $labelCol
+, $endRow, $typeGraph, $ChartName, $lChartTitle, 'JPG', $lLegendKey,
+$lData_Labels, $fields{$q->param(X_Col)}, $fields{$q->param(Y_Col)},
+\%returnVals, \%X_Axis, \%Y_Axis);
In the module:
($typeData, $AppName, $wbFullDirectory, $wbChartDirectory, $wbExcelNam
+e, $wbExcelData, $dataCol, $strtRow, $labelCol, $endRow, $typeGraph,
+$ChartName, $ChartTitle, $filter, $LegendKey, $LegendType, $rVals, $X
+, $Y) = @_;
my %X_Axis = %$X;
my %Y_Axis = %$Y;
my %returnValues = %$rVals;
$returnValues{"ExcelLink"} = "/Web$AppName/Charts/" . $wbExcelName . "
+_" . $extension . "\.xls";
|