From 009819b1dbc7f7131edf06edc2f374fa4ddf3efa Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Thu, 29 Nov 2007 17:43:06 -0600 Subject: [PATCH] Dates.pm -- Comment and perldoc cleanup. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Dates.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Dates.pm b/C4/Dates.pm index a602d311ed..15d14d14a3 100644 --- a/C4/Dates.pm +++ b/C4/Dates.pm @@ -110,7 +110,7 @@ sub today ($;$) { # NOTE: sets date value to today (and returns it in the reque sub _recognize_format($) { my $incoming = shift; ($incoming eq 'syspref') and return $prefformat; - (scalar grep (/^$incoming$/, keys %format_map) == 1) or croak "The format you asked for ('$incoming') in unrecognized."; + (scalar grep (/^$incoming$/, keys %format_map) == 1) or croak "The format you asked for ('$incoming') is unrecognized."; return $incoming; } sub DHTMLcalendar ($;$) { # interface to posix_map @@ -222,12 +222,12 @@ psuedo-format argument "syspref". For example, to print an ISO date (from the database) in the format: my $date = C4::Dates->new($date_from_database,"iso"); - my $datestring_for_display = $date->display("syspref"); + my $datestring_for_display = $date->output("syspref"); print $datestring_for_display; Or even: - print C4::Dates->new($date_from_database,"iso")->display("syspref"); + print C4::Dates->new($date_from_database,"iso")->output("syspref"); If you just want to know what the is, you can use: -- 2.20.1