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

(-)a/tools/koha-news.pl (-4 / +3 lines)
Lines 28-47 use CGI qw ( -utf8 ); Link Here
28
use C4::Auth;
28
use C4::Auth;
29
use C4::Koha;
29
use C4::Koha;
30
use C4::Context;
30
use C4::Context;
31
use C4::Dates qw(format_date_in_iso);
32
use C4::Output;
31
use C4::Output;
33
use C4::NewsChannels;
32
use C4::NewsChannels;
34
use C4::Languages qw(getTranslatedLanguages);
33
use C4::Languages qw(getTranslatedLanguages);
35
use Date::Calc qw/Date_to_Days Today/;
34
use Date::Calc qw/Date_to_Days Today/;
36
use C4::Branch qw/GetBranches/;
35
use C4::Branch qw/GetBranches/;
36
use Koha::DateUtils;
37
37
38
my $cgi = new CGI;
38
my $cgi = new CGI;
39
39
40
my $id             = $cgi->param('id');
40
my $id             = $cgi->param('id');
41
my $title          = $cgi->param('title');
41
my $title          = $cgi->param('title');
42
my $new            = $cgi->param('new');
42
my $new            = $cgi->param('new');
43
my $expirationdate = format_date_in_iso($cgi->param('expirationdate'));
43
my $expirationdate = output_pref({ dt => dt_from_string( $cgi->param('expirationdate') ), dateformat => 'iso', dateonly => 1 });
44
my $timestamp      = format_date_in_iso($cgi->param('timestamp'));
44
my $timestamp      = output_pref({ dt => dt_from_string( $cgi->param('timestamp') ), dateformat => 'iso', dateonly => 1 });
45
my $number         = $cgi->param('number');
45
my $number         = $cgi->param('number');
46
my $lang           = $cgi->param('lang');
46
my $lang           = $cgi->param('lang');
47
my $branchcode     = $cgi->param('branch');
47
my $branchcode     = $cgi->param('branch');
48
- 

Return to bug 13813