Attachment #43123 for bug #14956

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

Lines 23-29 use warnings; Link Here

(-)a/opac/opac-alert-subscribe.pl (-1 lines)
23		23
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Dates;
27	use C4::Output;	26	use C4::Output;
28	use C4::Context;	27	use C4::Context;
29	use C4::Koha;	28	use C4::Koha;

Lines 35-41 use C4::Auth; Link Here

(-)a/opac/opac-ics.pl (-1 lines)
35	use C4::Koha;	35	use C4::Koha;
36	use C4::Circulation;	36	use C4::Circulation;
37	use C4::Members;	37	use C4::Members;
38	use C4::Dates;
39		38
40	my $query = new CGI;	39	my $query = new CGI;
41	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(	40	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(

Lines 29-34 use Koha::Borrower::Modifications; Link Here

(-)a/opac/opac-memberentry.pl (-3 / +7 lines)
29	use C4::Branch qw(GetBranchesLoop);	29	use C4::Branch qw(GetBranchesLoop);
30	use C4::Scrubber;	30	use C4::Scrubber;
31	use Email::Valid;	31	use Email::Valid;
		32	use Koha::DateUtils;
32		33
33	my $cgi = new CGI;	34	my $cgi = new CGI;
34	my $dbh = C4::Context->dbh;	35	my $dbh = C4::Context->dbh;
Lines 331-339 sub ParseCgiForBorrower { Link Here
331	}	332	}
332	}	333	}
333		334
334	$borrower{'dateofbirth'} =	335	my $dob_dt;
335	C4::Dates->new( $borrower{'dateofbirth'} )->output("iso")	336	$dob_dt = eval { dt_from_string( $borrower{'dateofbirth'} ); }
336	if ( defined( $borrower{'dateofbirth'} ) );	337	if ( defined( $borrower{'dateofbirth'} ) );
		338
		339	$borrower{'dateofbirth'} = output_pref ( { dt => $dob_dt, dateonly => 1, dateformat => 'iso' })
		340	if ( $dob_dt );
337		341
338	return %borrower;	342	return %borrower;
339	}	343	}




use C4::Biblio;
use C4::Items;
use C4::Output;
use C4::Dates qw/format_date/;
use C4::Context;
use C4::Members;
use C4::Branch; # GetBranches


        if ( defined $reservedate ) {
            $itemLoopIter->{backgroundcolor} = 'reserved';
            $itemLoopIter->{reservedate}     = output_pref({ dt => dt_from_string($reservedate), dateonly => 1 });
            $itemLoopIter->{ReservedForBorrowernumber} = $reservedfor;
            $itemLoopIter->{ReservedForSurname}        = $ItemBorrowerReserveInfo->{'surname'};
            $itemLoopIter->{ReservedForFirstname}      = $ItemBorrowerReserveInfo->{'firstname'};

        my ( $transfertwhen, $transfertfrom, $transfertto ) =
          GetTransfers($itemNum);
        if ( $transfertwhen && ($transfertwhen ne '') ) {
            $itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen), dateonly => 1 });
            $itemLoopIter->{transfertfrom} =
              $branches->{$transfertfrom}{branchname};
            $itemLoopIter->{transfertto} = $branches->{$transfertto}{branchname};

Lines 26-33 use C4::Output; Link Here

(-)a/opac/opac-search-history.pl (-1 / +1 lines)
26	use C4::Log;	26	use C4::Log;
27	use C4::Items;	27	use C4::Items;
28	use C4::Debug;	28	use C4::Debug;
29	use C4::Dates;
30	use C4::Search::History;	29	use C4::Search::History;
		30
31	use URI::Escape;	31	use URI::Escape;
32	use POSIX qw(strftime);	32	use POSIX qw(strftime);
33		33

Lines 24-30 use warnings; Link Here

(-)a/opac/opac-serial-issues.pl (-1 lines)
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Dates;
28	use C4::Serials;	27	use C4::Serials;
29	use C4::Letters;	28	use C4::Letters;
30	use C4::Output;	29	use C4::Output;

Lines 28-34 use C4::Output; Link Here

(-)a/opac/opac-showreviews.pl (-1 lines)
28	use C4::Circulation;	28	use C4::Circulation;
29	use C4::Review;	29	use C4::Review;
30	use C4::Biblio;	30	use C4::Biblio;
31	use C4::Dates;
32	use C4::Members qw/GetMemberDetails/;	31	use C4::Members qw/GetMemberDetails/;
33	use POSIX qw(ceil strftime);	32	use POSIX qw(ceil strftime);
34		33

Lines 27-33 use C4::Koha; Link Here

(-)a/opac/opac-suggestions.pl (-2 lines)
27	use C4::Output;	27	use C4::Output;
28	use C4::Suggestions;	28	use C4::Suggestions;
29	use C4::Koha;	29	use C4::Koha;
30	use C4::Dates;
31	use C4::Scrubber;	30	use C4::Scrubber;
32		31
33	use Koha::DateUtils qw( dt_from_string );	32	use Koha::DateUtils qw( dt_from_string );
34	-

Return to bug 14956

Lines 28-34 use C4::Reserves; Link Here

(-)a/opac/opac-reserve.pl (-3 / +2 lines)
28	use C4::Biblio;	28	use C4::Biblio;
29	use C4::Items;	29	use C4::Items;
30	use C4::Output;	30	use C4::Output;
31	use C4::Dates qw/format_date/;
32	use C4::Context;	31	use C4::Context;
33	use C4::Members;	32	use C4::Members;
34	use C4::Branch; # GetBranches	33	use C4::Branch; # GetBranches
Lines 465-471 foreach my $biblioNum (@biblionumbers) { Link Here
465		464
466	if ( defined $reservedate ) {	465	if ( defined $reservedate ) {
467	$itemLoopIter->{backgroundcolor} = 'reserved';	466	$itemLoopIter->{backgroundcolor} = 'reserved';
468	$itemLoopIter->{reservedate} = format_date($reservedate);	467	$itemLoopIter->{reservedate} = output_pref({ dt => dt_from_string($reservedate), dateonly => 1 });
469	$itemLoopIter->{ReservedForBorrowernumber} = $reservedfor;	468	$itemLoopIter->{ReservedForBorrowernumber} = $reservedfor;
470	$itemLoopIter->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'};	469	$itemLoopIter->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'};
471	$itemLoopIter->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'};	470	$itemLoopIter->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'};
Lines 499-505 foreach my $biblioNum (@biblionumbers) { Link Here
499	my ( $transfertwhen, $transfertfrom, $transfertto ) =	498	my ( $transfertwhen, $transfertfrom, $transfertto ) =
500	GetTransfers($itemNum);	499	GetTransfers($itemNum);
501	if ( $transfertwhen && ($transfertwhen ne '') ) {	500	if ( $transfertwhen && ($transfertwhen ne '') ) {
502	$itemLoopIter->{transfertwhen} = format_date($transfertwhen);	501	$itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen), dateonly => 1 });
503	$itemLoopIter->{transfertfrom} =	502	$itemLoopIter->{transfertfrom} =
504	$branches->{$transfertfrom}{branchname};	503	$branches->{$transfertfrom}{branchname};
505	$itemLoopIter->{transfertto} = $branches->{$transfertto}{branchname};	504	$itemLoopIter->{transfertto} = $branches->{$transfertto}{branchname};