# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
my $sort_rules = GetClassSortRules();
- Returns reference to hash of references to
- the class sorting rules, keyed on class_sort_rule
-
+Returns reference to hash of references to
+the class sorting rules, keyed on class_sort_rule
+
=head3 Example
-my $sort_rules = GetClassSortRules();
-my @sort_rules = ();
-foreach my $sort_rule (sort keys %$sort_rules) {
- my $sort_rule = $sort_rules->{$sort_rule};
- push @sort_rules,
- {
- rule => $sort_rule->{'class_sort_rule'},
- description => $sort_rule->{'description'},
- sort_routine => $sort_rule->{'sort_routine'}
+ my $sort_rules = GetClassSortRules();
+ my @sort_rules = ();
+ foreach my $sort_rule (sort keys %$sort_rules) {
+ my $sort_rule = $sort_rules->{$sort_rule};
+ push @sort_rules,
+ {
+ rule => $sort_rule->{'class_sort_rule'},
+ description => $sort_rule->{'description'},
+ sort_routine => $sort_rule->{'sort_routine'}
}
-}
+ }
=cut
=head1 AUTHOR
-Koha Developement team <info@koha.org>
+Koha Development Team <http://koha-community.org/>
=cut