# Copyright (c) 2009 bivio Software, Inc. All Rights Reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: WikiHelpList.bunit,v 2.2 2011/02/24 02:48:30 nagler Exp $ ListModel(); req()->set_realm('site-help'); my($title) = sub { my($title) = @_; return 'Remote Copy (Publish Content)' if $title =~ /Remote_Copy/; $title =~ /(\w+)_Help$/; ($title = $1) =~ s/_/ /g; return $title; }; [ load_all => [ [] => [map(+{ 'RealmFile.path' => $_, result_title => $title->($_), }, qw( /Public/Wiki/Add_Event_Help /Public/Wiki/Blog_Detail_Help /Public/Wiki/Blog_Help /Public/Wiki/Calendar_Help /Public/Wiki/Change_Help /Public/Wiki/Edit_this_entry_Help /Public/Wiki/Edit_Wiki_Page_Help /Public/Wiki/Files_Help /Public/Wiki/New_blog_entry_Help /Public/Wiki/Remote_Copy_Help /Public/Wiki/Settings_Help /Public/Wiki/Shell_Util_Help ))], ], ];