@context_bar@ | +
+ |
+
There are no user pages for this package.
Index: openacs-4/packages/value-based-shipping/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/index.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/index.tcl 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,40 @@ +ad_page_contract { + + Place holder for access to the admin pages of the Value-based + shipping gateway. + + @creation-date April 2002 + @author Bart Teeuwisse@context_bar@ | +[ help ] | +
@context_bar@ | +[ help ] | +
+Index: openacs-4/packages/value-based-shipping/www/admin/level-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/level-delete.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/level-delete.tcl 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,73 @@ +request create -params { + service_level_id -datatype integer +} + +# Return error messages for any incorrect parameter values. + +if {![request is_valid]} { + return +} + +# Authenticate the user + +set user_id [ad_maybe_redirect_for_registration] + +# Check for admin privileges + +set package_id [ad_conn package_id] +set admin_p [ad_permission_p $package_id admin] + +# Get the name of the package + +if {[db_0or1row package_name " + select p.instance_name + from apm_packages p, apm_package_versions v + where p.package_id = :package_id + and p.package_key = v.package_key + and v.enabled_p = 't'"]} { + set title "$instance_name: Service Levels Administration" +} else { + set title "Sale Based Shipping: Service Levels Administration" +} + +# Set the context bar. + +set context_bar [ad_context_bar] + +template::form create level_delete -elements { + service_level_id \ + -datatype integer \ + -widget hidden +} + +if {[template::form is_request level_delete]} { + if {![query get_service_level service_level onerow " + select service_level_id, service_level_code, service_level_description + from vbs_service_levels + where service_level_id = :service_level_id"]} { + request error invalid_service_level_id "Invalid Sevice Level ID" + } else { + template::element set_value level_delete service_level_id $service_level_id + } +} + +if {[form is_valid level_delete]} { + template::form get_values level_delete service_level_id + if {[db_0or1row check_shipping_rates " + select service_level_id + from vbs_rates + where service_level_id = :service_level_id + limit 1"]} { + + # Can't delete the service level; there are rows in the + # shipping rates table for this service level. + + request error rates_exist_for_service_level "Can't delete the service level; there are shipping rates for this service level." + + } else { + db_dml delete_service_level " + delete from vbs_service_levels + where service_level_id = :service_level_id" + template::forward levels + } +} Index: openacs-4/packages/value-based-shipping/www/admin/level-delete.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/level-delete.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/level-delete.xql 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,38 @@ + ++ ++ +
++ +Service Level: ++ @service_level.service_level_code@ + ++ @service_level.service_level_description@ + ++ ++ + +
@context_bar@ | +[ help ] | +
+Index: openacs-4/packages/value-based-shipping/www/admin/level-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/level-edit.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/level-edit.tcl 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,105 @@ +request create -params { + service_level_id -datatype integer -optional +} + +# Return error messages for any incorrect parameter values. + +if {![request is_valid]} { + return +} + +# Authenticate the user + +set user_id [ad_maybe_redirect_for_registration] + +# Check for admin privileges + +set package_id [ad_conn package_id] +set admin_p [ad_permission_p $package_id admin] + +# Get the name of the package + +if {[db_0or1row package_name " + select p.instance_name + from apm_packages p, apm_package_versions v + where p.package_id = :package_id + and p.package_key = v.package_key + and v.enabled_p = 't'"]} { + set title "$instance_name: Service Levels Administration" +} else { + set title "Value-based Shipping: Service Levels Administration" +} + +# Set the context bar. + +set context_bar [ad_context_bar "Service Levels"] + +template::form create level_edit -elements { + service_level_id \ + -datatype integer \ + -widget hidden + service_level_code \ + -datatype text \ + -widget text \ + -html {size 30 maxlength 20} \ + -label "Service Level Code" \ + -validate {service_code_check \ + {db_string service_code_check " \ + select case when (select count(*) \ + from vbs_service_levels \ + where service_level_code = :value) > 0 then 0 else 1 end"} \ + {Service Level Code has to be unique}} + service_level_description \ + -datatype text \ + -widget text \ + -html {size 60 maxlength 50} \ + -label "Service Level Description" +} + +if {[string equal $service_level_id {}]} { + + # The request didn't include a service level ID. + + template::element::set_value level_edit service_level_id [db_nextval vbs_service_level_id_sequence] + +} else { + + # The request included a service level ID. + + if { [template::form is_request level_edit] } { + if { ! [query get_service_level service_level onerow " + select service_level_id, service_level_code, service_level_description + from vbs_service_levels + where service_level_id = :service_level_id"]} { + request error invalid_service_level_id "Invalid Sevice Level ID" + } else { + template::form set_values level_edit service_level + } + } + + if {[form is_valid level_edit] } { + template::form get_values level_edit service_level_id service_level_code service_level_description + if {[db_0or1row check_service_level " + select service_level_id + from vbs_service_levels + where service_level_id = :service_level_id"]} { + + # The user updated an existing service level. + + db_dml update_service_level " + update vbs_service_levels + set service_level_code = :service_level_code, service_level_description = :service_level_description + where service_level_id = :service_level_id" + } else { + + # The user entered a new service level. + + db_dml insert_service_level " + insert into vbs_service_levels + (service_level_id, service_level_code, service_level_description) + values + (:service_level_id, :service_level_code, :service_level_description)" + } + template::forward levels + } +} Index: openacs-4/packages/value-based-shipping/www/admin/level-edit.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/level-edit.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/level-edit.xql 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,47 @@ + ++ ++ +
++ +Service Level Code: ++ +
+ ++ + + +Service Level Description: ++ +
+ ++ + + ++ + +
@context_bar@ | +[ help ] | +
++ Index: openacs-4/packages/value-based-shipping/www/admin/levels.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/levels.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/levels.tcl 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,46 @@ +ad_page_contract { + + List are the defined shipping service levels. Offer links to the + level-edit and level-delete for each service level to maintain + existing service levels. The page has a button to level-edit at + the bottom to add new service levels. + + @author Bart Teeuwisse+
++ + + + + + + + +@service_levels.service_level_code@ +@service_levels.service_level_description@ +[ edit ] +[ delete ] ++ ++ + +
@context_bar@ | +[ help ] | +
+Index: openacs-4/packages/value-based-shipping/www/admin/rate-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/rate-delete.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/rate-delete.tcl 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,62 @@ +request create -params { + shipping_rate_id -datatype integer +} + +# Return error messages for any incorrect parameter values. + +if {![request is_valid]} { + return +} + +# Authenticate the user + +set user_id [ad_maybe_redirect_for_registration] + +# Check for admin privileges + +set package_id [ad_conn package_id] +set admin_p [ad_permission_p $package_id admin] + +# Get the name of the package + +if {[db_0or1row package_name " + select p.instance_name + from apm_packages p, apm_package_versions v + where p.package_id = :package_id + and p.package_key = v.package_key + and v.enabled_p = 't'"]} { + set title "$instance_name: Shipping Rates Administration" +} else { + set title "Value-based Shipping: Shipping Rates Administration" +} + +# Set the context bar. + +set context_bar [ad_context_bar "Shipping Rates"] + +template::form create rate_delete -elements { + shipping_rate_id \ + -datatype integer \ + -widget hidden +} + +if {[template::form is_request rate_delete]} { + if {![template::query get_shipping_rate shipping_rate onerow " + select l.service_level_description, c.default_name as country, round(r.from_value, 2) as from_value, round(r.to_value, 2) as to_value, + r.from_zip_code, r.to_zip_code, round(r.shipping_rate, 2) as shipping_rate + from vbs_rates r left join countries c on (r.country_iso = c.iso), vbs_service_levels l + where r.shipping_rate_id = :shipping_rate_id + and r.service_level_id = l.service_level_id"]} { + request error invalid_shipping_rate_id "Invalid Shipping Rate ID" + } else { + template::element set_value rate_delete shipping_rate_id $shipping_rate_id + } +} + +if {[form is_valid rate_delete]} { + template::form get_values rate_delete shipping_rate_id + db_dml delete_shipping_rate " + delete from vbs_rates + where shipping_rate_id = :shipping_rate_id" + template::forward rates +} Index: openacs-4/packages/value-based-shipping/www/admin/rate-delete.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/rate-delete.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/rate-delete.xql 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,32 @@ + ++ ++ +
++ ++ Service Level + ++ Country + ++ From Value + ++ To Value + ++ From Zip code + ++ To Zip code + ++ Shipping Rate + ++ +@shipping_rate.service_level_description@ +@shipping_rate.country@ +@shipping_rate.from_value@ +@shipping_rate.to_value@ +@shipping_rate.from_zip_code@ +@shipping_rate.to_zip_code@ +@shipping_rate.shipping_rate@ ++ ++ + +
@context_bar@ | +[ help ] | +
+Index: openacs-4/packages/value-based-shipping/www/admin/rate-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/rate-edit.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/rate-edit.tcl 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,182 @@ +request create -params { + shipping_rate_id -datatype integer -optional +} + +# Return error messages for any incorrect parameter values. + +if {![request is_valid]} { + return +} + +# Authenticate the user + +set user_id [ad_maybe_redirect_for_registration] + +# Check for admin privileges + +set package_id [ad_conn package_id] +set admin_p [ad_permission_p $package_id admin] + +# Get the name of the package + +if {[db_0or1row package_name " + select p.instance_name + from apm_packages p, apm_package_versions v + where p.package_id = :package_id + and p.package_key = v.package_key + and v.enabled_p = 't'"]} { + set title "$instance_name: Shipping Rates Administration" +} else { + set title "Value-based Shipping: Shipping Rates Administration" +} + +# Set the context bar. + +set context_bar [ad_context_bar "Shipping Rates"] + +template::form create rate_edit -elements { + shipping_rate_id \ + -datatype integer \ + -widget hidden + service_level_id \ + -datatype integer \ + -widget select \ + -options [db_list_of_lists get_service_levels "select service_level_description, service_level_id from vbs_service_levels"] \ + -label "Service Level" + from_value \ + -datatype text \ + -widget text \ + -label "From Value" \ + -html {size 20 maxlength 15} \ + -validate {from_value_number_check \ + {regexp {^[0-9]{0,3}(,?[0-9]{3})*\.?[0-9]{0,2}$} $value} \ + {The value has to be an amount} \ + from_value_positive_check \ + {expr [string compare $value 0] >= 0} \ + {The value can not be less than 0}} + to_value \ + -datatype text \ + -widget text \ + -label "To Value" \ + -html {size 20 maxlength 15} \ + -optional \ + -validate {to_value_check \ + {template::form get_values rate_edit from_value; \ + if {![empty_string_p $from_value] && [regexp {^[0-9]{0,3}(,?[0-9]{3})*\.?[0-9]*$} $value] && [regexp {^[0-9]{0,3}(,?[0-9]{3})*\.?[0-9]*$} $from_value] } { \ + expr $value > $from_value \ + } else { \ + expr 1 == 1}} \ + {The 'To Value' must be larger than the 'From Value'} \ + to_value_positive_check \ + {expr [string compare $value 0] >= 0} \ + {The value can not be less than 0} \ + to_value_number_check \ + {regexp {^[0-9]{0,3}(,?[0-9]{3})*\.?[0-9]{0,2}$} $value} \ + {The value has to be an amount}} + country_iso \ + -datatype text \ + -widget select \ + -options [concat [list {}] [db_list_of_lists get_countries "select default_name, iso from countries"]] \ + -optional \ + -label "Country" + from_zip_code \ + -datatype text \ + -widget text \ + -label "From Zip code" \ + -html {size 20 maxlength 15} \ + -optional + to_zip_code \ + -datatype text \ + -widget text \ + -label "To Zip code" \ + -html {size 20 maxlength 15} \ + -optional \ + -validate {from_zip_code_check \ + {template::form get_values rate_edit from_zip_code; expr ([empty_string_p $value] && [empty_string_p $from_zip_code]) || \ + (![empty_string_p $value] && ![empty_string_p $from_zip_code]) } \ + {The 'To Zip code' and 'From Zip code' must both be entered or must both remain empty } \ + to_zip_code_check \ + {template::form get_values rate_edit from_zip_code; expr [string compare $value $from_zip_code] >= 0} \ + {The 'To Zip code' must be larger than the 'From Zip code'}} + shipping_rate \ + -datatype text \ + -widget text \ + -label "Shipping rate" \ + -html {size 20 maxlength 15} \ + -optional \ + -validate {shipping_rate_positive_check \ + {expr [string compare $value 0] >= 0} \ + {The shipping rate can not be less than 0} \ + shipping_rate_number_check \ + {regexp {^[0-9]{0,3}(,?[0-9]{3})*\.?[0-9]{0,2}$} $value} \ + {The shipping rate has to be an amount}} +} + +if {[string equal $shipping_rate_id {}]} { + + # The request didn't include a shipping rate ID. + + template::element set_value rate_edit shipping_rate_id [db_nextval vbs_shipping_rate_id_sequence] + +} else { + + # The request included a shipping rate ID. + + if { [template::form is_request rate_edit] } { + if { ! [query get_shipping_rate shipping_rate onerow " + select shipping_rate_id, service_level_id, country_iso, round(from_value, 2) as from_value, round(to_value, 2) as to_value, from_zip_code, to_zip_code, + round(shipping_rate, 2) as shipping_rate + from vbs_rates + where shipping_rate_id = :shipping_rate_id"]} { + request error invalid_shipping_rate_id "Invalid Shipping Rate ID" + } else { + template::form set_values rate_edit shipping_rate + } + } + + if {[form is_valid rate_edit] } { + template::form get_values rate_edit shipping_rate_id service_level_id country_iso from_value to_value from_zip_code to_zip_code shipping_rate + if {[db_0or1row check_shipping_rate " + select shipping_rate_id + from vbs_rates + where shipping_rate_id = :shipping_rate_id"]} { + + # The user updated an existing shipping rate. + + db_dml update_shipping_rate " + update vbs_rates + set shipping_rate_id = :shipping_rate_id, service_level_id = :service_level_id, country_iso = :country_iso, from_value = :from_value, + to_value = :to_value, from_zip_code = :from_zip_code, to_zip_code = :to_zip_code, shipping_rate = :shipping_rate + where shipping_rate_id = :shipping_rate_id" + template::forward rates + } else { + + # The user entered a new shipping rate. + + if {[db_0or1row double_entry " + select shipping_rate_id + from vbs_rates + where service_level_id = :service_level_id + and country_iso = :country_iso + and from_value = :from_value + and to_value = :to_value + and from_zip_code = :from_zip_code + and to_zip_code = :to_zip_code"]} { + + # There is already an entry in the shipping rate table + # for this combination of service level, values and + # zip codes. + + request error double_entry "There is already an entry in the rates table for this combination of service level, country, values and zip codes." + + } else { + db_dml insert_shipping_rate " + insert into vbs_rates + (shipping_rate_id, service_level_id, country_iso, from_value, to_value, from_zip_code, to_zip_code, shipping_rate) + values + (:shipping_rate_id, :service_level_id, :country_iso, :from_value, :to_value, :from_zip_code, :to_zip_code, :shipping_rate)" + template::forward rates + } + } + } +} Index: openacs-4/packages/value-based-shipping/www/admin/rate-edit.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/rate-edit.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/rate-edit.xql 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,78 @@ + ++ ++ +
++ +Service Level: ++ ++ + +From Value: ++ +
+ ++ + + +To Value: ++ +
+ ++ + + +Country: ++ ++ + +From Zip code: ++ +
+ ++ + + +To Zip code: ++ +
+ ++ + + +Shipping rate: ++ +
+ ++ + + ++ + +
@context_bar@ | +[ help ] | +
+Index: openacs-4/packages/value-based-shipping/www/admin/rates.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/admin/rates.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/value-based-shipping/www/admin/rates.tcl 21 May 2002 18:35:37 -0000 1.1 @@ -0,0 +1,54 @@ +ad_page_contract { + + List are the defined shipping rates. Offer links to the + rate-edit and rate-delete for each rate to maintain existing + rates. The page has a button to rate-edit at the bottom to add + new rates. + + @author Bart Teeuwisse+
+ ++ ++ Service Level + ++ Country + ++ From Value + ++ To Value + ++ From Zip code + ++ To Zip code + ++ Shipping Rate + ++ + + + + + + + +@shipping_rates.service_level_description@ +@shipping_rates.country@ +@shipping_rates.from_value@ +@shipping_rates.to_value@ +@shipping_rates.from_zip_code@ +@shipping_rates.to_zip_code@ +@shipping_rates.shipping_rate@ ++ [ edit ] +[ delete ] ++ ++ + +
@context_bar@ | +
+ |
+
@package_name@ provides a simple yet flexible way to maintain a + set of custom shipping rates based on the total value of the + shipment.
+ +Berklee College Of Music
+ needed a value based shipping rates for use with the
Note: This release has been developed on PostgreSQL + only. Please report any problems you might find in the OpenACS SDM. The SDM can also be + used to contribute patches to the @package_name@ package (for + example to add Oracle support).
+ +@package_name@ is based on 2 principles: Service Levels and + Shipping Rates.
+ ++ ++ +Service Levels
+ +Value-based shipping rates are specific to service + levels. E.g. the shipping rate for 'Ground Service' differs from + the '2nd Day Air' or 'Next Day Air' rates. Hence, service levels + need to be defined before shipping rates can be + entered. Maintenance of the service levels is through the
+ +Service Levels + Administration + pages. As said, services levels need to be defined before shipping + rates can be defined. Conversely service levels can not be deleted + as long as there are shipping rates for the service + level. However, service levels can be renamed at any time. All + changes have an immediate effect on life systems.
+ +Shipping Rates
+ +Shipping rates can be defined after the service levels have + been entered. Maintenance of the shipping rates is through the
+ +Shipping Rates + Administration + pages. Shipping rates a specific to a service level, the location of + the destination and the value of the shipment. Rather than listing + each possible location in the shipping rates table, @package_name@ + uses the concept of regions.A region is defined by a + combination of Country, From zip code and To zip code.
+ ++ +
+ +- The most global region is the world, which is a combination + of no country and no zip codes.
+ +- Following the world are entire countries, which are defined + by selecting the country while leaving the zip codes blanc.
+ +- Regions within a country can be defined by choosing are range + of zip codes, ranging from the From zip code to the To zip + code.
+ +When selecting services and rates, the + RatesAndServicesSelection operation compares the value of the + shipment against the values of the From value and To value + fields.
+ ++ +
+ +- RatesAndServicesSelection selects shipping rate if the + package value is between the From value and To value.
+ +- RatesAndServicesSelection also selects shipping rate + if the package value is over the From value and no To value has + been defined.
+ +The RatesAndServicesSelection operation selects shipping rates + from the bottom up. More specific shipping rate definitions are + selected before global shipping rates.
+ +Geographical exclusions are possible too. Create a shipping + rate with an empty rate (=charge amount) and the location of the + shipping rate will be excluded from more global shipping rates for + the same service.
+ +E.g. To define a shipping rate of $30.50 for all + 'International Air' shipments out side the US one would create + shipping rate of $30.50 for the world for orders over $0 with a + second shipping rate for the US for orders over $0 with a rate of + no value.+ +
Please be aware that the query executed by + RatesAndServicesSelection is an expensive query to perform and most + likey doesn't scale well to thousands of shipping rate entries.
+ +The
@package_name@ was designed and written by Bart Teeuwisse for Berklee College Of Music while + working as a subcontractor for furfly.net.
+ +@package_name@ is free software; you can redistribute it and/or + modify it under the terms of the GNU General Public License as + published by the Free Software Foundation; either version 2 of the + License, or (at your option) any later version.
+ +@package_name@ is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details.
+ +A copy of the GNU General Public License is
+ included. If not write to the Free Software Foundation, Inc., 59
+ Temple Place, Suite 330, Boston, MA 02111-1307 USA
Index: openacs-4/packages/value-based-shipping/www/doc/index.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/doc/index.css,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/value-based-shipping/www/doc/index.css 21 May 2002 18:35:37 -0000 1.1
@@ -0,0 +1,5 @@
+p.note {
+ font-style: italic;
+ padding: 10;
+ background-color: lightgrey;
+}
Index: openacs-4/packages/value-based-shipping/www/doc/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/value-based-shipping/www/doc/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/value-based-shipping/www/doc/index.tcl 21 May 2002 18:35:37 -0000 1.1
@@ -0,0 +1,44 @@
+ad_page_contract {
+
+ Index to documentation of the Value-based Shipping, an
+ implementation of the Shipping Service Contract.
+
+ @author Bart Teeuwisse Version 2, June 1991 The licenses for most software are designed to take away your
+ freedom to share and change it. By contrast, the GNU General
+ Public License is intended to guarantee your freedom to share and
+ change free software--to make sure the software is free for all
+ its users. This General Public License applies to most of the
+ Free Software Foundation's software and to any other program whose
+ authors commit to using it. (Some other Free Software Foundation
+ software is covered by the GNU Library General Public License
+ instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not
+ price. Our General Public Licenses are designed to make sure that
+ you have the freedom to distribute copies of free software (and
+ charge for this service if you wish), that you receive source code
+ or can get it if you want it, that you can change the software or
+ use pieces of it in new free programs; and that you know you can
+ do these things. To protect your rights, we need to make restrictions that forbid
+ anyone to deny you these rights or to ask you to surrender the
+ rights. These restrictions translate to certain responsibilities
+ for you if you distribute copies of the software, or if you modify
+ it. For example, if you distribute copies of such a program, whether
+ gratis or for a fee, you must give the recipients all the rights
+ that you have. You must make sure that they, too, receive or can
+ get the source code. And you must show them these terms so they
+ know their rights. We protect your rights with two steps: (1) copyright the
+ software, and (2) offer you this license which gives you legal
+ permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make
+ certain that everyone understands that there is no warranty for
+ this free software. If the software is modified by someone else
+ and passed on, we want its recipients to know that what they have
+ is not the original, so that any problems introduced by others
+ will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software
+ patents. We wish to avoid the danger that redistributors of a
+ free program will individually obtain patent licenses, in effect
+ making the program proprietary. To prevent this, we have made it
+ clear that any patent must be licensed for everyone's free use or
+ not licensed at all. The precise terms and conditions for copying, distribution and
+ modification follow. 0. This License applies to any program or other
+ work which contains a notice placed by the copyright holder saying
+ it may be distributed under the terms of this General Public
+ License. The "Program", below, refers to any such program or
+ work, and a "work based on the Program" means either the Program
+ or any derivative work under copyright law: that is to say, a work
+ containing the Program or a portion of it, either verbatim or with
+ modifications and/or translated into another language.
+ (Hereinafter, translation is included without limitation in the
+ term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are
+ not covered by this License; they are outside its scope. The act
+ of running the Program is not restricted, and the output from the
+ Program is covered only if its contents constitute a work based on
+ the Program (independent of having been made by running the
+ Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies
+ of the Program's source code as you receive it, in any medium,
+ provided that you conspicuously and appropriately publish on each
+ copy an appropriate copyright notice and disclaimer of warranty;
+ keep intact all the notices that refer to this License and to the
+ absence of any warranty; and give any other recipients of the
+ Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy,
+ and you may at your option offer warranty protection in exchange
+ for a fee. 2. You may modify your copy or copies of the
+ Program or any portion of it, thus forming a work based on the
+ Program, and copy and distribute such modifications or work under
+ the terms of Section 1 above, provided that you also meet all of
+ these conditions: a) You must cause the modified files to carry
+ prominent notices stating that you changed the files and the
+ date of any change. b) You must cause any work that you
+ distribute or publish, that in whole or in part contains or is
+ derived from the Program or any part thereof, to be licensed as
+ a whole at no charge to all third parties under the terms of
+ this License. c) If the modified program normally reads
+ commands interactively when run, you must cause it, when started
+ running for such interactive use in the most ordinary way, to
+ print or display an announcement including an appropriate
+ copyright notice and a notice that there is no warranty (or
+ else, saying that you provide a warranty) and that users may
+ redistribute the program under these conditions, and telling the
+ user how to view a copy of this License. (Exception: if the
+ Program itself is interactive but does not normally print such
+ an announcement, your work based on the Program is not required
+ to print an announcement.) These requirements apply to the modified work as a whole. If
+ identifiable sections of that work are not derived from the
+ Program, and can be reasonably considered independent and separate
+ works in themselves, then this License, and its terms, do not
+ apply to those sections when you distribute them as separate
+ works. But when you distribute the same sections as part of a
+ whole which is a work based on the Program, the distribution of
+ the whole must be on the terms of this License, whose permissions
+ for other licensees extend to the entire whole, and thus to each
+ and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or
+ contest your rights to work written entirely by you; rather, the
+ intent is to exercise the right to control the distribution of
+ derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the
+ Program with the Program (or with a work based on the Program) on
+ a volume of a storage or distribution medium does not bring the
+ other work under the scope of this License. 3. You may copy and distribute the Program (or
+ a work based on it, under Section 2) in object code or executable
+ form under the terms of Sections 1 and 2 above provided that you
+ also do one of the following: a) Accompany it with the complete
+ corresponding machine-readable source code, which must be
+ distributed under the terms of Sections 1 and 2 above on a
+ medium customarily used for software interchange; or, b) Accompany it with a written offer,
+ valid for at least three years, to give any third party, for a
+ charge no more than your cost of physically performing source
+ distribution, a complete machine-readable copy of the
+ corresponding source code, to be distributed under the terms of
+ Sections 1 and 2 above on a medium customarily used for software
+ interchange; or, c) Accompany it with the information you
+ received as to the offer to distribute corresponding source
+ code. (This alternative is allowed only for noncommercial
+ distribution and only if you received the program in object code
+ or executable form with such an offer, in accord with Subsection
+ b above.) The source code for a work means the preferred form of the work
+ for making modifications to it. For an executable work, complete
+ source code means all the source code for all modules it contains,
+ plus any associated interface definition files, plus the scripts
+ used to control compilation and installation of the executable.
+ However, as a special exception, the source code distributed need
+ not include anything that is normally distributed (in either
+ source or binary form) with the major components (compiler,
+ kernel, and so on) of the operating system on which the executable
+ runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering
+ access to copy from a designated place, then offering equivalent
+ access to copy the source code from the same place counts as
+ distribution of the source code, even though third parties are not
+ compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or
+ distribute the Program except as expressly provided under this
+ License. Any attempt otherwise to copy, modify, sublicense or
+ distribute the Program is void, and will automatically terminate
+ your rights under this License. However, parties who have
+ received copies, or rights, from you under this License will not
+ have their licenses terminated so long as such parties remain in
+ full compliance. 5. You are not required to accept this
+ License, since you have not signed it. However, nothing else
+ grants you permission to modify or distribute the Program or its
+ derivative works. These actions are prohibited by law if you do
+ not accept this License. Therefore, by modifying or distributing
+ the Program (or any work based on the Program), you indicate your
+ acceptance of this License to do so, and all its terms and
+ conditions for copying, distributing or modifying the Program or
+ works based on it. 6. Each time you redistribute the Program (or any
+ work based on the Program), the recipient automatically receives a
+ license from the original licensor to copy, distribute or modify
+ the Program subject to these terms and conditions. You may not
+ impose any further restrictions on the recipients' exercise of the
+ rights granted herein. You are not responsible for enforcing
+ compliance by third parties to this License. 7. If, as a consequence of a court judgment or
+ allegation of patent infringement or for any other reason (not
+ limited to patent issues), conditions are imposed on you (whether
+ by court order, agreement or otherwise) that contradict the
+ conditions of this License, they do not excuse you from the
+ conditions of this License. If you cannot distribute so as to
+ satisfy simultaneously your obligations under this License and any
+ other pertinent obligations, then as a consequence you may not
+ distribute the Program at all. For example, if a patent license
+ would not permit royalty-free redistribution of the Program by all
+ those who receive copies directly or indirectly through you, then
+ the only way you could satisfy both it and this License would be
+ to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable
+ under any particular circumstance, the balance of the section is
+ intended to apply and the section as a whole is intended to apply
+ in other circumstances. It is not the purpose of this section to induce you to infringe
+ any patents or other property right claims or to contest validity
+ of any such claims; this section has the sole purpose of
+ protecting the integrity of the free software distribution system,
+ which is implemented by public license practices. Many people
+ have made generous contributions to the wide range of software
+ distributed through that system in reliance on consistent
+ application of that system; it is up to the author/donor to decide
+ if he or she is willing to distribute software through any other
+ system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is
+ believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program
+ is restricted in certain countries either by patents or by
+ copyrighted interfaces, the original copyright holder who places
+ the Program under this License may add an explicit geographical
+ distribution limitation excluding those countries, so that
+ distribution is permitted only in or among countries not thus
+ excluded. In such case, this License incorporates the limitation
+ as if written in the body of this License. 9. The Free Software Foundation may publish
+ revised and/or new versions of the General Public License from
+ time to time. Such new versions will be similar in spirit to the
+ present version, but may differ in detail to address new problems
+ or concerns. Each version is given a distinguishing version number. If the
+ Program specifies a version number of this License which applies
+ to it and "any later version", you have the option of following
+ the terms and conditions either of that version or of any later
+ version published by the Free Software Foundation. If the Program
+ does not specify a version number of this License, you may choose
+ any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the
+ Program into other free programs whose distribution conditions are
+ different, write to the author to ask for permission. For
+ software which is copyrighted by the Free Software Foundation,
+ write to the Free Software Foundation; we sometimes make
+ exceptions for this. Our decision will be guided by the two goals
+ of preserving the free status of all derivatives of our free
+ software and of promoting the sharing and reuse of software
+ generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF
+ CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT
+ PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN
+ WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE
+ PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR
+ IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+ MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE
+ RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.
+ SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL
+ NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW
+ OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER
+ PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED
+ ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL,
+ SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+ USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO
+ LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED
+ BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE
+ WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS
+ BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.@title@
+
+
+
+
+
+
+ @context_bar@
+
+
+ GNU General Public License
+
+
+ Copyright (C) 1989, 1991 Free Software Foundation, Inc.
+ 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+
+ Preamble
+
+ Terms and conditions for copying, distribution and modification
+
+
+
+
+
+
+
+
+
+