From cf6d1a8c12d55d31535e29a8a2c93ed8ddc2bea4 Mon Sep 17 00:00:00 2001
From: "J. David Bavousett" <dbavousett@ptfs.com>
Date: Mon, 21 Jun 2010 07:44:53 -0400
Subject: [PATCH] updated ptfs_update.pl for new sys pref

---
 install_misc/ptfs_update.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/install_misc/ptfs_update.pl b/install_misc/ptfs_update.pl
index dd31ac47ce..cc6af1222f 100644
--- a/install_misc/ptfs_update.pl
+++ b/install_misc/ptfs_update.pl
@@ -541,3 +541,16 @@
 
 }
 
+$current_version= (C4::Context->preference("KohaPTFSVersion"));
+
+if ($current_version == "harley"){
+
+print "Upgrade to 'ptfs-master 1.1' beginning.\n==========\n";
+print "Adding new system preferences\n";
+$dbh->do("INSERT INTO systempreferences (variable,value,explanation,type) VALUES ('DisplayStafficonsXSLT','0',
+     'If ON, displays the format, audience, type icons in the staff XSLT MARC21 result and display pages.','YesNo')");
+print ".";
+print "done!\n";
+
+$dbh -> do("UPDATE systempreferences SET value='harley' WHERE variable='KohaPTFSVersion'");
+}