Patch dependent on other stuff and sent in error - please disregard. --gmc
On Mon, Jun 22, 2009 at 8:37 PM, Galen Charlton<[email protected]> wrote: > --- > admin/itemtypes.pl | 7 +++++-- > installer/data/mysql/kohastructure.sql | 1 + > .../data/mysql/updatedatabase_replacement_price.pl | 8 ++++++++ > .../prog/en/modules/admin/itemtypes.tmpl | 5 +++++ > 4 files changed, 19 insertions(+), 2 deletions(-) > create mode 100755 installer/data/mysql/updatedatabase_replacement_price.pl > > diff --git a/admin/itemtypes.pl b/admin/itemtypes.pl > index 62d853e..acac4cb 100755 > --- a/admin/itemtypes.pl > +++ b/admin/itemtypes.pl > @@ -141,6 +141,7 @@ elsif ( $op eq 'add_validate' ) { > SET description = ? > , renewalsallowed = ? > , rentalcharge = ? > + , replacement_price = ? > , notforloan = ? > , imageurl = ? > , summary = ? > @@ -151,6 +152,7 @@ elsif ( $op eq 'add_validate' ) { > $input->param('description'), > $input->param('renewalsallowed'), > $input->param('rentalcharge'), > + $input->param('replacement_price'), > ( $input->param('notforloan') ? 1 : 0 ), > ( > $input->param('image') eq 'removeImage' ? '' : ( > @@ -166,8 +168,8 @@ elsif ( $op eq 'add_validate' ) { > else { # add a new itemtype & not modif an old > my $query = " > INSERT INTO itemtypes > - > (itemtype,description,renewalsallowed,rentalcharge,notforloan, > imageurl,summary) > - VALUES (?,?,?,?,?,?,?); > + > (itemtype,description,renewalsallowed,replacement_price,rentalcharge,notforloan, > imageurl,summary) > + VALUES (?,?,?,?,?,?,?,?); > "; > my $sth = $dbh->prepare($query); > my $image = $input->param('image'); > @@ -176,6 +178,7 @@ elsif ( $op eq 'add_validate' ) { > $input->param('itemtype'), > $input->param('description'), > $renewalsallowed, > + $input->param('replacement_price'), > $input->param('rentalcharge'), > $input->param('notforloan') ? 1 : 0, > $image eq 'removeImage' ? '' : > diff --git a/installer/data/mysql/kohastructure.sql > b/installer/data/mysql/kohastructure.sql > index bcafeab..a06976b 100644 > --- a/installer/data/mysql/kohastructure.sql > +++ b/installer/data/mysql/kohastructure.sql > @@ -1293,6 +1293,7 @@ CREATE TABLE `itemtypes` ( > `description` mediumtext, > `renewalsallowed` smallint(6) default NULL, > `rentalcharge` double(16,4) default NULL, > + `replacement_price` decimal(8,2) default '0.00', > `notforloan` smallint(6) default NULL, > `imageurl` varchar(200) default NULL, > `summary` text, > diff --git a/installer/data/mysql/updatedatabase_replacement_price.pl > b/installer/data/mysql/updatedatabase_replacement_price.pl > new file mode 100755 > index 0000000..7c8ec50 > --- /dev/null > +++ b/installer/data/mysql/updatedatabase_replacement_price.pl > @@ -0,0 +1,8 @@ > +#!/usr/bin/perl > + > +use strict; > +use warnings; > + > +use C4::Context; > + > +C4::Context->dbh->do("ALTER TABLE itemtypes ADD replacement_price > DECIMAL(8,2) DEFAULT '0.00' AFTER rentalcharge"); > diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/itemtypes.tmpl > b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/itemtypes.tmpl > index 49b9eb5..b727a6b 100644 > --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/itemtypes.tmpl > +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/itemtypes.tmpl > @@ -223,6 +223,11 @@ Item Types Administration > <!-- /TMPL_IF --> > <span class="hint">(if checked, no item of this type can be issued. > If not checked, every item of this type can be issued unless notforloan is > set for a specific item)</span> > </li> > + <label for="renewalsallowed">Default Renewals: </label> > + <input type="text" id="renewalsallowed" > name="renewalsallowed" size="3" maxlength="3" value="<!-- TMPL_VAR > NAME="renewalsallowed" -->" /> > + <span class="hint">Number of times this itemtype may be renewed. > This value can be overridden by specific circulation policies.</span> > + </li> > + <li> > <li> > <label for="rentalcharge">Default Rental charge: </label> > <input type="text" id="rentalcharge" name="rentalcharge" > size="6" value="<!-- TMPL_VAR name="rentalcharge" -->" /> > -- > 1.5.6.5 > > _______________________________________________ > Koha-patches mailing list > [email protected] > http://lists.koha.org/mailman/listinfo/koha-patches > -- Galen Charlton VP, Research & Development, LibLime [email protected] p: 1-888-564-2457 x709 skype: gmcharlt _______________________________________________ Koha-patches mailing list [email protected] http://lists.koha.org/mailman/listinfo/koha-patches
