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

(-)a/cataloguing/addbiblio.pl (-1 / +3 lines)
Lines 307-319 sub create_input { Link Here
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;
(-)a/cataloguing/additem.pl (-1 / +2 lines)
Lines 125-131 sub generate_subfield_form { Link Here
125
            $value = $subfieldlib->{defaultvalue};
125
            $value = $subfieldlib->{defaultvalue};
126
            # get today date & replace YYYY, MM, DD if provided in the default value
126
            # 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!
127
            my ( $year, $month, $day ) = split ',', $today_iso;     # FIXME: iso dates don't have commas!
128
            my $shortyear = substr $year, 2, 2;
128
            $value =~ s/YYYY/$year/g;
129
            $value =~ s/YYYY/$year/g;
130
            $value =~ s/YY/$shortyear/g;
129
            $value =~ s/MM/$month/g;
131
            $value =~ s/MM/$month/g;
130
            $value =~ s/DD/$day/g;
132
            $value =~ s/DD/$day/g;
131
        }
133
        }
132
- 

Return to bug 7045