Changeset 15698

Show
Ignore:
Timestamp:
26.05.2008 14:03:26 (11 years ago)
Author:
mdewsnip
Message:

(Adding new DB support) Moved a bit more GDBM-specific code into write_infodb_entry_gdbm().

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/basebuildproc.pm

    r15697 r15698  
    424424        $value =~ s/\n/\\n/g; 
    425425        $value =~ s/\r/\\r/g; 
    426         if ($value =~ /-{70,}/) { 
    427             # if value contains 70 or more hyphens in a row we need 
    428             # to escape them to prevent txt2db from treating them 
    429             # as a separator 
    430             $value =~ s/-/&\#045;/gi; 
    431         } 
    432426 
    433427        # special case for URL metadata 
     
    499493            $contains .= "\".$1"; 
    500494            } 
    501             else { 
     495            else 
     496            { 
    502497            $contains .= "\".$child"; 
    503498            } 
     
    547542    foreach my $infodb_value (@{$infodb_map->{$infodb_value_key}}) 
    548543    { 
     544        if ($infodb_value =~ /-{70,}/) 
     545        { 
     546        # if value contains 70 or more hyphens in a row we need to escape them 
     547        # to prevent txt2db from treating them as a separator 
     548        $infodb_value =~ s/-/&\#045;/gi; 
     549        } 
    549550        print $handle "<$infodb_value_key>" . $infodb_value . "\n"; 
    550551    }