- return ($function_name,$res);
-}
-sub plugin {
- my ($input) = @_;
- my $index= $input->param('index');
- my $result= $input->param('result');
-
-
- my $dbh = C4::Context->dbh;
-
- my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "cataloguing/value_builder/marc21_field_008.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {editcatalogue => 1},
- debug => 1,
- });
-# $result = " t xxu 00 0 eng d" unless $result;
- $result = "$dateentered"."t xxu||||| |||| 00| 0 eng d" unless $result;
- my $f1 = substr($result,0,6);
- my $f6 = substr($result,6,1);
- my $f710 = substr($result,7,4);
- my $f1114 = substr($result,11,4);
- my $f1517 = substr($result,15,3);
- my $f1821 = substr($result,18,4);
- my $f22 = substr($result,22,1);
- my $f23 = substr($result,23,1);
- my $f2427 = substr($result,24,4);
- my $f28 = substr($result,28,1);
- my $f29 = substr($result,29,1);
- my $f30 = substr($result,30,1);
- my $f31 = substr($result,31,1);
- my $f33 = substr($result,33,1);
- my $f34 = substr($result,34,1);
- my $f3537 = substr($result,35,3);
- my $f38 = substr($result,38,1);
- my $f39 = substr($result,39,1);
-
-if ((!$f1) ||($f1 =~ m/ /)){
- $f1=$dateentered;