[ljcom] r12992: LJSUP-14473: Admin pages' style and code...

[snusmubrik]

Committer: aeremenkoLJSUP-14473: Admin pages' style and code refactoring

U trunk/htdocs/admin/accounts/paidsearch.bml
U trunk/htdocs/admin/accounts/wallet-history.bml
U trunk/htdocs/admin/accounts/wallet-stat.bml
U trunk/htdocs/admin/sendmail/query.bml
U trunk/htdocs/admin/sendmail/send.bml

Modified: trunk/htdocs/admin/accounts/paidsearch.bml
===================================================================
--- trunk/htdocs/admin/accounts/paidsearch.bml 2012-12-04 12:29:46 UTC (rev 12991)
+++ trunk/htdocs/admin/accounts/paidsearch.bml 2012-12-04 13:26:21 UTC (rev 12992)
@@ -1,11 +1,12 @@
-
-Paid Search
-
+login."
unless $remote;
@@ -20,9 +21,9 @@
my $ret;

my $user = $GET{'user'};
- $ret .= "Search for payments.
\n";
- $ret .= "";
+ $ret .= "";

return $ret unless $GET{'method'};

@@ -138,7 +140,7 @@
"WHERE p.payid IN ($in) ORDER BY p.payid");
$sth->execute;

- $ret .= "Pay ID#UserDate Sent/RecvAmountMonthsUsed/MailedMethod\n";
+ $ret .= "Pay ID#UserDate Sent/RecvAmountMonthsUsed/MailedMethod\n";
while (my $row = $sth->fetchrow_hashref)
{
my $amount = sprintf("\$%.02f", $row->{'amount'});
@@ -153,7 +155,9 @@
$ret .= "\n";

return $ret;
+
+ $ret .= "\n";
}
_code?>
-
-
+<=body
+page?>

Modified: trunk/htdocs/admin/accounts/wallet-history.bml
===================================================================
--- trunk/htdocs/admin/accounts/wallet-history.bml 2012-12-04 12:29:46 UTC (rev 12991)
+++ trunk/htdocs/admin/accounts/wallet-history.bml 2012-12-04 13:26:21 UTC (rev 12992)
@@ -6,6 +6,8 @@
use strict;
use vars qw(%GET %POST $title $headextra @errors @warnings);

+ LJ::need_res('stc/admin/general.css');
+
use LJ::Pay::Wallet;
use LJ::Pay::Wallet::Log qw(:bits);
use LJ::Pay::Wallet::Stats;
@@ -155,42 +157,43 @@
);

my $form = qq{
-

-
-
@warnings
};

@@ -219,8 +222,20 @@
}

return qq{
- $form
- $widget
+

+
+
+
+ $form
+
+
+
+
+ $widget
+
+
+
+
};
}
_code?>

Modified: trunk/htdocs/admin/accounts/wallet-stat.bml
===================================================================
--- trunk/htdocs/admin/accounts/wallet-stat.bml 2012-12-04 12:29:46 UTC (rev 12991)
+++ trunk/htdocs/admin/accounts/wallet-stat.bml 2012-12-04 13:26:21 UTC (rev 12992)
@@ -6,6 +6,8 @@
use strict;
use vars qw(%GET %POST $title $headextra @errors @warnings);

+ LJ::need_res('stc/admin/general.css');
+
use LJ::Pay::Wallet;
use LJ::Pay::Wallet::Log qw(:bits);
use LJ::Pay::Wallet::Stats;
@@ -158,30 +160,38 @@

@@ -223,19 +233,19 @@
my $html_toptokensout = $stat_table_inner->($stats_toptokensout);

return qq{
- $form
+

+ $form

-

- $ML{'.stat.label.general.in'}:
- $stats_general->{'in'}
- p?>
- $ML{'.stat.label.general.out'}:
- $stats_general->{'out'}
- p?>
-
-
+

+ $ML{'.stat.label.general.in'}:
+ $stats_general->{'in'}
+ p?>
+ $ML{'.stat.label.general.out'}:
+ $stats_general->{'out'}
+ p?>
+

$ML{'.stat.label.general.vgifts'}
$stats_bkdown->{'vgift'}
@@ -261,70 +271,70 @@
$stats_bkdown->{'other'}

-

-
+

-

-
-
-
-
-
-
-
- $ML{'.stat.th.username'}
- $ML{'.stat.th.balance'}
-
-
-
- $html_topwallets
-
-
-
-
-
-
-
-
- $ML{'.stat.th.username'}
- $ML{'.stat.th.transactions'}
-
-
-
- $html_topactivity
-
-
-
-
-
-
-
-
- $ML{'.stat.th.username'}
- $ML{'.stat.th.tokens'}
-
-
-
- $html_toptokensin
-
-
-
-
-
-
-
-
- $ML{'.stat.th.username'}
- $ML{'.stat.th.tokens'}
-
-
-
- $html_toptokensout
-
-
-
-
-
+

+
+
+
+
+
+
+
+ $ML{'.stat.th.username'}
+ $ML{'.stat.th.balance'}
+
+
+
+ $html_topwallets
+
+
+
+
+
+
+
+
+ $ML{'.stat.th.username'}
+ $ML{'.stat.th.transactions'}
+
+
+
+ $html_topactivity
+
+
+
+
+
+
+
+
+ $ML{'.stat.th.username'}
+ $ML{'.stat.th.tokens'}
+
+
+
+ $html_toptokensin
+
+
+
+
+
+
+
+
+ $ML{'.stat.th.username'}
+ $ML{'.stat.th.tokens'}
+
+
+
+ $html_toptokensout
+
+
+
+
+
+

};
}

Modified: trunk/htdocs/admin/sendmail/query.bml
===================================================================
--- trunk/htdocs/admin/sendmail/query.bml 2012-12-04 12:29:46 UTC (rev 12991)
+++ trunk/htdocs/admin/sendmail/query.bml 2012-12-04 13:26:21 UTC (rev 12992)
@@ -5,6 +5,8 @@
use strict;
use vars qw(%GET);

+ LJ::need_res('stc/admin/general.css');
+
my ($ret, $sth, $where, $body);
my $status = {
'S' => "Sent (does not guarantee that the message didn't bounce)",
@@ -52,7 +54,7 @@
if ($canview{$mail->{'type'}}) {
$ret .= "{'mailid'} h1?>";

- $ret .= "";
+ $ret .= "";

$ret .= "Mail ID:";
$ret .= "$mail->{'mailid'}";
@@ -99,11 +101,11 @@
$ret .= LJ::bad_input('You are not authorized to view this message');
}
} else {
- $ret .= "\n";
+ $ret .= "
\n";
$ret .= '";
+ $body .= "\n";
};

my $preview = sub {