creer_portfolio - ajout note public depuis 856z

gestion_des_portfolios/creer_portfolios.pl

@@ -8,13 +8,15 @@
 #	Le portfolio est créer selon le modéle du fichier modele-portfolio.xml : ce fichier contient 2 motifs à remplacer
 #	avant le post : [MMS_ID] et [URL]
 #	09-02-2023 : ajout cas csv multicolonne : le fichier csv peut avoir plusieurs colonne , c'est la 1er qui contient le mms_id
+#	25/09/2023 : ajout 856$z dans "note public"
 ##############################
 use strict;
 use warnings;
 use LWP::UserAgent; 	# bibliothèque pour les webservice
 use XML::Twig;			# bibliothèque pour le XML
 use URI::Encode qw(uri_encode uri_decode);; #encoder decoder les URL   - requiert la bibliotheque liburi-encode-perl
-
+use utf8;
+use Encode;
 
 my $nom_fic_csv="";
 my %hash_conf=();
@@ -102,10 +104,13 @@ for ($i;$i<=$#tab_inter;$i++) {
 		{ 
 				
 				my $tag = $un_datafield->{'att'}->{'tag'};
+				
 				if ($tag=="856") { # on est dans le bon datafield
 					print "\n##### 856 #######\n";
 					#print $un_datafield->sprint;
 					#print "\n############\n";
+					my $url="";
+					my $note_public="";
 					my @les_subfield= $un_datafield->children('subfield');  ### on récuperer une table de hash de tous les "enfants"
 					foreach my $un_subfield (@les_subfield)      # liste chaque datafield de la liste
 						{
@@ -113,12 +118,23 @@ for ($i;$i<=$#tab_inter;$i++) {
 						#print $code,"\n";
 						if ($code=~ /^u$/) { # on est dans le bon subfield
 							print "\n\t##### sous champ u #######\n";
-							print "\t".$un_subfield->text()."\n";
-							
-							$tab_mms_id_url{"[".$mms_id."][".$un_subfield->text()."]"}++;
-							ecrire_log($mms_id,$un_subfield->text());
+							$url=$un_subfield->text();
+							#print "\t".$un_subfield->text()."\n";
+							print "\t".$url."\n";
+							
+							#$tab_mms_id_url{"[".$mms_id."][".$un_subfield->text()."]"}="";
+							$tab_mms_id_url{"[".$mms_id."][".$url."]"}="";
+							#ecrire_log($mms_id,$un_subfield->text());
+							ecrire_log($mms_id,$url);
 							$nbr_portfolios++;
 						}
+						if ($code=~ /^z$/) { # on est dans le bon subfield
+							print "\n\t##### sous champ z #######\n";
+							$note_public=$un_subfield->text();
+							print "\t".$note_public."\n";
+							$tab_mms_id_url{"[".$mms_id."][".$url."]"}=$note_public;
+							
+						}
 					}
 				}
 		}
@@ -194,16 +210,19 @@ print "######\n";
 
 my $c="";
 my $url="";
+my $note_public="";
 my $portfolio_a_creer="";
 foreach $c (sort keys %tab_mms_id_url) {
 	print $c,"\n";
 	$c=~/\[(.*)\]\[(.*)\]/;
 	$mms_id=$1;
 	$url=$2;
+	$note_public=Encode::encode_utf8 $tab_mms_id_url{$c};
 	print "--->Creation du portfolio $url pour le mms_id $mms_id:\n";
 	$portfolio_a_creer=$bloc_modele_portfolio;
 	$portfolio_a_creer=~ s/\[MMS_ID\]/$mms_id/g;
 	$portfolio_a_creer=~ s/\[URL\]/$url/g;
+	$portfolio_a_creer=~ s/\[NOTE_PUBLIC\]/$note_public/g; #ajout note public
 	#print "\n$portfolio_a_creer\n";
 	$block_xml=post_create_portfolio_mms_id($mms_id,$portfolio_a_creer);
 	print $block_xml,"\n";