Changeset 112131 in spip-zone


Ignore:
Timestamp:
Oct 23, 2018, 3:27:18 PM (7 months ago)
Author:
booz@…
Message:

passer la correction de liens internes en action, et prendre en compte les liens avec ->art

Location:
_plugins_/convertisseur/trunk
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • _plugins_/convertisseur/trunk/spip-cli/ConvertisseurImporter.php

    r110997 r112131  
    124124                                        if(is_file("liens_a_corriger.txt"))
    125125                                                unlink("liens_a_corriger.txt");
    126                                         if(is_file("liens_non_corriges.txt"))
    127                                                 unlink("liens_non_corriges.txt");
    128                                         if(is_file("liens_corriges.txt"))
    129                                                 unlink("liens_corriges.txt");
    130126                                       
    131127                                        foreach($fichiers as $f){
     
    393389                                                        if($v){
    394390                                                                list($id_article, $id_source) = explode("\t", $v);
    395                                                                 $texte = sql_getfetsel("texte", "spip_articles", "id_article=$id_article") ;
    396                                                                 // recaler des liens [->123456] ?
    397                                                                 include_spip("inc/lien");
    398                                                                 if(preg_match_all(_RACCOURCI_LIEN, $texte, $liens, PREG_SET_ORDER)){
    399                                                                         foreach($liens as $l){
    400                                                                                 if(preg_match("/^[0-9]+$/", $l[4])){
    401                                                                                         // trouver l'article dont l'id_source est $l[4] dans le secteur
    402                                                                                         if($id_dest = sql_getfetsel("id_article", "spip_articles", "id_source=" . trim($l[4]) . " and id_secteur=$id_parent")){
    403                                                                                                 $lien_actuel = $l[0] ;
    404                                                                                                 $lien_corrige = str_replace($l[4], $id_dest, $l[0]) ;
    405                                                                                                
    406                                                                                                 $lien = escapeshellarg("$id_article : $lien_actuel => $lien_corrige");
    407                                                                                                 passthru("echo $lien >> liens_corriges.txt");
    408                                                                                                 // maj le texte
    409                                                                                                 $texte_corrige = str_replace($lien_actuel, $lien_corrige, $texte);
    410                                                                                                 sql_update("spip_articles", array("texte" => sql_quote($texte_corrige)), "id_article=$id_article");
    411                                                                                                 // attention s'il y a plusieurs liens
    412                                                                                                 $texte = $texte_corrige ;
    413                                                                                         }else{
    414                                                                                                 $commande = escapeshellarg("Dans $id_article (source $id_source)" . $l[0] . " : lien vers " . $l[4] . " non trouvé") ;
    415                                                                                                 passthru("echo $commande >> liens_non_corriges.txt");
    416                                                                                         }
    417                                                                                        
    418                                                                                 }
    419                                                                         }
    420                                                                 }
     391                                                                include_spip("action/corriger_lien_interne");
     392                                                                convertisseur_corriger_lien_interne($id_article,$id_parent);
    421393                                                        }
    422394                                                }
Note: See TracChangeset for help on using the changeset viewer.