Atualiza o branch scielo_sza com branch master

README.md

@@ -0,0 +1,10 @@
+# Web
+SciELO Web
+
+
+A partir da versão **5.45.2**, copiar os arquivos `gizmo.*`, disponíveis em `bases_modelo/gizmo` para o diretório `bases/gizmo` da aplicação implantada.
+Caso a página do site não carregue conforme esperado, execute também:
+
+```
+proc/cisis/id2i bases/gizmo/gizmo.id create=bases/gizmo/gizmo
+```

bases_modelo/gizmo/gizmo.id

@@ -0,0 +1,6 @@
+!ID 0000001
+!v001!<FONT FACE=Symbol>&#08;</FONT>
+!v002! 
+!ID 0000002
+!v001!
+!v002! 

cgi-bin/ScieloXML/sci_cipar.xis

@@ -121,6 +121,7 @@ PATH_DATA:     tag 7014
 		'PROC_XML_SCOPUS_CITED_BY_COUNT.PFT=',v8034, 'pfts/proc_xml_scopus_cited_by_count.pft',/
 		'PROC_XML_CRS.PFT=',v8034, 'pfts/proc_xml_crs.pft',/
 		'GIZMO_XML_REF.*=', v8034, 'webservices/wxis/gizmo/gizmoXML.*',/
+        'GIZMO_OAI.*=', v7011, 'gizmo/gizmo.*',/
 	</pft>
 </parm>
 

cgi-bin/ScieloXML/sci_common.xis

@@ -1788,7 +1788,8 @@
 						('<AFF xref="',v1300,'"/>'/)
 					fi
       			    |    <NAME><![CDATA[|v9810^n|]]></NAME>|,/
-		    	    |    <SURNAME><![CDATA[|v9810^s|]]></SURNAME>|/                    
+		    	    |    <SURNAME><![CDATA[|v9810^s|]]></SURNAME>|,/
+		    	    |    <ORCID><![CDATA[|v9810^k|]]></ORCID>|/                    
                     fi 
                 </pft>
             </display>
@@ -3594,7 +3595,7 @@ fi
             <display><pft>
             if v706='h' then 
             	(if v4000^l[1]=v12^l then ,
-            		'<citation_title lang="',v12^l,'">',v12^*,| |v12^s,'</citation_title>',
+            		'<citation_title lang="',v12^l,'"><![CDATA[',v12^*,| |v12^s,']]></citation_title>',
             	fi)
             fi
             </pft></display>

cgi-bin/ScieloXML/sci_getrecord.xis

@@ -0,0 +1,54 @@
+<IsisScript>
+
+<!-- Common functions -->
+<include>ScieloXML/sci_record.xis</include>
+
+
+<section>
+	<!-- Get CGI Parameters -->
+	<field action="cgi" tag="1">pid</field>
+	<field action="cgi" tag="2">lng</field>
+	<field action="cgi" tag="4">sln</field>
+	<field action="cgi" tag="10">debug</field>
+	<field action="cgi" tag="11">tlng</field>
+	<field action="cgi" tag="3011">def</field>
+
+	<field action="replace" tag="3011"><pft>if a(v3011) then 'scielo.def.php' fi</pft></field>
+
+	<call name="DebugMode"><pft>if a(v10) then 'OFF' else mpu,v10,mpl fi</pft></call>
+
+	<include>ScieloXML/sci_cipar.xis</include>  
+
+	<field action="replace" tag="1"><pft>ref(['ARTIGO']l(['ARTIGO']'HR='v1),@PROC_SPLIT_MST.PFT,if p(v222) then v222 else v880 fi)</pft></field>
+	<field action="replace" tag="3331"><pft>ref(['ARTIGO']l(['ARTIGO']'HR='v1),@PROC_SPLIT_MST.PFT,if p(v41) then 'P' else 'Y' fi)</pft></field>
+
+	<!-- 5 - Title MFN, 6 - Issue MFN, 7 - Article MFN -->  
+	<field action="replace" tag="5"><pft>f(l(['TITLE']'LOC='mid(v1,2,9)),1,0)</pft></field>
+	<field action="replace" tag="6"><pft>f(l(['NEWISSUE']v3331,mid(v1,2,17)),1,0)</pft></field>
+	<field action="replace" tag="7"><pft>f(l(['ARTIGO']'HR='v1),1,0)</pft></field>
+
+	<!-- Article text language -->
+	<field action="replace" tag="11"><pft>if a(v11) then ref(['ARTIGO']val(v7),@PROC_SPLIT_MST.PFT,v40) fi</pft></field>
+
+	<call name="CreateErrorXML">
+		<pft>
+		if val(v7)<=0 then
+			'^l'v2,'^p'v1'^c','0001'
+		fi
+		</pft>
+	</call>
+
+	<!-- Create XML for Article -->	    	
+	<call name="CreateArticleXML">
+		<pft>
+			'^a'v7,
+			'^s'v6,
+			'^l'v2,
+			'^i'v4,
+			'^p'v1,
+			'^t'v11
+		</pft>
+	</call>
+
+</section>
+</IsisScript>

cgi-bin/ScieloXML/sci_listrecords_scielo.xis

@@ -0,0 +1,221 @@
+<IsisScript>
+    <include>ScieloXML/sci_record.xis</include>
+
+    <section>
+        <field action="cgi" tag="3000">count</field>    
+        <field action="cgi" tag="3001">set</field>  
+        <field action="cgi" tag="3002">from</field>
+        <field action="cgi" tag="3003">until</field>
+        <field action="cgi" tag="3004">resume</field>
+        <field action="cgi" tag="3005">lng</field>
+        <field action="cgi" tag="3010">debug</field>
+        <field action="cgi" tag="3011">def</field>
+        <field action="cgi" tag="3012">metadataprefix</field>        
+
+        <field action="replace" tag="3011"><pft>if a(v3011) then 'scielo.def.php' fi</pft></field>
+
+        <call name="DebugMode"><pft>if a(v3010) then 'OFF' else mpu,v3010,mpl fi</pft></call>
+
+        <include>ScieloXML/sci_cipar.xis</include>  
+
+        <field action="replace" tag="3002"><pft>if p(v3002) then replace(v3002,'-','') fi</pft></field>
+        <field action="replace" tag="3003"><pft>if p(v3003) then replace(v3003,'-','') fi</pft></field>
+        <field action="replace" tag="3004"><pft>if p(v3004) then replace(v3004,'__','=') fi</pft></field>
+
+        <field action="replace" tag="3007">
+            <pft>if v3001<>'openaire' then f(l(['TITLE'],'LOC='v3001),1,0) fi</pft>
+        </field>
+
+        <field action="replace" tag="3400">
+            <pft>if v3001<>'openaire' then v3001 fi</pft>
+        </field>
+
+        <field action="replace" tag="3008">
+            <pft>
+                if v3004*0.3 = 'HR=' then
+                    f(l(['ARTIGO'],v3004),1,0)
+                fi
+            </pft>
+        </field>
+
+        <field action="replace" tag="3000"><pft>if a(v3000) then '10' fi</pft></field>
+
+        <call name="CreateErrorXML">
+            <pft>
+                if p(v3004) and p(v3008) and val(v3008)<=0 then
+                    '^l'v3005,'^p'v3004*3'^c0003' 
+                else
+                    if v3001<>'openaire' then
+                        if p(v3001) and val(v3007)<=0 then
+                            '^l'v3005,'^p'v3001'^c0001'
+                        fi
+                    fi
+                fi
+            </pft>
+        </call>
+
+        <display><pft>'<LIST_RECORDS>'/</pft></display>
+
+        <do task="search">
+            <parm name="db">ARTIGO</parm>   
+            <parm name="expression">OAITS=$</parm>  
+            <parm name="count">1</parm> 
+
+            <loop>
+                <display><pft>@PROC_SPLIT_MST.PFT,</pft></display>
+                <field action="replace" tag="9000">OAITS</field>
+                <field action="export" tag="list">9000</field>
+            </loop>
+        </do>
+
+        <flow action="jump">
+            <pft>
+                if v9000='OAITS' then
+                    'LIST'
+                fi
+            </pft>
+        </flow>
+
+        <do task="search">
+            <parm name="db">ARTIGO</parm>   
+            <parm name="expression">DTH=$</parm>    
+            <parm name="count">1</parm> 
+
+            <loop>
+                <display><pft>@PROC_SPLIT_MST.PFT,</pft></display>
+                <field action="replace" tag="9000">DTH</field>
+                <field action="export" tag="list">9000</field>
+            </loop>
+        </do>
+
+        <label>LIST</label>
+        <display><pft>' <LIST>'/</pft></display>
+
+        <field action="replace" tag="9001">
+            <pft>
+                if p(v9000) and a(v3400) and (p(v3002) or p(v3003)) then
+                    'DATE_KEY'
+                fi
+            </pft>
+        </field>
+
+        <field action="replace" tag="3030">
+            <pft>
+                if p(v3004) then
+                    ,replace(v3004,'DTH',v9000),
+                else
+                    if v9001 = 'DATE_KEY' then
+                        v9000,'=',v3002
+                    else
+                        'HR=S',v3400
+                    fi
+                fi
+            </pft>
+        </field>
+
+        <field action="replace" tag="3031">
+            <pft>
+                if v9001 = 'DATE_KEY' then
+                    ,if p(v3003) then
+                        ,v9000,'=',v3003,'ZZZZZ'
+                    ,fi
+                else
+                   'HR=S',v3400,'ZZZZZ'
+                fi
+            </pft>
+        </field>
+
+        <do task="keyrange">
+            <parm name="db">ARTIGO</parm>   
+            <parm name="from"><pft>v3030</pft></parm>
+            <parm name="to"><pft>v3031</pft></parm>            
+            <parm name="posting">All</parm>
+
+            <field action="replace" tag="1001">1</field>
+            <field action=define tag="1002">Isis_Key</field>
+            <field action=define tag="1003">Isis_Posting</field>
+
+            <loop>
+                <field action="import" tag="list">1001,3000/3004,3012,7009/7060</field>
+
+                <flow action="jump">
+                    <pft>
+                        if val(v1001) > val(v3000) then
+                            'RESUMPTION_TOKEN'
+                        fi
+                    </pft>
+                </flow>
+
+                <field action="replace" tag="1091">
+                    <pft>
+                        ref(['ARTIGO']val(v1003^m)-1,@PROC_SPLIT_MST.PFT,
+                            if p(v93) then if val(v93*0.8) > val(v91) then v93*0.8 else v91 fi else v91 fi)
+                    </pft>
+                </field>
+
+                <field action="replace" tag="1880">
+                    <pft>
+                        ref(['ARTIGO']val(v1003^m),@PROC_SPLIT_MST.PFT,v880)
+                    </pft>
+                </field>
+
+                <flow action="skip">
+                    <pft>
+                        if p(v3002) and v1091 < v3002*0.8 then
+                            'Next'
+                        fi
+                    </pft>
+                </flow>
+
+                <flow action="skip">
+                    <pft>
+                        if p(v3003) and v1091 > v3003*0.8 then
+                            'Next'
+                        fi
+                    </pft>
+                </flow>
+
+                <field action="replace" tag="3331"><pft>ref(['ARTIGO']l(['ARTIGO']'HR='v1880),@PROC_SPLIT_MST.PFT,if p(v41) then 'P' else 'Y' fi)</pft></field>
+
+                <field action="replace" tag="6"><pft>f(l(['NEWISSUE']v3331,mid(v1880,2,17)),1,0)</pft></field>
+                <field action="replace" tag="11"><pft>if a(v11) then ref(['ARTIGO']val(v1003^m),@PROC_SPLIT_MST.PFT,v40) fi</pft></field>
+
+                <call name="CreateArticleXML">
+                    <pft>
+                        '^p'v1880,
+                        '^a'v1003^m,
+                        '^t'v11,
+                        '^l'v3005,
+                        '^i'v3005,
+                        '^s'v6
+                    </pft>
+                </call>
+
+                <field action="replace" tag="1001"><pft>f(val(v1001)+1,1,0)</pft></field>
+                <field action="export" tag="list">1001</field>
+                <flow action="skip">Next</flow>
+
+                <label>RESUMPTION_TOKEN</label>
+                <display>
+                    <pft>
+                        '  <RESUME CONTROL="',replace(replace(v1002,'=','__'),'OAITS','DTH'),'"',
+                               | SET="|v3001|"|,
+                               | FROM="|v3002|"|,
+                               | UNTIL="|v3003|"|,
+                               | METADATAPREFIX="|v3012|"|,
+                        '/>',/
+                    </pft>
+                </display>
+
+                <field action="replace" tag="9002">1</field>
+                <field action="export" tag="list">9002</field>
+                <flow action="skip">Quit</flow>
+            </loop>
+
+            <display><pft>if p(v3004) and a(v9002) then '<RESUME/>'/ fi</pft></display>
+        </do>
+
+        <display><pft>' </LIST>'/</pft></display>            
+        <display><pft>'</LIST_RECORDS>'/</pft></display>
+    </section>
+</IsisScript>