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 |
- |
|
|