From 3120194e943f11cc181118b8c6170b343dd341df Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 24 Sep 2002 13:49:26 +0000
Subject: [PATCH] long WAS the road to 1.3.0... coming VERY SOON NOW...
 modifying installer and buildrelease to update the DB

---
 C4/Biblio.pm           |  7 ++++++-
 updater/updatedatabase | 21 ++++++++++++++-------
 2 files changed, 20 insertions(+), 8 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 8a913816fb..4189aa99b4 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1,6 +1,11 @@
 package C4::Biblio; 
 # $Id$
 # $Log$
+# Revision 1.11  2002/09/24 13:49:26  tipaul
+# long WAS the road to 1.3.0...
+# coming VERY SOON NOW...
+# modifying installer and buildrelease to update the DB
+#
 # Revision 1.10  2002/09/22 16:50:08  arensb
 # Added some FIXME comments.
 #
@@ -707,7 +712,7 @@ sub MARCkoha2marcItem {
 	my $sth2=$dbh->prepare("SELECT itemnumber,biblionumber,multivolumepart,biblioitemnumber,barcode,dateaccessioned,
 						booksellerid,homebranch,price,replacementprice,replacementpricedate,datelastborrowed,
 						datelastseen,multivolume,stack,notforloan,itemlost,wthdrawn,bulk,issues,renewals,
-					reserves,restricted,binding,itemnotes,holdingbranch,interim,timestamp 
+					reserves,restricted,binding,itemnotes,holdingbranch,timestamp 
 					FROM items
 					WHERE itemnumber=?");
 	$sth2->execute($itemnumber);
diff --git a/updater/updatedatabase b/updater/updatedatabase
index a195597a53..9d742f9ba3 100755
--- a/updater/updatedatabase
+++ b/updater/updatedatabase
@@ -188,6 +188,7 @@ my %requirefields=(
     aqorders=>{'budgetdate' => 'date'},
 #added so that reference items are not available for reserves...
     itemtypes=>{'notforloan' => 'smallint(6)'},
+    systempreferences =>{'explanation' => 'char(80)'},
 );
 
 my %dropable_table=(
@@ -203,9 +204,10 @@ my %dropable_table=(
 
 # Default system preferences
 my %defaultprefs=(
-    'autoMemberNum'=> '1',
-    'acquisitions'=> 'simple',
-);
+		  'autoMemberNum'=> ['1','1 or else. If 1, Barcode is auto-calculated'],
+		  'acquisitions'=> ['simple','normal or simple : will use acquisition system found in directory acqui.simple or acquisition'],
+		  'template' => ['default','template default name']
+		  );
 
 #-------------------
 # Initialize
@@ -388,11 +390,11 @@ foreach $prefitem ( keys %defaultprefs ) {
     $sth->execute($prefitem);
     unless ($sth->rows) {
 	print "Adding system preference item $prefitem with value " .
-        	$defaultprefs{$prefitem} ."\n";
+        	$defaultprefs{$prefitem}[0] ."\n";
         $sti=$dbh->prepare("
-	  insert into systempreferences (variable, value) 
-	  values (?,?)");
-        $sti->execute($prefitem,$defaultprefs{$prefitem});
+	  insert into systempreferences (variable, value,explanation) 
+	  values (?,?,?)");
+        $sti->execute($prefitem,$defaultprefs{$prefitem}[0],$defaultprefs{$prefitem}[1]);
     } # unless
 } # foreach
 
@@ -403,6 +405,11 @@ $dbh->disconnect;
 exit;
 
 # $Log$
+# Revision 1.18  2002/09/24 13:50:55  tipaul
+# long WAS the road to 1.3.0...
+# coming VERY SOON NOW...
+# modifying installer and buildrelease to update the DB
+#
 # Revision 1.17  2002/09/24 12:57:35  tipaul
 # long WAS the road to 1.3.0...
 # coming VERY SOON NOW...
-- 
2.39.2