var sTable = $("#claimst").dataTable($.extend(true, {}, dataTablesDefaults, {
"sDom": 't',
"aoColumnDefs": [
- { "aTargets": [ 0,1,-1 ], "bSortable": false, "bSearchable": false }
+ { "aTargets": [ 0,1 ], "bSortable": false, "bSearchable": false }
],
"bPaginate": false
}));
// Checkboxes : Select All / None
$("span.checkall").html("<input type=\"checkbox\" name=\"CheckAll\"> "+_("Check All")+"</input>");
- $("span.exportSelected").html("<a id=\"ExportSelected\" href=\"/cgi-bin/koha/serials/claims.pl\"> "+_("Export selected items data") +"<\/a>");
$("#CheckAll").click(function() {
$("#claimst tr:visible :checkbox").attr('checked', $("#CheckAll").is(':checked'));
for (var i = 0; i < selected.length; i++) {
url += '&serialid=' + selected[i].value;
}
+ url += '&csv_profile=' + $("#csv_profile_for_export option:selected").val();
// And redirecting to the CSV page
location.href = url;
return false;
<th>Status</th>
<th>Since</th>
<th>Claim date</th>
- <th>Begin claim</th>
</tr></thead>
<tbody>[% FOREACH missingissue IN missingissues %]
<tr>
<td>
[% missingissue.claimdate %]
</td>
- <td>
- <a href="/cgi-bin/koha/serials/lateissues-excel.pl?supplierid=[% missingissue.supplieri %]&serialid=[% missingissue.serialid %]&op=claims">Export item data</a>
- </td>
</tr>
[% END %]</tbody>
</table>
- <p><span class="exportSelected"></span></p>
+
+ [% IF csv_profiles %]
+ <p>
+ <span class="exportSelected"><a id="ExportSelected" href="/cgi-bin/koha/serials/claims.pl">Export selected items data</a></span>
+ using the following csv profile:
+ <select id="csv_profile_for_export">
+ [% FOR csv IN csv_profiles %]
+ <option value="[% csv.export_format_id %]">[% csv.profile %]</option>
+ [% END %]
+ </select>
+ </p>
+ [% END %]
[% IF ( letter ) %]
<fieldset class="action"> <label for="letter_code">Select notice:</label>
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-use strict;
-use warnings;
+use Modern::Perl;
use CGI;
use C4::Auth;
use C4::Serials;
use C4::Acquisition;
use C4::Output;
use C4::Context;
+use C4::Csv qw( GetCsvProfile );
-# use Date::Manip;
use Text::CSV_XS;
-
-# &Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005
-
-
-my $csv = Text::CSV_XS->new(
- {
- 'quote_char' => '"',
- 'escape_char' => '"',
- 'sep_char' => ',',
- 'binary' => 1
- }
- );
-
-
my $query = new CGI;
my $supplierid = $query->param('supplierid');
-my @serialid = $query->param('serialid');
+my @serialids = $query->param('serialid');
my $op = $query->param('op') || q{};
-my $serialidcount = @serialid;
-my @loop1;
-my @lateissues;
-if($op ne 'claims'){
- @lateissues = GetLateIssues($supplierid);
- for my $issue (@lateissues){
- push @loop1,
- [ $issue->{'name'}, $issue->{'title'}, $issue->{'serialseq'}, $issue->{'planneddate'},];
- }
+my $csv_profile_id = $query->param('csv_profile');
+my $csv_profile = C4::Csv::GetCsvProfile( $csv_profile_id );
+die "There is no valid csv profile given" unless $csv_profile;
+
+my $csv = Text::CSV_XS->new({
+ 'quote_char' => '"',
+ 'escape_char' => '"',
+ 'sep_char' => $csv_profile->{csv_separator},
+ 'binary' => 1
+});
+
+my $content = $csv_profile->{content};
+my ( @headers, @fields );
+while ( $content =~ /
+ ([^=]+) # header
+ =
+ ([^\|]+) # fieldname (table.row or row)
+ \|? /gxms
+) {
+ push @headers, $1;
+ my $field = $2;
+ $field =~ s/[^\.]*\.?//; # Remove the table name if exists.
+ push @fields, $field;
}
-my $totalcount2 = 0;
-my @loop2;
-my @missingissues;
-for (my $k=0;$k<@serialid;$k++){
- @missingissues = GetLateOrMissingIssues($supplierid, $serialid[$k]);
- for (my $j=0;$j<@missingissues;$j++){
- my @rows2 = ($missingissues[$j]->{'name'}, # lets build up a row
- $missingissues[$j]->{'title'},
- $missingissues[$j]->{'serialseq'},
- $missingissues[$j]->{'planneddate'},
- );
- push (@loop2, \@rows2);
+my @rows;
+for my $serialid ( @serialids ) {
+ my @missingissues = GetLateOrMissingIssues($supplierid, $serialid);
+ my $issue = $missingissues[0];
+ my @row;
+ for my $field ( @fields ) {
+ push @row, $issue->{$field};
}
- $totalcount2 += scalar @missingissues;
- # update claim date to let one know they have looked at this missing item
- updateClaim($serialid[$k]);
-}
+ push @rows, \@row;
-my $heading ='';
-my $filename ='';
-if($supplierid){
- if($missingissues[0]->{'name'}){ # if exists display supplier name in heading for neatness
- # not necessarily needed as the name will appear in supplier column also
- $heading = "FOR $missingissues[0]->{'name'}";
- $filename = "_$missingissues[0]->{'name'}";
- }
+ # update claim date to let one know they have looked at this missing item
+ updateClaim($serialid);
}
print $query->header(
- -type => 'application/vnd.ms-excel',
- -attachment => "claims".$filename.".csv",
- );
-
-if($op ne 'claims'){
- print "LATE ISSUES ".$heading."\n\n";
- print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
+ -type => 'plain/text',
+ -attachment => "serials-claims.csv",
+);
- for my $row ( @loop1 ) {
-
- $csv->combine(@$row);
- my $string = $csv->string;
- print $string, "\n";
- }
-
- print ",,,,,,,\n\n";
-}
-if($serialidcount == 1){
- print "MISSING ISSUE ".$heading."\n\n";
-} else {
- print "MISSING ISSUES ".$heading."\n\n";
-}
-print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
-
-for my $row ( @loop2 ) {
-
- $csv->combine(@$row);
- my $string = $csv->string;
- print $string, "\n";
- }
-
-print ",,,,,,,\n";
-print ",,,,,,,\n";
-if($op ne 'claims'){
- my $count = scalar @lateissues;
- print ",,Total Number Late, $count\n";
-}
-if($serialidcount == 1){
+print join( $csv_profile->{csv_separator}, @headers ) . "\n";
-} else {
- print ",,Total Number Missing, $totalcount2\n";
+for my $row ( @rows ) {
+ $csv->combine(@$row);
+ my $string = $csv->string;
+ print $string, "\n";
}
projects / koha_fer / commitdiff