[ljcom] r11487: LJSUP-11293 (create an internal page wit...

U   trunk/bin/upgrading/en_LJ.dat
U   trunk/cgi-bin/LJ/PartnerSite.pm

Modified: trunk/bin/upgrading/en_LJ.dat
===================================================================
--- trunk/bin/upgrading/en_LJ.dat	2012-02-17 08:20:17 UTC (rev 11486)
+++ trunk/bin/upgrading/en_LJ.dat	2012-02-17 08:54:17 UTC (rev 11487)
@@ -4768,6 +4768,18 @@
 notification.sms.usernewentry_comm|staleness=1
 notification.sms.usernewentry_comm=User '[[user]]' posted in community '[[journal]].' [[mobile_url]]
 
+partner_sites.ui.doc.btn.save_changes=Save changes
+
+partner_sites.ui.doc.edit.title=Comments Widget documentation: edit
+
+partner_sites.ui.doc.heading.partners_list=Partners list
+
+partner_sites.ui.doc.link.edit=Edit this
+
+partner_sites.ui.doc.link.view=View this
+
+partner_sites.ui.doc.view.title=Comments Widget documentation
+
 pay.account.xmonths=[[num]] [[?num|month|months]]
 
 pay.blurb.bonus.text=Want to have more userpics, make phone posts, or upload more pictures? <a [[aopts]]>Add a bonus feature</a> to your account!

Modified: trunk/cgi-bin/LJ/PartnerSite.pm
===================================================================
--- trunk/cgi-bin/LJ/PartnerSite.pm	2012-02-17 08:20:17 UTC (rev 11486)
+++ trunk/cgi-bin/LJ/PartnerSite.pm	2012-02-17 08:54:17 UTC (rev 11487)
@@ -259,6 +259,20 @@
     };
 }
 
+sub list_all {
+    my ($class) = @_;
+
+    _init_cache() unless $is_cache_initialized;
+
+    my @ret;
+    foreach my $id ( sort { $a <=> $b } keys %{ $search_cache{'id'} } ) {
+        my $row = $search_cache{'id'}->{$id};
+        eval { push @ret, $class->_new_from_config_row(%$row) };
+    }
+
+    return \@ret;
+}
+
 ## singletons: partner id --> partner object
 my %by_id_map;
 sub _new_from_config_row {