+ # if (($f->{tblcolumn} ne "") && ($f->{tblvalue} !~ /^http/)){
+ # if (! -d dirname($cfg->{mediapath}.''.$f->{tblvalue})){
+ # mkdir dirname($cfg->{mediapath}.''.$f->{tblvalue});
+ # }
+ # #print 'cp "'.$cfg->{mediapath}.'/'.$f->{nom_fichier}.'" "'.$cfg->{mediapath}.''.$f->{tblvalue}.'"'."\n";
+ # system('cp "'.$cfg->{mediapath}.'/'.$f->{nom_fichier}.'" "'.$cfg->{mediapath}.''.$f->{tblvalue}.'"');
+ # #print "UPDATE articles SET ".$f->{tblcolumn}."='".$f->{tblvalue}."' where article='".$f->{article}."';"."\n";
+ # $db->exec("UPDATE articles SET ".$f->{tblcolumn}."='".$f->{tblvalue}."' where article='".$f->{article}."';");
+ # } elsif (($f->{tblcolumn} ne "") && ($f->{tblvalue} =~ /^http/)){
+ # #print "UPDATE articles SET ".$f->{tblcolumn}."='".$f->{tblvalue}."' where article='".$f->{article}."';"."\n";
+ # $db->exec("UPDATE articles SET ".$f->{tblcolumn}."='".$f->{tblvalue}."' where article='".$f->{article}."';");
+ # }