use warnings;
use CGI;
+use MIME::Base64;
use C4::Auth;
use C4::Context;
use C4::Koha;
my %tabsysprefs;
# Acquisitions
-$tabsysprefs{acquisitions} = "Acquisitions";
-$tabsysprefs{gist} = "Acquisitions";
-$tabsysprefs{emailPurchaseSuggestions} = "Acquisitions";
+ $tabsysprefs{acquisitions}="Acquisitions";
+ $tabsysprefs{gist}="Acquisitions";
+ $tabsysprefs{emailPurchaseSuggestions}="Acquisitions";
+ $tabsysprefs{RenewSerialAddsSuggestion}="Acquisitions";
+ $tabsysprefs{AcqCreateItem}="Acquisitions";
+ $tabsysprefs{OrderPdfFormat}="Acquisitions";
+ $tabsysprefs{OrderPdfTemplate}="Acquisitions";
+ $tabsysprefs{CurrencyFormat}="Acquisitions";
# Admin
$tabsysprefs{singleBranchMode} = "Admin";
$tabsysprefs{holdCancelLength} = "Circulation";
$tabsysprefs{itemBarcodeInputFilter} = "Circulation";
$tabsysprefs{WebBasedSelfCheck} = "Circulation";
+$tabsysprefs{ShowPatronImageInWebBasedSelfCheck} = "Circulation";
$tabsysprefs{CircControl} = "Circulation";
$tabsysprefs{finesCalendar} = "Circulation";
$tabsysprefs{previousIssuesDefaultSortOrder} = "Circulation";
$tabsysprefs{FilterBeforeOverdueReport} = "Circulation";
$tabsysprefs{AllowHoldDateInFuture} = "Circulation";
$tabsysprefs{OPACFineNoRenewals} = "Circulation";
+$tabsysprefs{InProcessingToShelvingCart} = "Circulation";
+$tabsysprefs{NewItemsDefaultLocation} = "Circulation";
+$tabsysprefs{ReturnToShelvingCart} = "Circulation";
+$tabsysprefs{DisplayClearScreenButton} = "Circulation";
+$tabsysprefs{AllowAllMessageDeletion} = "Circulation";
# Staff Client
$tabsysprefs{TemplateEncoding} = "StaffClient";
$tabsysprefs{AutoEmailPrimaryAddress} = "Patrons";
$tabsysprefs{EnhancedMessagingPreferences} = "Patrons";
$tabsysprefs{'SMSSendDriver'} = 'Patrons';
+$tabsysprefs{HidePatronName} = "Patrons";
+
# I18N/L10N
$tabsysprefs{dateformat} = "I18N/L10N";
$tabsysprefs{OPACHighlightedWords} = "OPAC";
$tabsysprefs{OPACViewOthersSuggestions} = "OPAC";
$tabsysprefs{URLLinkText} = "OPAC";
+$tabsysprefs{OPACSearchForTitleIn} = "OPAC";
$tabsysprefs{OPACShelfBrowser} = "OPAC";
$tabsysprefs{OPACDisplayRequestPriority} = "OPAC";
$tabsysprefs{OPACAllowHoldDateInFuture} = "OPAC";
+$tabsysprefs{OPACPatronDetails} = "OPAC";
+$tabsysprefs{OPACFinesTab} = "OPAC";
+$tabsysprefs{DisplayOPACiconsXSLT} = "OPAC";
# OPAC
$tabsysprefs{SearchMyLibraryFirst} = "OPAC";
$tabsysprefs{OPACShowCheckoutName} = "OPAC";
# Serials
+$tabsysprefs{RoutingListAddReserves} = "Serials";
$tabsysprefs{OPACSerialIssueDisplayCount} = "Serials";
$tabsysprefs{StaffSerialIssueDisplayCount} = "Serials";
$tabsysprefs{OPACDisplayExtendedSubInfo} = "Serials";
$tabsysprefs{'OAI-PMH:Set'} = "OAI-PMH";
$tabsysprefs{'OAI-PMH:Subset'} = "OAI-PMH";
+# ILS-DI variables
+$tabsysprefs{'ILS-DI'} = "ILS-DI";
sub StringSearch {
my ( $searchstring, $type ) = @_;
my $dbh = C4::Context->dbh;
if ( not defined( $data->{'type'} ) ) {
$params->{'type-free'} = 1;
$params->{'fieldlength'} = ( defined( $data->{'options'} ) and $data->{'options'} and $data->{'options'} > 0 );
+ } elsif ( $data->{'type'} eq 'Upload' ) {
+ $params->{'type-upload'} = 1;
} elsif ( $data->{'type'} eq 'Choice' ) {
$params->{'type-choice'} = 1;
} elsif ( $data->{'type'} eq 'YesNo' ) {
$value = $params->{'value'};
}
}
+
+ if ( $input->param('preftype') eq 'Upload' ) {
+ my $lgtfh = $input->upload('value');
+ $value = join '', <$lgtfh>;
+ $value = encode_base64($value);
+ }
+
if ( $sth->rows ) {
unless ( C4::Context->config('demo') ) {
my $sth = $dbh->prepare("update systempreferences set value=?,explanation=?,type=?,options=? where variable=?");