+
+sub get_value_with_gst_params {
+ my $value = shift;
+ my $gstrate = shift;
+ my $bookseller = shift;
+ if ( $bookseller->{listincgst} ) {
+ return ( $value, $value / ( 1 + $gstrate ) );
+ } else {
+ return ( $value * ( 1 + $gstrate ), $value );
+ }
+}
+
+sub get_gste {
+ my $value = shift;
+ my $gstrate = shift;
+ my $bookseller = shift;
+ if ( $bookseller->{invoiceincgst} ) {
+ return $value / ( 1 + $gstrate );
+ } else {
+ return $value;
+ }
+}
+
+sub get_gst {
+ my $value = shift;
+ my $gstrate = shift;
+ my $bookseller = shift;
+ if ( $bookseller->{invoiceincgst} ) {
+ return $value / ( 1 + $gstrate ) * $gstrate;
+ } else {
+ return $value * ( 1 + $gstrate ) - $value;
+ }
+}