[livejournal] r18900: LJSV-1525 (http://www.livejournal.com/ad...

U   trunk/htdocs/admin/entryprops.bml
U   trunk/htdocs/admin/faq/index.bml

Modified: trunk/htdocs/admin/entryprops.bml
===================================================================
--- trunk/htdocs/admin/entryprops.bml	2011-04-18 08:28:20 UTC (rev 18899)
+++ trunk/htdocs/admin/entryprops.bml	2011-04-18 09:32:53 UTC (rev 18900)
@@ -6,8 +6,10 @@
     use strict;
     use LJ::TimeUtil;
 
-    use vars qw($ret %POST);
+    use vars qw(%POST);
 
+    my $ret;
+
     my $remote = LJ::get_remote();
     my $is_admin = LJ::check_priv($remote, "canview", "entryprops");
     return BML::redirect("$LJ::SITEROOT/editjournal.bml")

Modified: trunk/htdocs/admin/faq/index.bml
===================================================================
--- trunk/htdocs/admin/faq/index.bml	2011-04-18 08:28:20 UTC (rev 18899)
+++ trunk/htdocs/admin/faq/index.bml	2011-04-18 09:32:53 UTC (rev 18900)
@@ -5,7 +5,9 @@
 body<=
 
 <?_code
+#line 9
 
+ use strict;
  my $dbh = LJ::get_db_writer();
 
  my $remote = LJ::get_remote();
@@ -14,7 +16,7 @@
  LJ::remote_has_priv($remote, "faqadd", \%ac_add);
  LJ::remote_has_priv($remote, "faqedit", \%ac_edit);
 
- $ret = "";
+ my $ret = "";
  if (%ac_add)
  {
      $ret .= "<A HREF=\"faqedit.bml\">[Add to FAQ]</A>\n";
@@ -22,7 +24,7 @@
 
  my %faqcat;
  my %faqq;
- $sth = $dbh->prepare("SELECT faqcat, faqcatname, catorder FROM faqcat");
+ my $sth = $dbh->prepare("SELECT faqcat, faqcatname, catorder FROM faqcat");
  $sth->execute;
  while ($_ = $sth->fetchrow_hashref)
  {