Attachment #5932 for bug #7045

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





        # get today date & replace YYYY, MM, DD if provided in the default value
        my ( $year, $month, $day ) = Today();
        my $shortyear = substr $year, 2, 2;
        $month = sprintf( "%02d", $month );
        $day   = sprintf( "%02d", $day );
        $value =~ s/YYYY/$year/g;
        $value =~ s/YY/$shortyear/g;
        $value =~ s/MM/$month/g;
        $value =~ s/DD/$day/g;
        my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");    
        $value=~s/USER/$username/g;
    
    }
    my $dbh = C4::Context->dbh;

Lines 33-38 use C4::ClassSource; Link Here

(-)a/cataloguing/additem.pl (-2 / +7 lines)
33	use C4::Dates;	33	use C4::Dates;
34	use List::MoreUtils qw/any/;	34	use List::MoreUtils qw/any/;
35		35
		36	use Date::Calc qw(Today);
36	use MARC::File::XML;	37	use MARC::File::XML;
37	use URI::Escape;	38	use URI::Escape;
38		39
Lines 124-133 sub generate_subfield_form { Link Here
124	if ( ! defined( $value ) \|\| $value eq '') {	125	if ( ! defined( $value ) \|\| $value eq '') {
125	$value = $subfieldlib->{defaultvalue};	126	$value = $subfieldlib->{defaultvalue};
126	# get today date & replace YYYY, MM, DD if provided in the default value	127	# get today date & replace YYYY, MM, DD if provided in the default value
127	my ( $year, $month, $day ) = split ',', $today_iso; # FIXME: iso dates don't have commas!	128	my ( $year, $month, $day ) = Today();
		129	my $shortyear = substr $year, 2, 2;
128	$value =~ s/YYYY/$year/g;	130	$value =~ s/YYYY/$year/g;
		131	$value =~ s/YY/$shortyear/g;
129	$value =~ s/MM/$month/g;	132	$value =~ s/MM/$month/g;
130	$value =~ s/DD/$day/g;	133	$value =~ s/DD/$day/g;
		134	my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");
		135	$value=~s/USER/$username/g;
		136
131	}	137	}
132		138
133	$subfield_data{visibility} = "display:none;" if (($subfieldlib->{hidden} > 4) \|\| ($subfieldlib->{hidden} < -4));	139	$subfield_data{visibility} = "display:none;" if (($subfieldlib->{hidden} > 4) \|\| ($subfieldlib->{hidden} < -4));
134	-

Return to bug 7045

Lines 307-319 sub create_input { Link Here

(-)a/cataloguing/addbiblio.pl (-1 / +3 lines)
307		307
308	# get today date & replace YYYY, MM, DD if provided in the default value	308	# get today date & replace YYYY, MM, DD if provided in the default value
309	my ( $year, $month, $day ) = Today();	309	my ( $year, $month, $day ) = Today();
		310	my $shortyear = substr $year, 2, 2;
310	$month = sprintf( "%02d", $month );	311	$month = sprintf( "%02d", $month );
311	$day = sprintf( "%02d", $day );	312	$day = sprintf( "%02d", $day );
312	$value =~ s/YYYY/$year/g;	313	$value =~ s/YYYY/$year/g;
		314	$value =~ s/YY/$shortyear/g;
313	$value =~ s/MM/$month/g;	315	$value =~ s/MM/$month/g;
314	$value =~ s/DD/$day/g;	316	$value =~ s/DD/$day/g;
315	my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");	317	my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");
316	$value=~s/user/$username/g;	318	$value=~s/USER/$username/g;
317		319
318	}	320	}
319	my $dbh = C4::Context->dbh;	321	my $dbh = C4::Context->dbh;