From 2ba08ac59a643d51f48e68e8adab85b680b3c191 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Fri, 20 Jun 2008 08:11:23 -0500 Subject: [PATCH] bug 2000 - remove base64 functions from C4::Koha With the removal of admin/finesrules.pl and admin/issuingrules.pl, the functions str_to_base64() and base64_to_str() in C4::Koha are no longer used. Signed-off-by: Joshua Ferraro --- C4/Koha.pm | 43 ------------------------------------------- 1 file changed, 43 deletions(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index 07597b1287..13c6d79a38 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -22,9 +22,6 @@ use strict; use C4::Context; use C4::Output; -use MIME::Base64 qw(encode_base64 decode_base64); -use Encode qw(encode decode); - use vars qw($VERSION @ISA @EXPORT $DEBUG); BEGIN { @@ -55,8 +52,6 @@ BEGIN { &GetKohaAuthorisedValues &GetAuthValCode &GetManagedTagSubfields - &str_to_base64 - &base64_to_str $DEBUG ); @@ -1060,44 +1055,6 @@ ORDER BY marc_subfield_structure.tagfield, tagsubfield|); return $data; } -=head2 str_to_base64 - -=over 4 - -my $base64 = str_to_base64($string_containing_unicode); - -=back - -Get a Base64 version of a string that is in UTF-8. This -function can be used to convert an arbitrary coded value -(like a branch code) into a form that can be safely concatenated -with similarly encoded values for a HTML form input name, as -in admin/issuingrules.pl. - -=cut - -sub str_to_base64 { - my $in = shift; - return encode_base64(encode("UTF-8", $in), ''); -} - -=head2 base64_to_str - -=over 4 - -my $base64 = base64_to_str($string_containing_unicode); - -=back - -Converse of C. - -=cut - -sub base64_to_str { - my $in = shift; - return decode("UTF-8", decode_base64($in)); -} - =head2 display_marc_indicators =over 4 -- 2.39.5