Committer: ailyin
LJSUP-11293 (create an internal page with a list of our partners (@LJ::PARTNER_SITES))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 {