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

U   trunk/htdocs/admin/faq/faqedit.bml

Modified: trunk/htdocs/admin/faq/faqedit.bml
===================================================================
--- trunk/htdocs/admin/faq/faqedit.bml	2011-04-14 13:09:15 UTC (rev 18877)
+++ trunk/htdocs/admin/faq/faqedit.bml	2011-04-15 02:53:40 UTC (rev 18878)
@@ -10,10 +10,13 @@
 
 
 <?_code
+#line 14
 
- $id = $FORM{'id'} + 0;
- $ret = "";
+ use strict;
 
+ my $id = $FORM{'id'} + 0;
+ my $ret = "";
+
  my $dbh = LJ::get_db_writer();
 
  my $remote = LJ::get_remote();
@@ -200,7 +203,7 @@
  push @cats, '';push @cats, '';
  my $faqd = LJ::Lang::get_dom("faq");
 
- while (($fc, $fcname) = $sth->fetchrow_array)
+ while (my ($fc, $fcname) = $sth->fetchrow_array)
  {
      if ($id) {
          next unless ($ac_add{'*'} || $ac_add{$fc} || ($fc eq $faqcat));