Attachment #26950 for bug #7180

View | Details | Raw Unified | Return to bug 7180
Collapse All | Expand All





        &GetBudget
        &GetBudgetByOrderNumber
        &GetBudgetByCode
        &GetBudgets
        &GetBudgetHierarchy
	    &AddBudget

    return $result;
}

=head2 GetBudgetByCode

    my $budget = &GetBudgetByCode($budget_code);

Retrieve all aqbudgets fields as a hashref for the budget that has
given budget_code

=cut

sub GetBudgetByCode {
    my ( $budget_code ) = @_;

    my $dbh = C4::Context->dbh;
    my $query = qq{
        SELECT *
        FROM aqbudgets
        WHERE budget_code = ?
    };
    my $sth = $dbh->prepare( $query );
    $sth->execute( $budget_code );
    return $sth->fetchrow_hashref;
}

=head2 GetChildBudgetsSpent

  &GetChildBudgetsSpent($budget-id);




# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;
use warnings;
use CGI;
use Carp;
use Number::Format qw(:all);
use YAML qw/Load/;

use C4::Context;
use C4::Auth;

});

my $cgiparams = $input->Vars;
my $op = $cgiparams->{'op'} || '';
my $booksellerid  = $input->param('booksellerid');
my $bookseller = GetBookSellerFromId($booksellerid);
my $data;

                booksellerid => $booksellerid,
                booksellername => $bookseller->{name},
                );
my $ordernumber;

if ($cgiparams->{'import_batch_id'} && $op eq ""){
    $op = "batch_details";

                     loop_currencies  => \@loop_currency,
                     );
    import_biblios_list($template, $cgiparams->{'import_batch_id'});
    if ( C4::Context->preference('AcqCreateItem') eq 'ordering' ) {
        # prepare empty item form
        my $cell = PrepareItemrecordDisplay( '', '', '', 'ACQ' );


    # retrieve the file you want to import
    my $import_batch_id = $cgiparams->{'import_batch_id'};
    my $biblios = GetImportRecordsRange($import_batch_id);
    my @import_record_id_selected = $input->param("import_record_id");
    my @quantities = $input->param('quantity');
    my @prices = $input->param('price');
    my @budgets_id = $input->param('budget_id');
    my @rrp = $input->param('rrp');
    my @discount = $input->param('discount');
    my @sort1 = $input->param('sort1');
    my @sort2 = $input->param('sort2');
    my $cur = GetCurrency();
    for my $biblio (@$biblios){
        # Check if this import_record_id was selected
        next if not grep { $_ eq $$biblio{import_record_id} } @import_record_id_selected;
        my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} );
        my $marcrecord = MARC::Record->new_from_usmarc($marcblob) || die "couldn't translate marc information";
        my $match = GetImportRecordMatches( $biblio->{'import_record_id'}, 1 );
        my $biblionumber=$#$match > -1?$match->[0]->{'biblionumber'}:0;
        my $c_quantity = shift( @quantities ) || GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour') ) || 1;
        my $c_budget_id = shift( @budgets_id ) || $input->param('all_budget_id') || $budget_id;
        my $c_rrp = shift( @rrp ); # rrp include tax
        my $c_discount = shift ( @discount);
        $c_discount = $c_discount / 100 if $c_discount > 100;
        my $c_sort1 = shift( @sort1 ) || $input->param('all_sort1') || '';
        my $c_sort2 = shift( @sort2 ) || $input->param('all_sort2') || '';

        # 1st insert the biblio, or find it through matcher
        unless ( $biblionumber ) {
            # add the biblio
            my $bibitemnum;

            # remove ISBN -
            my ( $isbnfield, $isbnsubfield ) = GetMarcFromKohaField( 'biblioitems.isbn', '' );
            if ( $marcrecord->field($isbnfield) ) {
                foreach my $field ( $marcrecord->field($isbnfield) ) {
                    foreach my $subfield ( $field->subfield($isbnsubfield) ) {

                }
            }
            ( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $cgiparams->{'frameworkcode'} || '' );
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
            # 2nd add authorities if applicable
            if (C4::Context->preference("BiblioAddsAuthorities")){
                my $headings_linked =BiblioAutoLink($marcrecord, $cgiparams->{'frameworkcode'});

        # get quantity in the MARC record (1 if none)
        my $quantity = GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour')) || 1;
        my %orderinfo = (
            biblionumber => $biblionumber,
            basketno => $cgiparams->{'basketno'},
            quantity => $c_quantity,
            branchcode => $patron->{branchcode},
            budget_id => $c_budget_id,
            uncertainprice => 1,
            sort1 => $c_sort1,
            sort2 => $c_sort2,
            notes => $cgiparams->{'all_notes'},
            currency => $cgiparams->{'all_currency'},
        );
        # get the price if there is one.
        my $price= shift( @prices ) || GetMarcPrice($marcrecord, C4::Context->preference('marcflavour'));

        if ($price){
            # in France, the cents separator is the , but sometimes, ppl use a .
            # in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation
            $price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR";
            $price = $num->unformat_number($price);
	    if ($@){
		croak $@;
	    }
            eval {
		require C4::Bookseller;
	        import C4::Bookseller qw/GetBookSellerFromId/;
	    };
	    if ($@){
		croak $@;
	    }
            my $basket     = GetBasket( $orderinfo{basketno} );
            my $bookseller = GetBookSellerFromId( $basket->{booksellerid} );
            $orderinfo{gstrate} = $bookseller->{gstrate};
            my $c = $c_discount ? $c_discount / 100 : $bookseller->{discount} / 100;
            if ( $bookseller->{listincgst} ) {
                if ( $c_discount ) {
                    $orderinfo{ecost} = $price;
                    $orderinfo{rrp}   = $orderinfo{ecost} / ( 1 - $c );
                } else {
                    $orderinfo{ecost} = $price * ( 1 - $c );
                    $orderinfo{rrp}   = $price;
                }
            } else {
                if ( $c_discount ) {
                    $orderinfo{ecost} = $price / ( 1 + $orderinfo{gstrate} );
                    $orderinfo{rrp}   = $orderinfo{ecost} / ( 1 - $c );
                } else {
                    $orderinfo{rrp}   = $price / ( 1 + $orderinfo{gstrate} );
                    $orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $c );
                }
            }
            $orderinfo{listprice} = $orderinfo{rrp} / $cur->{rate};
            $orderinfo{unitprice} = $orderinfo{ecost};
            $orderinfo{total} = $orderinfo{ecost} * $c_quantity;
        } else {
            $orderinfo{listprice} = 0;
        }

        # remove uncertainprice flag if we have found a price in the MARC record
        $orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
        my ( $basketno, $ordernumber ) = NewOrder( \%orderinfo );
        ( $basketno, $ordernumber ) = NewOrder( \%orderinfo );

        # 4th, add items if applicable
        # parse the item sent by the form, and create an item just for the import_record_id we are dealing with

            push @{ $item->{indicator} },    $indicator[0];
            my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator );
            my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' );
            for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) {
                my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber );
                NewOrderItem( $itemnumber, $ordernumber );
            }
        } else {
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
        }
    }
    # go to basket page


# build budget list
my $budget_loop = [];
my $budgets_hierarchy = GetBudgetHierarchy;
foreach my $r ( @{$budgets_hierarchy} ) {
    next unless (CanUserUseBudget($borrower, $r, $userflags));
    if ( !defined $r->{budget_amount} || $r->{budget_amount} == 0 ) {
        next;

    push @{$budget_loop},
      { b_id  => $r->{budget_id},
        b_txt => $r->{budget_name},
        b_sort1_authcat => $r->{'sort1_authcat'},
        b_sort2_authcat => $r->{'sort2_authcat'},
        b_sel => ( $r->{budget_id} == $budget_id ) ? 1 : 0,
      };
}

        $CGIsort1 = GetAuthvalueDropbox(  $budget->{'sort1_authcat'}, $data->{'sort1'} );
    }
} elsif ( scalar(@$budgets) ) {
} elsif ( scalar(@$budgets_hierarchy) ) {
    $CGIsort1 = GetAuthvalueDropbox( @$budgets_hierarchy[0]->{'sort1_authcat'}, '' );
}
# if CGIsort is successfully fetched, the use it
# else - failback to plain input-field

    if ( defined $budget->{'sort2_authcat'} ) {
        $CGIsort2 = GetAuthvalueDropbox(  $budget->{'sort2_authcat'}, $data->{'sort2'} );
    }
} elsif ( scalar(@$budgets_hierarchy) ) {
    $CGIsort2 = GetAuthvalueDropbox( @$budgets_hierarchy[0]->{sort2_authcat}, '' );
}
if ($CGIsort2) {
    $template->param( CGIsort2 => $CGIsort2 );

            record_sequence => $biblio->{'record_sequence'},
            overlay_status => $biblio->{'overlay_status'},
            match_biblionumber => $#$match > -1 ? $match->[0]->{'biblionumber'} : 0,
            match_citation     => $#$match > -1 ? $match->[0]->{'title'} || '' . ' ' . $match->[0]->{'author'} || '': '',
            match_score => $#$match > -1 ? $match->[0]->{'score'} : 0,
        );
        my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} );
        my $marcrecord = MARC::Record->new_from_usmarc($marcblob) || die "couldn't translate marc information";
        my $infos = get_infos_syspref($marcrecord, ['price', 'quantity', 'budget_code', 'rrp', 'discount', 'sort1', 'sort2']);
        my $price = $infos->{price};
        my $quantity = $infos->{quantity};
        my $budget_code = $infos->{budget_code};
        my $rrp = $infos->{rrp};
        my $discount = $infos->{discount};
        my $sort1 = $infos->{sort1};
        my $sort2 = $infos->{sort2};
        my $budget_id;
        if($budget_code) {
            my $biblio_budget = GetBudgetByCode($budget_code);
            if($biblio_budget) {
                $budget_id = $biblio_budget->{budget_id};
            }
        }
        $cellrecord{price} = $price || '';
        $cellrecord{quantity} = $quantity || '';
        $cellrecord{budget_id} = $budget_id || '';
        $cellrecord{rrp} = $rrp || '';
        $cellrecord{discount} = $discount || '';
        $cellrecord{sort1} = $sort1 || '';
        $cellrecord{sort2} = $sort2 || '';

        push @list, \%cellrecord;
    }
    my $num_biblios = $batch->{'num_biblios'};

    }
    $template->param(available_matchers => \@matchers);
}

sub get_infos_syspref {
    my ($record, $field_list) = @_;
    my $syspref = C4::Context->preference('MarcFieldsToOrder');
    my $yaml = YAML::Load($syspref);
    my $r;
    for my $field_name ( @$field_list ) {
        my @fields = split /\|/, $yaml->{$field_name};
        for my $field ( @fields ) {
            my ( $f, $sf ) = split /\$/, $field;
            next unless $f and $sf;
            if ( my $v = $record->subfield( $f, $sf ) ) {
                $r->{$field_name} = $v;
            }
            last if $yaml->{$field};
        }
    }
    return $r;
}




#!/usr/bin/perl

# Copyright 2012 BibLibre
#
# This file is part of Koha.
#
# Koha 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.
#
# Koha 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.
#
# You should have received a copy of the GNU General Public License along
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

=head1 NAME

ajax-getauthvaluedropbox.pl - returns an authorised values dropbox

=head1 DESCRIPTION

this script returns an authorised values dropbox

=head1 CGI PARAMETERS

=over 4

=item name

The name of the dropbox.

=item category

The category of authorised values.

=item default

Default value for the dropbox.

=back

=cut

use Modern::Perl;

use CGI;
use C4::Budgets;
use C4::Charset;

my $input = new CGI;
my $name = $input->param('name');
my $category = $input->param('category');
my $default = $input->param('default');
$default = C4::Charset::NormalizeString($default);

binmode STDOUT, ':encoding(UTF-8)';
print $input->header(-type => 'text/plain', -charset => 'UTF-8');
my $avs = GetAuthvalueDropbox($category, $default);
my $html = qq|<select id="$name", name="$name">|;
for my $av ( @$avs ) {
    if ( $av->{default} ) {
        $html .= qq|<option value="$av->{value}" selected="selected">$av->{label}</option>|;
    } else {
        $html .= qq|<option value="$av->{value}">$av->{label}</option>|;
    }
}
$html .= qq|</select>|;

print $html;




    SetVersion($DBversion);
}





$DBversion = "3.15.00.XXX";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('MarcFieldsToOrder','','Set the mapping values for a new order line created from a marcrecord (staged file). In a YAML format.', NULL, 'textarea')");
   print "Upgrade to $DBversion done (Bug 7180: Added MarcFieldsToOrder syspref)\n";
   SetVersion ($DBversion);
}

=head1 FUNCTIONS

=head2 TableExists($table)




    return true;
}

function getAuthValueDropbox( name, cat, destination, selected ) {
    if (cat == null || cat == "") {
        $(destination).replaceWith(' <input type="text" name="' + name + '" />' );
/*
function fetchSortDropbox(f) {
    var  budgetId=f.budget_id.value;
    var handleSuccess = function(o){
        if(o.responseText !== undefined){
            sort_dropbox.innerHTML   = o.responseText;
        }
    }

    var callback = {   success:handleSuccess };
    var sUrl = '../acqui/fetch_sort_dropbox.pl?sort=1&budget_id='+budgetId
    var sort_dropbox = document.getElementById('sort1');
    var request1 = YAHOO.util.Connect.asyncRequest('GET', sUrl, callback);
    var rr = '00';

// FIXME: ---------  twice , coz the 2 requests get mixed up otherwise

    var handleSuccess2 = function(o){
    if(o.responseText !== undefined){
        sort2_dropbox.innerHTML   = o.responseText;
        }
    }

    var callback2 = {   success:handleSuccess };
    var sUrl2 = '../acqui/fetch_sort_dropbox.pl?sort=2&budget_id='+budgetId;
    var sort2_dropbox = document.getElementById('sort2');
    var request2 = YAHOO.util.Connect.asyncRequest('GET', sUrl2, callback2);

}
*/



//USED BY NEWORDEREMPTY.PL
function fetchSortDropbox(f) {
    var  budgetId=f.budget_id.value;

for (i=1;i<=2;i++) {

    var sort_zone = document.getElementById('sort'+i+'_zone');
    var url = '../acqui/fetch_sort_dropbox.pl?sort='+i+'&budget_id='+budgetId;

    var xmlhttp = null;
    xmlhttp = new XMLHttpRequest();
    if ( typeof xmlhttp.overrideMimeType != 'undefined') {
        xmlhttp.overrideMimeType('text/xml');
    }

    xmlhttp.open('GET', url, false);
    xmlhttp.send(null);

    xmlhttp.onreadystatechange = function() {
        if (xmlhttp.readyState == 4 && xmlhttp.status == 200) {
    // stupid JS...
        } else {
    // wait for the call to complete
        }
    };
    // rc =  eval ( xmlhttp.responseText );
    var retRootType = xmlhttp.responseXML.firstChild.nodeName;
    var existingInputs = sort_zone.getElementsByTagName('input');
    if (existingInputs.length > 0 && retRootType == 'input') {
        // when sort is already an input, do not override to preseve value
        return;
    }
    $.ajax({
        url: "/cgi-bin/koha/acqui/ajax-getauthvaluedropbox.pl",
        data: {
            name: name,
            category: cat,
            default: selected
        },
        async: false,
        success: function(data){
            if(data === "0"){
                $(destination).replaceWith(' <input type="text" name="' + name + '" />' );
            }else{
                $(destination).replaceWith(data);
            }
        }
    });
}







//USED BY NEWORDEREMPTY.PL
function totalExceedsBudget(budgetId, total) {





<link rel="stylesheet" type="text/css" href="[% themelang %]/css/datatables.css" />
[% INCLUDE 'doc-head-close.inc' %]
[% INCLUDE 'datatables.inc' %]
<script type="text/javascript" src="[% themelang %]/lib/jquery/plugins/jquery.checkboxes.min.js"></script>
<script type="text/javascript" src="[% themelang %]/js/acq.js"></script>
<script type="text/javascript" src="[% themelang %]/js/cataloging.js"></script>
<script type="text/JavaScript">
//<![CDATA[
    [% IF (dateformat == 'metric') %]

            "aaSorting": []
        } ) );

        $("select[name='budget_id']").change(function(){
            var sort1_authcat = $(this).find("option:selected").attr('data-sort1-authcat');
            var sort2_authcat = $(this).find("option:selected").attr('data-sort2-authcat');
            var destination_sort1 = $(this).siblings('span.sort1').find('input[name="sort1"]');
            var sort1 = $(destination_sort1).val();
            if ( destination_sort1.length < 1 ) {
                destination_sort1 = $(this).siblings('span.sort1').find('select[name="sort1"]');
                return false;
            }
            var destination_sort2 = $(this).siblings('span.sort2').find('input[name="sort2"]');
            var sort2 = $(destination_sort2).val();
            if ( destination_sort2.length < 1 ) {
                destination_sort2 = $(this).siblings('span.sort2').find('select[name="sort2"]');
            }
            getAuthValueDropbox( 'sort1', sort1_authcat, destination_sort1, sort1 );

            getAuthValueDropbox( 'sort2', sort2_authcat, destination_sort2, sort2 );
        } );

        $("select[name='budget_id']").change();

        $("select[name='all_budget_id']").change(function(){
            var sort1_authcat = $(this).find("option:selected").attr('data-sort1-authcat');
            var sort2_authcat = $(this).find("option:selected").attr('data-sort2-authcat');
            var destination_sort1 = $(this).parent().siblings('li').find('input[name="all_sort1"]');
            if ( destination_sort1.length < 1 ) {
                destination_sort1 = $(this).parent().siblings('li').find('select[name="all_sort1"]');
            }
            var destination_sort2 = $(this).parent().siblings('li').find('input[name="all_sort2"]');
            if ( destination_sort2.length < 1 ) {
                destination_sort2 = $(this).parent().siblings('li').find('select[name="all_sort2"]');
            }
            getAuthValueDropbox( 'sort1', sort1_authcat, destination_sort1 );
            getAuthValueDropbox( 'sort2', sort2_authcat, destination_sort2 );
            $(this).parent().siblings('li').find('select[name="sort1"]').attr('name', 'all_sort1');
            $(this).parent().siblings('li').find('input[name="sort1"]').attr('name', 'all_sort1');
            $(this).parent().siblings('li').find('select[name="sort2"]').attr('name', 'all_sort2');
            $(this).parent().siblings('li').find('input[name="sort2"]').attr('name', 'all_sort2');
        } );

        $('input:checkbox[name="import_record_id"]').change(function(){
            if ( $(this).is(':checked') ) {
                $(this).parent().addClass("selected");
                $(this).parent().removeClass("unselected");
            } else {
                $(this).parent().addClass("unselected");
                $(this).parent().removeClass("selected");
            }
        } );

        $("input:checkbox").attr("checked", false);
        $("div.biblio.unselected select").attr("disabled", false);
        $("div.biblio.unselected input").attr("disabled", false);

        $("#checkAll").click(function(){
            $("#Aform").checkCheckboxes();
            $("input:checkbox[name='import_record_id']").change();
            return false;
        });
        $("#unCheckAll").click(function(){
            $("#Aform").unCheckCheckboxes();
            $("input:checkbox[name='import_record_id']").change();
            return false;
        });

    });

    function disableUnchecked(form){
        $("div.biblio.unselected").each(function(){
            $(this).find('select').attr('disabled', 'disabled');
            $(this).find('input').attr('disabled', 'disabled');
        });
        form.submit();
    }
//]]>
</script>
</head>

       <div id="yui-main">
           <div class="yui-b">
             [% IF ( batch_details ) %]
                <h1>Add orders from [% comments %]
                    ([% file_name %] staged on [% upload_timestamp | $KohaDates with_hours => 1 %])
                </h1>
                <div>
                    <span class="checkall"><a id="checkAll" href="#">Check All</a></span>
                    <span class="uncheckall"><a id="unCheckAll" href="#">Uncheck All</a></span>
                    <form action="/cgi-bin/koha/acqui/addorderiso2709.pl" method="post" id="Aform" onsubmit="disableUnchecked(this); return false;">
                        <input type="hidden" name="op" value="import_records"/>
                        <input type="hidden" name="basketno" value="[% basketno %]" />
                        <input type="hidden" name="booksellerid" value="[% booksellerid %]" />
                        <input type="hidden" name="import_batch_id" value="[%import_batch_id %]" />
                        <input type="hidden" name="ordernumber" value="[% ordernumber %]" />

                        [% FOREACH cur IN loop_currencies %]
                            <input type="hidden" name="[% cur.currency %]" value="[% cur.rate %]" />
                        [% END %]

                        [% FOREACH biblio IN biblio_list %]
                        <div class="biblio unselected" style="border-radius: 5px 5px; -moz-border-radius: 5px; padding: 5px; margin:5px; border-style : solid; border-color : grey; border-width:1px;">
                            <input type="checkbox" name="import_record_id" id="record_[% biblio.import_record_id %]" value="[% biblio.import_record_id %]" />
                            <input type="hidden" value="[% biblio.rrp %]" name="rrp" />
                            <label for="record_[% biblio.import_record_id %]"><span class="citation" style="font-weight:bold;">[% biblio.citation %]</span></label>
                            <span class="match" style="display:block;">
                                [% IF ( biblio_lis.overlay_status == 'no_match' ) %]
                                    No match
                                [% ELSIF ( biblio_lis.overlay_status == 'match_applied' ) %]

                                [% ELSE %]
                                    [% biblio_lis.overlay_status %]
                                [% END %]
                            </span>
                            [% IF ( biblio.match_biblionumber ) %]
                                Matches biblio [% biblio.match_biblionumber %] (score = [% biblio.match_score %]): <a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=[% biblio.match_biblionumber %]">[% biblio.match_citation %]</a>
                            [% END %]
                            <span class="quantity" style="display:block;">
                                Quantity: <input type="text" value="[% biblio.quantity %]" name="quantity" />
                            </span>
                            <span class="price" style="display:block;">
                                Price: <input type="text" value="[% biblio.price %]" name="price" />
                            </span>
                            <span class="discount" style="display:block;">
                                Discount: <input type="text" value="[% biblio.discount %]" name="discount" />
                            </span>
                            <span class="budget" style="display:block;">
                                [% IF ( close ) %]
                                <span class="label">Budget: </span>
                                    <input type="hidden" size="20" name="budget_id" value="[% budget_id %]" />[% Budget_name %]
                      <span class="current">[% page.page_number %]</span>
                    [% ELSE %]
                      <a class="nav" href="[% page.script_name %]?import_batch_id=[% page.import_batch_id %]&amp;offset=[% page.offset %]">[% page.page_number %]</a>
                    [% END %]
                  [% END %]
              [% END %]
             [% ELSE %]
               <div>
                <h1>Choose the file to add to the basket</h1>
                   <table id="files">
                     <thead>
                     <tr>
                       <th>File name</th>
                       <th>Comments</th>
                       <th>Status</th>
                       <th>Staged</th>
                       <th># Bibs</th>
                       <th>&nbsp;</th>
                     </tr>
                     </thead>
                     <tbody>
                     [% FOREACH batch_lis IN batch_list %]
                     <tr>
                        <td>[% batch_lis.file_name %]</td>
                       <td>[% batch_lis.comments %]</td>
                       <td>
                        [% IF ( batch_lis.import_status == 'cleaned' ) %]
                            Cleaned
                        [% ELSIF ( batch_lis.import_status == 'imported' ) %]
                            Imported
                        [% ELSIF ( batch_lis.import_status == 'importing' ) %]
                            Importing
                        [% ELSIF ( batch_lis.import_status == 'reverted' ) %]
                            Reverted
                        [% ELSIF ( batch_lis.import_status == 'reverting' ) %]
                            Reverting
                        [% ELSIF ( batch_lis.import_status == 'staged' ) %]
                            Staged
                        [% ELSE %]
                            [% batch_lis.import_status %]
                        [% END %]
                       </td>
                       <td><span title="[% batch_lis.staged_date %]">[% batch_lis.staged_date | $KohaDates with_hours => 1 %]</span></td>
                       <td>[% batch_lis.num_biblios %]</td>
                       <td><a href="[% batch_lis.scriptname %]?import_batch_id=[% batch_lis.import_batch_id %]&amp;basketno=[% basketno %]&amp;booksellerid=[% booksellerid %]">Add orders</a></td>
                     </tr>
                     [% END %]
                     </tbody>
                   </table>
               </div>
             [% END %]
           </div>
        [% IF ( import_batch_id ) %]
            <div class="yui-b">
            <h2>Import all</h2>
            <p>Import all the lines in the basket with the following parameters:</p>
            <form action="/cgi-bin/koha/acqui/addorderiso2709.pl" method="post" id="Aform">
                    <input type="hidden" name="op" value="import_records"/>
                    <input type="hidden" name="ordernumber" value="[% ordernumber %]" />
                    <input type="hidden" name="basketno" value="[% basketno %]" />
                    <input type="hidden" name="booksellerid" value="[% booksellerid %]" />
                    <input type="hidden" name="import_batch_id" value="[% import_batch_id %]" />

                    [% FOREACH loop_currencie IN loop_currencies %]
                        <input type="hidden" name="[% loop_currencie.currency %]" value="[% loop_currencie.rate %]" />
                    [% END %]

                [% IF ( items ) %]
                <fieldset class="rows">
                    <legend>Item</legend>
                    [% IF ( NoACQframework ) %]
                        <div class="dialog message">No ACQ framework, using default. You should create a framework with code ACQ, the items framework would be used</div>
                    [% END %]

                    [% FOREACH item IN items %]
                    <div id="outeritemblock">
                    <div id="itemblock">
                        <ol>[% FOREACH iteminformatio IN item.iteminformation %]<li style="[% iteminformatio.hidden %];">
                            <div class="subfield_line" id="subfield[% iteminformatio.serialid %][% iteminformatio.countitems %][% iteminformatio.subfield %][% iteminformatio.random %]">
                                [% IF (iteminformatio.mandatory) %]
                                    <label class="required">[% iteminformatio.subfield %] - [% iteminformatio.marc_lib %]</label>
                                [% ELSE %]
                                <label for="budget_id">Budget: </label>
                                <select size="1" name="budget_id">
                                    <option value=""></option>
                                    [% FOREACH budget IN budget_loop %]
                                        [% IF ( budget.b_id == biblio.budget_id ) %]
                                            <option value="[% budget.b_id %]" data-sort1-authcat="[% budget.b_sort1_authcat %]" data-sort2-authcat="[% budget.b_sort2_authcat %]" selected="selected">[% budget.b_txt %]</option>
                                        [% ELSE %]
                                            <option value="[% budget.b_id %]" data-sort1-authcat="[% budget.b_sort1_authcat %]" data-sort2-authcat="[% budget.b_sort2_authcat %]">[% budget.b_txt %]</option>
                                        [% END %]
                                    [% END %]
                                </select>
                                [% END %]
                                <span class="sort1">
                                    <label for="sort1">Planning value1: </label>
                                    <input type="text" id="sort1" size="20" name="sort1" value="[% biblio.sort1 %]" />
                                </span>
                                <span class="sort2">
                                    <label for="sort2">Planning value2: </label>
                                    <input type="text" id="sort2" size="20" name="sort2" value="[% biblio.sort2 %]" />
                                </span>
                            </span>
                        </div>
                        [% END %]
                        <div>
                        <h2>Import all</h2>
                        <p>Import all the lines in the basket with the following parameters:</p>

                        [% IF ( items ) %]
                        <fieldset class="rows">
                            <legend>Item</legend>
                            [% IF ( NoACQframework ) %]
                                <div class="dialog message">No ACQ framework, using default. You should create a framework with code ACQ, the items framework would be used</div>
                    <ol>
                        <li>
                            <!-- origquantityrec only here for javascript compatibility (additem.js needs it, useless here, usefull when receiveing an order -->
                            <input id="origquantityrec" readonly="readonly" type="hidden" name="origquantityrec" value="1" />
                        </li>
                        <li>
                            [% IF ( close ) %]
                        <span class="label">Budget: </span>
                                <input type="hidden" size="20" name="budget_id" id="budget_id" value="[% budget_id %]" />[% Budget_name %]
                            [% ELSE %]
                            <li>
                            <label for="currency">Currency:</label>
                            <select name="currency" id="currency">
                            [% FOREACH loop_currencie IN loop_currencies %]
                                    [% IF ( loop_currencie.selected ) %]<option value="[% loop_currencie.currcode %]" selected="selected">[% loop_currencie.currcode %]</option>[% ELSE %]<option value="[% loop_currencie.currcode %]">[% loop_currencie.currcode %]</option>[% END %][% END %]
                            </select>
                            </li>
                            <li>
                            <label for="budget_id">Budget: </label>
                            <select id="budget_id" onchange="fetchSortDropbox(this.form)" size="1" name="budget_id">
                            [% FOREACH budget_loo IN budget_loop %]
                                [% IF ( budget_loo.b_sel ) %]
                                    <option value="[% budget_loo.b_id %]" selected="selected">[% budget_loo.b_txt %]</option>
                                [% ELSE %]
                                    <option value="[% budget_loo.b_id %]">[% budget_loo.b_txt %]</option>
                                [% END %]
                            [% END %]
                            </select>
                            </li>
                            [% END %]
                            [% FOREACH item IN items %]
                            <div id="outeritemblock">
                            <div id="itemblock">
                                <ol>
                                [% FOREACH iteminformatio IN item.iteminformation %]<li style="[% iteminformatio.hidden %];">
                                    <div class="subfield_line" id="subfield[% iteminformatio.serialid %][% iteminformatio.countitems %][% iteminformatio.subfield %][% iteminformatio.random %]">
                                        [% IF (iteminformatio.mandatory) %]
                                            <label class="required">[% iteminformatio.subfield %] - [% iteminformatio.marc_lib %]</label>
                                        [% ELSE %]
                                            <label>[% iteminformatio.subfield %] - [% iteminformatio.marc_lib %]</label>
                                        [% END %]

                                        [% iteminformatio.marc_value %]
                                        <input type="hidden" name="itemid" value="1" />
                                        <input type="hidden" name="kohafield" value="[% iteminformatio.kohafield %]" />
                                        <input type="hidden" name="tag" value="[% iteminformatio.tag %]" />
                                        <input type="hidden" name="subfield" value="[% iteminformatio.subfield %]" />
                                        <input type="hidden" name="mandatory" value="[% iteminformatio.mandatory %]" />
                                        [% IF ( iteminformatio.mandatory ) %] <span class="required">Required</span>[% END %]
                                    </div></li>
                                [% END %]
                                </ol>
                            </div><!-- /iteminformation -->
                            </div>
                            [% END %] <!-- /items -->
                        </fieldset>
                        [% END %] <!-- items -->

                        <fieldset class="rows">
                            <legend>Accounting details</legend>
                            <ol>
                                <li>
                                    <!-- origquantityrec only here for javascript compatibility (additem.js needs it, useless here, usefull when receiveing an order -->
                                    <input id="origquantityrec" readonly="readonly" type="hidden" name="origquantityrec" value="1" />
                                </li>
                                <li>
                                    [% IF ( close ) %]
                                        <span class="label">Budget: </span>
                                        <input type="hidden" size="20" name="budget_id" id="budget_id" value="[% budget_id %]" />[% Budget_name %]
                                    [% ELSE %]
                                        <li>
                                            <label for="all_currency">Currency:</label>
                                            <select name="all_currency" id="all_currency">
                                            [% FOREACH loop_currencie IN loop_currencies %]
                                                [% IF ( loop_currencie.selected ) %]
                                                    <option value="[% loop_currencie.currcode %]" selected="selected">[% loop_currencie.currcode %]</option>
                                                [% ELSE %]
                                                    <option value="[% loop_currencie.currcode %]">[% loop_currencie.currcode %]</option>
                                                [% END %]
                                            [% END %]
                                            </select>
                                        </li>
                                        <li>
                                            <label for="all_budget_id">Budget: </label>
                                            <select id="all_budget_id" size="1" name="all_budget_id">
                                            [% FOREACH budget_loo IN budget_loop %]
                                                [% IF ( budget_loo.b_sel ) %]
                                                    <option value="[% budget_loo.b_id %]" data-sort1-authcat="[% budget_loo.b_sort1_authcat %]" data-sort2-authcat="[% budget_loo.b_sort2_authcat %]" selected="selected">[% budget_loo.b_txt %]</option>
                                                [% ELSE %]
                                                    <option value="[% budget_loo.b_id %]" data-sort1-authcat="[% budget_loo.b_sort1_authcat %]" data-sort2-authcat="[% budget_loo.b_sort2_authcat %]">[% budget_loo.b_txt %]</option>
                                                [% END %]
                                            [% END %]
                                            </select>
                                        </li>
                                    [% END %]
                                </li>
                                <li>
                                    <label for="notes">Notes: </label>
                                    <textarea id="notes" cols="30" rows="3" name="all_notes"></textarea>
                                </li>
                                <li>
                                    <div class="hint">The 2 following fields are available for your own usage. They can be useful for statistical purposes</div>
                                    <label for="sort1">Planning value1: </label>
                                    [% IF CGIsort1 %]
                                        <select id="all_sort1" size="1" name="all_sort1">
                                        [% FOREACH sort_opt IN CGIsort1 %]
                                            [% IF sort_opt.default %]
                                                <option value="[% sort_opt.id %]" selected="selected">[% sort_opt.label %]</option>
                                            [% ELSE %]
                                                <option value="[% sort_opt.id %]">[% sort_opt.label %]</option>
                                            [% END %]
                                        [% END %]
                                        </select>
                                    [% ELSE %]
                                        <input type="text" id="all_sort1" size="20" name="all_sort1" value="[% sort1 %]" />
                                    [% END %]
                                </li>
                                <li>
                                  <span id="sort2_zone">
                                    <label for="sort2">Planning value2: </label>
                                    [% IF CGIsort2 %]
                                        <select id="all_sort2" size="1" name="all_sort1">
                                        [% FOREACH sort_opt IN CGIsort2 %]
                                            [% IF sort_opt.default %]
                                                <option value="[% sort_opt.id %]" selected="selected">[% sort_opt.label %]</option>
                                            [% ELSE %]
                                                <option value="[% sort_opt.id %]">[% sort_opt.label %]</option>
                                            [% END %]
                                        [% END %]
                                        </select>
                                    [% ELSE %]
                                         <input type="text" id="all_sort2" size="20" name="all_sort2" value="[% sort2 %]" />
                                    [% END %]
                                  </span>
                                </li>
                            </ol>
                        </fieldset>
                        <fieldset class="action">
                            <input type="submit" value="Save" /><a class="cancel" href="/cgi-bin/koha/acqui/basket.pl?basketno=[% basketno %]">Cancel</a>
                        </fieldset>

                        </div>
                    </form>
                [% ELSE %]
                <div>
                  <h1>Choose the file to add to the basket</h1>
                  <table id="files">
                    <thead>
                      <tr>
                        <th>File name</th>
                        <th>Comments</th>
                        <th>Status</th>
                        <th>Staged</th>
                        <th># Bibs</th>
                        <th>&nbsp;</th>
                      </tr>
                    </thead>
                    <tbody>
                      [% FOREACH batch_lis IN batch_list %]
                      <tr>
                        <td>[% batch_lis.file_name %]</td>
                        <td>[% batch_lis.comments %]</td>
                        <td>
                          [% IF ( batch_lis.import_status == 'cleaned' ) %]
                            Cleaned
                          [% ELSIF ( batch_lis.import_status == 'imported' ) %]
                            Imported
                          [% ELSIF ( batch_lis.import_status == 'importing' ) %]
                            Importing
                          [% ELSIF ( batch_lis.import_status == 'reverted' ) %]
                            Reverted
                          [% ELSIF ( batch_lis.import_status == 'reverting' ) %]
                            Reverting
                          [% ELSIF ( batch_lis.import_status == 'staged' ) %]
                            Staged
                          [% ELSE %]
                            [% batch_lis.import_status %]
                          [% END %]
                        </td>
                        <td><span title="[% batch_lis.staged_date %]">[% batch_lis.staged_date | $KohaDates with_hours => 1 %]</span></td>
                        <td>[% batch_lis.num_biblios %]</td>
                        <td><a href="[% batch_lis.scriptname %]?import_batch_id=[% batch_lis.import_batch_id %]&amp;basketno=[% basketno %]&amp;booksellerid=[% booksellerid %]">Add orders</a></td>
                      </tr>
                      [% END %]
                    </tbody>
                  </table>
                </div>
                [% END %]
           </div>
       </div>
   </div>
</div>

Lines 45-50 Acquisitions: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/acquisitions.pref (-1 / +4 lines)
45	-	45	-
46	- Upon receiving items, update their subfields if they were created when placing an order (e.g. o=5\|a="foo bar").	46	- Upon receiving items, update their subfields if they were created when placing an order (e.g. o=5\|a="foo bar").
47	- pref: AcqItemSetSubfieldsWhenReceived	47	- pref: AcqItemSetSubfieldsWhenReceived
		48	-
		49	- Set the mapping values for a new order line created from a marcrecord (staged file). In a YAML format, so you have to finished with an empty line.
		50	- pref: MarcFieldsToOrder
		51	type: textarea
48		52
49	Printing:	53	Printing:
50	-	54	-
51	-

Return to bug 7180

Lines 35-40 BEGIN { Link Here

(-)a/C4/Budgets.pm (+24 lines)
35		35
36	&GetBudget	36	&GetBudget
37	&GetBudgetByOrderNumber	37	&GetBudgetByOrderNumber
		38	&GetBudgetByCode
38	&GetBudgets	39	&GetBudgets
39	&GetBudgetHierarchy	40	&GetBudgetHierarchy
40	&AddBudget	41	&AddBudget
Lines 697-702 sub GetBudgetByOrderNumber { Link Here
697	return $result;	698	return $result;
698	}	699	}
699		700
		701	=head2 GetBudgetByCode
		702
		703	my $budget = &GetBudgetByCode($budget_code);
		704
		705	Retrieve all aqbudgets fields as a hashref for the budget that has
		706	given budget_code
		707
		708	=cut
		709
		710	sub GetBudgetByCode {
		711	my ( $budget_code ) = @_;
		712
		713	my $dbh = C4::Context->dbh;
		714	my $query = qq{
		715	SELECT *
		716	FROM aqbudgets
		717	WHERE budget_code = ?
		718	};
		719	my $sth = $dbh->prepare( $query );
		720	$sth->execute( $budget_code );
		721	return $sth->fetchrow_hashref;
		722	}
		723
700	=head2 GetChildBudgetsSpent	724	=head2 GetChildBudgetsSpent
701		725
702	&GetChildBudgetsSpent($budget-id);	726	&GetChildBudgetsSpent($budget-id);

Lines 8106-8111 if(CheckVersion($DBversion)) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (+11 lines)
8106	SetVersion($DBversion);	8106	SetVersion($DBversion);
8107	}	8107	}
8108		8108
		8109
		8110
		8111
		8112
		8113	$DBversion = "3.15.00.XXX";
		8114	if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
		8115	$dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('MarcFieldsToOrder','','Set the mapping values for a new order line created from a marcrecord (staged file). In a YAML format.', NULL, 'textarea')");
		8116	print "Upgrade to $DBversion done (Bug 7180: Added MarcFieldsToOrder syspref)\n";
		8117	SetVersion ($DBversion);
		8118	}
		8119
8109	=head1 FUNCTIONS	8120	=head1 FUNCTIONS
8110		8121
8111	=head2 TableExists($table)	8122	=head2 TableExists($table)

Lines 672-755 function calcNewsuggTotal(){ Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/js/acq.js (-74 / +19 lines)
672	return true;	672	return true;
673	}	673	}
674		674
675		675	function getAuthValueDropbox( name, cat, destination, selected ) {
676	// ----------------------------------------	676	if (cat == null \|\| cat == "") {
677	//USED BY NEWORDEREMPTY.PL	677	$(destination).replaceWith(' <input type="text" name="' + name + '" />' );
678	/*
679	function fetchSortDropbox(f) {
680	var budgetId=f.budget_id.value;
681	var handleSuccess = function(o){
682	if(o.responseText !== undefined){
683	sort_dropbox.innerHTML = o.responseText;
684	}
685	}
686
687	var callback = { success:handleSuccess };
688	var sUrl = '../acqui/fetch_sort_dropbox.pl?sort=1&budget_id='+budgetId
689	var sort_dropbox = document.getElementById('sort1');
690	var request1 = YAHOO.util.Connect.asyncRequest('GET', sUrl, callback);
691	var rr = '00';
692
693	// FIXME: --------- twice , coz the 2 requests get mixed up otherwise
694
695	var handleSuccess2 = function(o){
696	if(o.responseText !== undefined){
697	sort2_dropbox.innerHTML = o.responseText;
698	}
699	}
700
701	var callback2 = { success:handleSuccess };
702	var sUrl2 = '../acqui/fetch_sort_dropbox.pl?sort=2&budget_id='+budgetId;
703	var sort2_dropbox = document.getElementById('sort2');
704	var request2 = YAHOO.util.Connect.asyncRequest('GET', sUrl2, callback2);
705
706	}
707	*/
708
709
710
711	//USED BY NEWORDEREMPTY.PL
712	function fetchSortDropbox(f) {
713	var budgetId=f.budget_id.value;
714
715	for (i=1;i<=2;i++) {
716
717	var sort_zone = document.getElementById('sort'+i+'_zone');
718	var url = '../acqui/fetch_sort_dropbox.pl?sort='+i+'&budget_id='+budgetId;
719
720	var xmlhttp = null;
721	xmlhttp = new XMLHttpRequest();
722	if ( typeof xmlhttp.overrideMimeType != 'undefined') {
723	xmlhttp.overrideMimeType('text/xml');
724	}
725
726	xmlhttp.open('GET', url, false);
727	xmlhttp.send(null);
728
729	xmlhttp.onreadystatechange = function() {
730	if (xmlhttp.readyState == 4 && xmlhttp.status == 200) {
731	// stupid JS...
732	} else {
733	// wait for the call to complete
734	}
735	};
736	// rc = eval ( xmlhttp.responseText );
737	var retRootType = xmlhttp.responseXML.firstChild.nodeName;
738	var existingInputs = sort_zone.getElementsByTagName('input');
739	if (existingInputs.length > 0 && retRootType == 'input') {
740	// when sort is already an input, do not override to preseve value
741	return;	678	return;
742	}	679	}
743	sort_zone.innerHTML = xmlhttp.responseText;	680	$.ajax({
744	}	681	url: "/cgi-bin/koha/acqui/ajax-getauthvaluedropbox.pl",
		682	data: {
		683	name: name,
		684	category: cat,
		685	default: selected
		686	},
		687	async: false,
		688	success: function(data){
		689	if(data === "0"){
		690	$(destination).replaceWith(' <input type="text" name="' + name + '" />' );
		691	}else{
		692	$(destination).replaceWith(data);
		693	}
		694	}
		695	});
745	}	696	}
746		697
747
748
749
750
751
752
753	//USED BY NEWORDEREMPTY.PL	698	//USED BY NEWORDEREMPTY.PL
754	function totalExceedsBudget(budgetId, total) {	699	function totalExceedsBudget(budgetId, total) {
755		700

Lines 21-31 Link Here

(-)a/acqui/addorderiso2709.pl (-49 / +116 lines)
21	# with Koha; if not, write to the Free Software Foundation, Inc.,	21	# with Koha; if not, write to the Free Software Foundation, Inc.,
22	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	22	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23		23
24	use strict;	24	use Modern::Perl;
25	use warnings;
26	use CGI;	25	use CGI;
27	use Carp;	26	use Carp;
28	use Number::Format qw(:all);	27	use Number::Format qw(:all);
		28	use YAML qw/Load/;
29		29
30	use C4::Context;	30	use C4::Context;
31	use C4::Auth;	31	use C4::Auth;
Lines 56-62 my ($template, $loggedinuser, $cookie, $userflags) = get_template_and_user({ Link Here
56	});	56	});
57		57
58	my $cgiparams = $input->Vars;	58	my $cgiparams = $input->Vars;
59	my $op = $cgiparams->{'op'};	59	my $op = $cgiparams->{'op'} \|\| '';
60	my $booksellerid = $input->param('booksellerid');	60	my $booksellerid = $input->param('booksellerid');
61	my $bookseller = GetBookSellerFromId($booksellerid);	61	my $bookseller = GetBookSellerFromId($booksellerid);
62	my $data;	62	my $data;
Lines 65-71 $template->param(scriptname => "/cgi-bin/koha/acqui/addorderiso2709.pl", Link Here
65	booksellerid => $booksellerid,	65	booksellerid => $booksellerid,
66	booksellername => $bookseller->{name},	66	booksellername => $bookseller->{name},
67	);	67	);
68	my $ordernumber;
69		68
70	if ($cgiparams->{'import_batch_id'} && $op eq ""){	69	if ($cgiparams->{'import_batch_id'} && $op eq ""){
71	$op = "batch_details";	70	$op = "batch_details";
Lines 124-130 if ($op eq ""){ Link Here
124	loop_currencies => \@loop_currency,	123	loop_currencies => \@loop_currency,
125	);	124	);
126	import_biblios_list($template, $cgiparams->{'import_batch_id'});	125	import_biblios_list($template, $cgiparams->{'import_batch_id'});
127	if ( C4::Context->preference('AcqCreateItem') eq 'ordering' && !$ordernumber ) {	126	if ( C4::Context->preference('AcqCreateItem') eq 'ordering' ) {
128	# prepare empty item form	127	# prepare empty item form
129	my $cell = PrepareItemrecordDisplay( '', '', '', 'ACQ' );	128	my $cell = PrepareItemrecordDisplay( '', '', '', 'ACQ' );
130		129
Lines 157-175 if ($op eq ""){ Link Here
157	# retrieve the file you want to import	156	# retrieve the file you want to import
158	my $import_batch_id = $cgiparams->{'import_batch_id'};	157	my $import_batch_id = $cgiparams->{'import_batch_id'};
159	my $biblios = GetImportRecordsRange($import_batch_id);	158	my $biblios = GetImportRecordsRange($import_batch_id);
		159	my @import_record_id_selected = $input->param("import_record_id");
		160	my @quantities = $input->param('quantity');
		161	my @prices = $input->param('price');
		162	my @budgets_id = $input->param('budget_id');
		163	my @rrp = $input->param('rrp');
		164	my @discount = $input->param('discount');
		165	my @sort1 = $input->param('sort1');
		166	my @sort2 = $input->param('sort2');
		167	my $cur = GetCurrency();
160	for my $biblio (@$biblios){	168	for my $biblio (@$biblios){
161	# 1st insert the biblio, or find it through matcher	169	# Check if this import_record_id was selected
		170	next if not grep { $_ eq $$biblio{import_record_id} } @import_record_id_selected;
162	my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} );	171	my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} );
163	my $marcrecord = MARC::Record->new_from_usmarc($marcblob) \|\| die "couldn't translate marc information";	172	my $marcrecord = MARC::Record->new_from_usmarc($marcblob) \|\| die "couldn't translate marc information";
164	my $match = GetImportRecordMatches( $biblio->{'import_record_id'}, 1 );	173	my $match = GetImportRecordMatches( $biblio->{'import_record_id'}, 1 );
165	my $biblionumber=$#$match > -1?$match->[0]->{'biblionumber'}:0;	174	my $biblionumber=$#$match > -1?$match->[0]->{'biblionumber'}:0;
		175	my $c_quantity = shift( @quantities ) \|\| GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour') ) \|\| 1;
		176	my $c_budget_id = shift( @budgets_id ) \|\| $input->param('all_budget_id') \|\| $budget_id;
		177	my $c_rrp = shift( @rrp ); # rrp include tax
		178	my $c_discount = shift ( @discount);
		179	$c_discount = $c_discount / 100 if $c_discount > 100;
		180	my $c_sort1 = shift( @sort1 ) \|\| $input->param('all_sort1') \|\| '';
		181	my $c_sort2 = shift( @sort2 ) \|\| $input->param('all_sort2') \|\| '';
166		182
		183	# 1st insert the biblio, or find it through matcher
167	unless ( $biblionumber ) {	184	unless ( $biblionumber ) {
168	# add the biblio	185	# add the biblio
169	my $bibitemnum;	186	my $bibitemnum;
170		187
171	# remove ISBN -	188	# remove ISBN -
172	my ( $isbnfield, $isbnsubfield ) = GetMarcFromKohaField( 'biblioitems.isbn', '' );	189	my ( $isbnfield, $isbnsubfield ) = GetMarcFromKohaField( 'biblioitems.isbn', '' );
173	if ( $marcrecord->field($isbnfield) ) {	190	if ( $marcrecord->field($isbnfield) ) {
174	foreach my $field ( $marcrecord->field($isbnfield) ) {	191	foreach my $field ( $marcrecord->field($isbnfield) ) {
175	foreach my $subfield ( $field->subfield($isbnsubfield) ) {	192	foreach my $subfield ( $field->subfield($isbnsubfield) ) {
Lines 180-186 if ($op eq ""){ Link Here
180	}	197	}
181	}	198	}
182	( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $cgiparams->{'frameworkcode'} \|\| '' );	199	( $biblionumber, $bibitemnum ) = AddBiblio( $marcrecord, $cgiparams->{'frameworkcode'} \|\| '' );
183	SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
184	# 2nd add authorities if applicable	200	# 2nd add authorities if applicable
185	if (C4::Context->preference("BiblioAddsAuthorities")){	201	if (C4::Context->preference("BiblioAddsAuthorities")){
186	my $headings_linked =BiblioAutoLink($marcrecord, $cgiparams->{'frameworkcode'});	202	my $headings_linked =BiblioAutoLink($marcrecord, $cgiparams->{'frameworkcode'});
Lines 194-240 if ($op eq ""){ Link Here
194	# get quantity in the MARC record (1 if none)	210	# get quantity in the MARC record (1 if none)
195	my $quantity = GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour')) \|\| 1;	211	my $quantity = GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour')) \|\| 1;
196	my %orderinfo = (	212	my %orderinfo = (
197	"biblionumber", $biblionumber, "basketno", $cgiparams->{'basketno'},	213	biblionumber => $biblionumber,
198	"quantity", $quantity, "branchcode", $branch,	214	basketno => $cgiparams->{'basketno'},
199	"budget_id", $budget_id, "uncertainprice", 1,	215	quantity => $c_quantity,
200	"sort1", $cgiparams->{'sort1'},"sort2", $cgiparams->{'sort2'},	216	branchcode => $patron->{branchcode},
201	"notes", $cgiparams->{'notes'}, "budget_id", $cgiparams->{'budget_id'},	217	budget_id => $c_budget_id,
202	"currency",$cgiparams->{'currency'},	218	uncertainprice => 1,
		219	sort1 => $c_sort1,
		220	sort2 => $c_sort2,
		221	notes => $cgiparams->{'all_notes'},
		222	currency => $cgiparams->{'all_currency'},
203	);	223	);
204		224	# get the price if there is one.
205	my $price = GetMarcPrice($marcrecord, C4::Context->preference('marcflavour'));	225	my $price= shift( @prices ) \|\| GetMarcPrice($marcrecord, C4::Context->preference('marcflavour'));
206
207	if ($price){	226	if ($price){
208	eval {	227	# in France, the cents separator is the , but sometimes, ppl use a .
209	require C4::Acquisition;	228	# in this case, the price will be x100 when unformatted ! Replace the . by a , to get a proper price calculation
210	import C4::Acquisition qw/GetBasket/;	229	$price =~ s/\./,/ if C4::Context->preference("CurrencyFormat") eq "FR";
211	};	230	$price = $num->unformat_number($price);
212	if ($@){
213	croak $@;
214	}
215	eval {
216	require C4::Bookseller;
217	import C4::Bookseller qw/GetBookSellerFromId/;
218	};
219	if ($@){
220	croak $@;
221	}
222	my $basket = GetBasket( $orderinfo{basketno} );
223	my $bookseller = GetBookSellerFromId( $basket->{booksellerid} );
224	$orderinfo{gstrate} = $bookseller->{gstrate};	231	$orderinfo{gstrate} = $bookseller->{gstrate};
225	$orderinfo{rrp} = $price;	232	my $c = $c_discount ? $c_discount / 100 : $bookseller->{discount} / 100;
226	$orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $bookseller->{discount} / 100 );	233	if ( $bookseller->{listincgst} ) {
227	$orderinfo{listprice} = $orderinfo{rrp};	234	if ( $c_discount ) {
		235	$orderinfo{ecost} = $price;
		236	$orderinfo{rrp} = $orderinfo{ecost} / ( 1 - $c );
		237	} else {
		238	$orderinfo{ecost} = $price * ( 1 - $c );
		239	$orderinfo{rrp} = $price;
		240	}
		241	} else {
		242	if ( $c_discount ) {
		243	$orderinfo{ecost} = $price / ( 1 + $orderinfo{gstrate} );
		244	$orderinfo{rrp} = $orderinfo{ecost} / ( 1 - $c );
		245	} else {
		246	$orderinfo{rrp} = $price / ( 1 + $orderinfo{gstrate} );
		247	$orderinfo{ecost} = $orderinfo{rrp} * ( 1 - $c );
		248	}
		249	}
		250	$orderinfo{listprice} = $orderinfo{rrp} / $cur->{rate};
228	$orderinfo{unitprice} = $orderinfo{ecost};	251	$orderinfo{unitprice} = $orderinfo{ecost};
229	$orderinfo{total} = $orderinfo{ecost};	252	$orderinfo{total} = $orderinfo{ecost} * $c_quantity;
230	} else {	253	} else {
231	$orderinfo{'listprice'} = 0;	254	$orderinfo{listprice} = 0;
232	}	255	}
233		256
234	# remove uncertainprice flag if we have found a price in the MARC record	257	# remove uncertainprice flag if we have found a price in the MARC record
235	$orderinfo{uncertainprice} = 0 if $orderinfo{listprice};	258	$orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
236	my $basketno;	259	my ( $basketno, $ordernumber ) = NewOrder( \%orderinfo );
237	( $basketno, $ordernumber ) = NewOrder( \%orderinfo );
238		260
239	# 4th, add items if applicable	261	# 4th, add items if applicable
240	# parse the item sent by the form, and create an item just for the import_record_id we are dealing with	262	# parse the item sent by the form, and create an item just for the import_record_id we are dealing with
Lines 254-265 if ($op eq ""){ Link Here
254	push @{ $item->{indicator} }, $indicator[0];	276	push @{ $item->{indicator} }, $indicator[0];
255	my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator );	277	my $xml = TransformHtmlToXml( \@tags, \@subfields, \@field_values, \@ind_tag, \@indicator );
256	my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' );	278	my $record = MARC::Record::new_from_xml( $xml, 'UTF-8' );
257	for (my $qtyloop=1;$qtyloop <=$quantity;$qtyloop++) {	279	for (my $qtyloop=1;$qtyloop <= $c_quantity;$qtyloop++) {
258	my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber );	280	my ( $biblionumber, $bibitemnum, $itemnumber ) = AddItemFromMarc( $record, $biblionumber );
259	NewOrderItem( $itemnumber, $ordernumber );	281	NewOrderItem( $itemnumber, $ordernumber );
260	}	282	}
261	} else {
262	SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
263	}	283	}
264	}	284	}
265	# go to basket page	285	# go to basket page
Lines 276-283 my $budget = GetBudget($budget_id); Link Here
276		296
277	# build budget list	297	# build budget list
278	my $budget_loop = [];	298	my $budget_loop = [];
279	$budgets = GetBudgetHierarchy;	299	my $budgets_hierarchy = GetBudgetHierarchy;
280	foreach my $r ( @{$budgets} ) {	300	foreach my $r ( @{$budgets_hierarchy} ) {
281	next unless (CanUserUseBudget($borrower, $r, $userflags));	301	next unless (CanUserUseBudget($borrower, $r, $userflags));
282	if ( !defined $r->{budget_amount} \|\| $r->{budget_amount} == 0 ) {	302	if ( !defined $r->{budget_amount} \|\| $r->{budget_amount} == 0 ) {
283	next;	303	next;
Lines 285-290 foreach my $r ( @{$budgets} ) { Link Here
285	push @{$budget_loop},	305	push @{$budget_loop},
286	{ b_id => $r->{budget_id},	306	{ b_id => $r->{budget_id},
287	b_txt => $r->{budget_name},	307	b_txt => $r->{budget_name},
		308	b_sort1_authcat => $r->{'sort1_authcat'},
		309	b_sort2_authcat => $r->{'sort2_authcat'},
288	b_sel => ( $r->{budget_id} == $budget_id ) ? 1 : 0,	310	b_sel => ( $r->{budget_id} == $budget_id ) ? 1 : 0,
289	};	311	};
290	}	312	}
Lines 296-302 if ($budget) { # its a mod .. Link Here
296	$CGIsort1 = GetAuthvalueDropbox( $budget->{'sort1_authcat'}, $data->{'sort1'} );	318	$CGIsort1 = GetAuthvalueDropbox( $budget->{'sort1_authcat'}, $data->{'sort1'} );
297	}	319	}
298	} elsif ( scalar(@$budgets) ) {	320	} elsif ( scalar(@$budgets) ) {
299	$CGIsort1 = GetAuthvalueDropbox( @$budgets[0]->{'sort1_authcat'}, '' );	321	} elsif ( scalar(@$budgets_hierarchy) ) {
		322	$CGIsort1 = GetAuthvalueDropbox( @$budgets_hierarchy[0]->{'sort1_authcat'}, '' );
300	}	323	}
301	# if CGIsort is successfully fetched, the use it	324	# if CGIsort is successfully fetched, the use it
302	# else - failback to plain input-field	325	# else - failback to plain input-field
Lines 311-318 if ($budget) { Link Here
311	if ( defined $budget->{'sort2_authcat'} ) {	334	if ( defined $budget->{'sort2_authcat'} ) {
312	$CGIsort2 = GetAuthvalueDropbox( $budget->{'sort2_authcat'}, $data->{'sort2'} );	335	$CGIsort2 = GetAuthvalueDropbox( $budget->{'sort2_authcat'}, $data->{'sort2'} );
313	}	336	}
314	} elsif ( scalar(@$budgets) ) {	337	} elsif ( scalar(@$budgets_hierarchy) ) {
315	$CGIsort2 = GetAuthvalueDropbox( @$budgets[0]->{sort2_authcat}, '' );	338	$CGIsort2 = GetAuthvalueDropbox( @$budgets_hierarchy[0]->{sort2_authcat}, '' );
316	}	339	}
317	if ($CGIsort2) {	340	if ($CGIsort2) {
318	$template->param( CGIsort2 => $CGIsort2 );	341	$template->param( CGIsort2 => $CGIsort2 );
Lines 377-385 sub import_biblios_list { Link Here
377	record_sequence => $biblio->{'record_sequence'},	400	record_sequence => $biblio->{'record_sequence'},
378	overlay_status => $biblio->{'overlay_status'},	401	overlay_status => $biblio->{'overlay_status'},
379	match_biblionumber => $#$match > -1 ? $match->[0]->{'biblionumber'} : 0,	402	match_biblionumber => $#$match > -1 ? $match->[0]->{'biblionumber'} : 0,
380	match_citation => $#$match > -1 ? $match->[0]->{'title'} . ' ' . $match->[0]->{'author'} : '',	403	match_citation => $#$match > -1 ? $match->[0]->{'title'} \|\| '' . ' ' . $match->[0]->{'author'} \|\| '': '',
381	match_score => $#$match > -1 ? $match->[0]->{'score'} : 0,	404	match_score => $#$match > -1 ? $match->[0]->{'score'} : 0,
382	);	405	);
		406	my ( $marcblob, $encoding ) = GetImportRecordMarc( $biblio->{'import_record_id'} );
		407	my $marcrecord = MARC::Record->new_from_usmarc($marcblob) \|\| die "couldn't translate marc information";
		408	my $infos = get_infos_syspref($marcrecord, ['price', 'quantity', 'budget_code', 'rrp', 'discount', 'sort1', 'sort2']);
		409	my $price = $infos->{price};
		410	my $quantity = $infos->{quantity};
		411	my $budget_code = $infos->{budget_code};
		412	my $rrp = $infos->{rrp};
		413	my $discount = $infos->{discount};
		414	my $sort1 = $infos->{sort1};
		415	my $sort2 = $infos->{sort2};
		416	my $budget_id;
		417	if($budget_code) {
		418	my $biblio_budget = GetBudgetByCode($budget_code);
		419	if($biblio_budget) {
		420	$budget_id = $biblio_budget->{budget_id};
		421	}
		422	}
		423	$cellrecord{price} = $price \|\| '';
		424	$cellrecord{quantity} = $quantity \|\| '';
		425	$cellrecord{budget_id} = $budget_id \|\| '';
		426	$cellrecord{rrp} = $rrp \|\| '';
		427	$cellrecord{discount} = $discount \|\| '';
		428	$cellrecord{sort1} = $sort1 \|\| '';
		429	$cellrecord{sort2} = $sort2 \|\| '';
		430
383	push @list, \%cellrecord;	431	push @list, \%cellrecord;
384	}	432	}
385	my $num_biblios = $batch->{'num_biblios'};	433	my $num_biblios = $batch->{'num_biblios'};
Lines 439-441 sub add_matcher_list { Link Here
439	}	487	}
440	$template->param(available_matchers => \@matchers);	488	$template->param(available_matchers => \@matchers);
441	}	489	}
		490
		491	sub get_infos_syspref {
		492	my ($record, $field_list) = @_;
		493	my $syspref = C4::Context->preference('MarcFieldsToOrder');
		494	my $yaml = YAML::Load($syspref);
		495	my $r;
		496	for my $field_name ( @$field_list ) {
		497	my @fields = split /\\|/, $yaml->{$field_name};
		498	for my $field ( @fields ) {
		499	my ( $f, $sf ) = split /\$/, $field;
		500	next unless $f and $sf;
		501	if ( my $v = $record->subfield( $f, $sf ) ) {
		502	$r->{$field_name} = $v;
		503	}
		504	last if $yaml->{$field};
		505	}
		506	}
		507	return $r;
		508	}

Line 0 Link Here

(-)a/acqui/ajax-getauthvaluedropbox.pl (+73 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright 2012 BibLibre
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it under the
		8	# terms of the GNU General Public License as published by the Free Software
		9	# Foundation; either version 2 of the License, or (at your option) any later
		10	# version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
		13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
		14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
		15	#
		16	# You should have received a copy of the GNU General Public License along
		17	# with Koha; if not, write to the Free Software Foundation, Inc.,
		18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
		19
		20	=head1 NAME
		21
		22	ajax-getauthvaluedropbox.pl - returns an authorised values dropbox
		23
		24	=head1 DESCRIPTION
		25
		26	this script returns an authorised values dropbox
		27
		28	=head1 CGI PARAMETERS
		29
		30	=over 4
		31
		32	=item name
		33
		34	The name of the dropbox.
		35
		36	=item category
		37
		38	The category of authorised values.
		39
		40	=item default
		41
		42	Default value for the dropbox.
		43
		44	=back
		45
		46	=cut
		47
		48	use Modern::Perl;
		49
		50	use CGI;
		51	use C4::Budgets;
		52	use C4::Charset;
		53
		54	my $input = new CGI;
		55	my $name = $input->param('name');
		56	my $category = $input->param('category');
		57	my $default = $input->param('default');
		58	$default = C4::Charset::NormalizeString($default);
		59
		60	binmode STDOUT, ':encoding(UTF-8)';
		61	print $input->header(-type => 'text/plain', -charset => 'UTF-8');
		62	my $avs = GetAuthvalueDropbox($category, $default);
		63	my $html = qq\|<select id="$name", name="$name">\|;
		64	for my $av ( @$avs ) {
65	if ( $av->{default} ) {
66	$html .= qq\|<option value="$av->{value}" selected="selected">$av->{label}</option>\|;
67	} else {
68	$html .= qq\|<option value="$av->{value}">$av->{label}</option>\|;
69	}
70	}
71	$html .= qq\|</select>\|;
72
73	print $html;