X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=reports%2Fborrowers_stats.pl;h=9e00ea3e94d7b746d26d5a091f5bc2505c9293ce;hb=c6337e7ea54d341dfc133d3f201442ab399a1d77;hp=437bd0939ea603f5bff4aa82129d4ced7c237b87;hpb=d339abf0bfc334a819818bbb9b4c31f23326cbd1;p=koha_fer

diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl
index 437bd0939e..9e00ea3e94 100755
--- a/reports/borrowers_stats.pl
+++ b/reports/borrowers_stats.pl
@@ -13,11 +13,12 @@
 # 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., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# 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.
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use CGI;
 use C4::Auth;
 use C4::Context;
@@ -58,7 +59,6 @@ my $borstat = $input->param("status");
 my $borstat1 = $input->param("activity");
 my $output = $input->param("output");
 my $basename = $input->param("basename");
-my $mime = $input->param("MIME");
 our $sep     = $input->param("sep");
 $sep = "\t" if ($sep eq 'tabulation');
 my $selected_branch; # = $input->param("?");
@@ -107,7 +107,7 @@ if ($do_it) {
 		}
 		print $sep.@$results[0]->{total};
 	}
-	exit(1);	# exit after do_it, regardless
+	exit;	# exit after do_it, regardless
 } else {
 	my $dbh = C4::Context->dbh;
 	my $req;
@@ -130,12 +130,10 @@ if ($do_it) {
 	$req->execute;
 	$template->param( SORT2_LOOP => $req->fetchall_arrayref({}));
 	
-	my @mime = ( C4::Context->preference("MIME") );
-	# warn 'MIME(s): ' . join ' ', @mime;
 	my $CGIextChoice=CGI::scrolling_list(
 				-name => 'MIME',
 				-id => 'MIME',
-				-values   => \@mime,
+				-values   => ['CSV'], # FIXME translation
 				-size     => 1,
 				-multiple => 0 );
 	my $CGIsepChoice=GetDelimiterChoices;