#===================================================================== # SQL-Ledger ERP # Copyright (c) 2007 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.com # #====================================================================== sub save_report { if ($form->{savereport}) { delete $form->{savereport}; &do_save_report; exit; } $form->{title} = $locale->text('Save Report'); $public = ($form->{reportlogin}) ? "" : "checked"; $form->{savereport} = 1; ($form->{reportdescription}, $form->{reportid}) = split /--/, $form->{report}; if ($form->{admin}) { $publicreport = qq| |.$locale->text('Public').qq| |; } else { $publicreport = $form->hide_form(qw(reportlogin public)); } $form->helpref("save_report", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
$publicreport
|.$locale->text('Description').qq|
|; for (qw(helpref report reportdescription public)) { delete $form->{$_} } $form->hide_form; %button = ('Save Report' => { ndx => 1, key => 'S', value => $locale->text('Save Report') }); if ($form->{reportid}) { $button{'Save Report as new'} = { ndx => 2, key => 'N', value => $locale->text('Save Report as new') }; $button{'Delete Report'} = { ndx => 3, key => 'D', value => $locale->text('Delete Report') }; } for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub do_save_report { $login = $form->{login}; $login =~ s/\@.*//; if ($form->{admin}) { if ($form->{public}) { delete $form->{reportlogin}; } else { $form->{reportlogin} ||= $login; } } else { $form->{reportlogin} ||= $login; } $form->save_report(\%myconfig); $form->{report} = qq|$form->{reportdescription}--$form->{reportid}|; if ($form->{callback}) { $form->{callback} .= qq|&report=|.$form->escape($form->{report},1); for (qw(reportcode reportlogin)) { $form->{callback} .= qq|&$_=$form->{$_}| } } $form->redirect; } sub save_report_as_new { delete $form->{reportid}; &do_save_report; } sub delete_report { delete $form->{reportdescription}; &do_save_report; } sub edit_column { %flds = split /[=,]/, $form->{flds}; ($fld, $ndx, $t) = split /,/, $form->{editcolumn}; $title = $form->{title}; if ($t eq 't') { $form->{title} = $locale->text('Edit Column Total'); $t = "t_"; } elsif ($t eq 'h') { $form->{title} = $locale->text('Edit Column Header'); $t = "h_"; } else { $form->{title} = $locale->text('Edit Column'); $t = ""; } $form->{title} .= " / $flds{$fld}"; %temp = (); for (qw(a w f)) { $temp{$_} = "$t${_}_$ndx"; } $form->{$temp{a}} ||= 'left'; for (qw(left right center)) { $checked{$_} = "checked" if $form->{$temp{a}} eq $_ } $helpref = $form->{helpref}; $form->helpref("edit_column", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|.$locale->text('Width').qq|
|.$locale->text('Align').qq| |.$locale->text('Left').qq| |.$locale->text('Right').qq|
|.$locale->text('Fill').qq|
|; for (keys %temp) { delete $form->{$temp{$_}} } for (qw(stylesheet)) { delete $form->{$_} } $form->{title} = $title; $form->{ndx} = $ndx; $form->{helpref} = $helpref; $form->hide_form; %button = ('Save Column' => { ndx => 1, key => 'S', value => $locale->text('Save Column') }, 'Delete Column' => { ndx => 2, key => 'D', value => $locale->text('Delete Column') } ); for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub add_column { %flds = split /[=,]/, $form->{flds}; %column_index = split /[=,]/, $form->{column_index}; $ndx = 1; for (keys %column_index) { delete $flds{$_}; $ndx++; } $title = $form->{title}; $form->{title} = $locale->text('Add Column'); $helpref = $form->{helpref}; $form->helpref("column", $myconfig{countrycode}); $form->header; print qq|
{script}>
$form->{helpref}$form->{title}
|; $form->{ndxstart} = $ndx; for (sort { $flds{$a} cmp $flds{$b} } keys %flds) { print qq| |; $form->{"new_fld_$ndx"} = $_; $form->hide_form("new_fld_$ndx"); $ndx++; } $form->{ndxend} = $ndx; print qq|
$flds{$_}
|.$locale->text('Width').qq|
|.$locale->text('Align').qq| |.$locale->text('Left').qq| |.$locale->text('Right').qq|
|.$locale->text('Fill').qq|
|.$locale->text('Fixed value').qq|
|.$locale->text('Heading').qq|
|.$locale->text('Width').qq|
|.$locale->text('Align').qq| |.$locale->text('Left').qq| |.$locale->text('Right').qq|
|.$locale->text('Fill').qq|
|; for (qw(stylesheet)) { delete $form->{$_} } $form->{title} = $title; $form->{helpref} = $helpref; $form->hide_form; %button = ('Save Column' => { ndx => 1, key => 'S', value => $locale->text('Save Column') } ); for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; } sub save_column { ($label, $ndx, $t) = split /,/, $form->{editcolumn}; delete $form->{editcolumn}; if ($t) { @t = ("${t}_f", "${t}_a", "${t}_w"); } else { @t = qw(f a w); } if (! $form->{"$t[2]_$ndx"}) { for (@t) { delete $form->{"${_}_$ndx"}; } } $j = $form->{ndxstart}; for $i ($form->{ndxstart} .. $form->{ndxend}) { if ($form->{"new_w_$i"}) { if (! $form->{"new_fld_$i"}) { $form->{"new_fld_$i"} = $form->{new_fld}; $form->{"new_fld_$i"} =~ s/ /_/g; $form->{flds} .= qq|,$form->{"new_fld_$i"}=$form->{new_fld}|; } $form->{column_index} .= qq|,$form->{"new_fld_$i"}=|; delete $form->{"new_fld_$i"}; for (@t) { $form->{"${_}_$j"} = $form->{"new_${_}_$i"}; delete $form->{"new_${_}_$i"}; } $j++; } } &{"$form->{nextsub}"}; } sub delete_column { %flds = split /[=,]/, $form->{flds}; ($fld, $ndx) = split /,/, $form->{editcolumn}; delete $form->{editcolumn}; %column_index = (); $i = 1; for (split /,/, $form->{column_index}) { ($l, $v) = split /=/, $_; $column_index{$i} = { l => $l, v => $v }; $i++; } delete $column_index{$ndx}; $form->{column_index} = join ',', map { "$column_index{$_}{l}=$column_index{$_}{v}" } sort { $a <=> $b } keys %column_index; $j = $i - 2; $ndx; for $i ($ndx .. $j) { $k = $i + 1; for (qw(a w f)) { $form->{"${_}_$i"} = $form->{"${_}_$k"}; $form->{"t_${_}_$i"} = $form->{"t_${_}_$k"}; $form->{"h_${_}_$i"} = $form->{"h_${_}_$k"}; } } for (qw(a w f)) { delete $form->{"${_}_$k"}; delete $form->{"t_${_}_$k"}; delete $form->{"h_${_}_$k"}; } &{$form->{nextsub}}; } 1; # end of main