[scratch page_title]

[tmp page_perm]files[/tmp] [tmp page_title][L]Accounting[/L]: [calc]$Config->{CatalogName}[/calc][/tmp] [set ui_class]Admin[/set] [tmp help_name]genconfig.main[/tmp] [tmp icon_name]icon_config.gif[/tmp] @_UI_STD_INIT_@
[if type=explicit compare=`$Config->{Accounting}{Class} eq 'Vend::Accounting::SQL_Ledger'`] [calc] my $acc = $Config->{Accounting}; $def = $Scratch->{sl_base_url} = $acc->{base_url}; $def .= "/login.pl"; my $user = $acc->{username} or return $def; my $pass = $acc->{password} or return $def; my $path = $acc->{path} || 'bin/mozilla'; my @parms = ( "login=$user", "path=$path", ); # Leave this as & instead of UrlJoiner for SQL-Ledger $Scratch->{sl_parms} = join "&", @parms; $Scratch->{tmp_url} = $def . "?" . "$Scratch->{sl_parms}&password=$pass&action=Login"; return; [/calc] [tmp sl_result][get-url url="[scratchd tmp_url]"][/tmp] [calc] $Scratch->{sl_result} =~ /[&?]password=([^\s"']+)/; $Scratch->{sl_parms} .= "&password=$1"; $Scratch->{sql_ledger_url} = $def; $Scratch->{sql_ledger_url} .= '?' . $Scratch->{sl_parms} . "&action=company_logo"; return; [/calc] [/if]