5000,5003,5021,5050,6212 if v6212 : 'save' then 'Now' fi if a(v5021) then '^1parameter missing^2language^3Inform the parameter lang in the call to iAH' fi cat(v5000^b,'par/',v5003^*,'.def') ,( if v1 : 'FILE ' then '^n'v1*5/ fi ), ,( if v1 : 'FORMAT TITLE' then '^n'v1*13/ fi ), ,( if v1 : 'FILE ' and v1: 'pathLibrary' then '^n'v1*5/ fi /#), ,if p(v5050) then v5050 else 'main' fi, ,(replace(v7998,'%path_database%',v5000^b[1]) /), ,(replace(v7998,'%path_cgi-bin%',v5000^c[1]) /), ,(replace(v7998,'%lang%',v5021[1])/), ,(replace(v7998,'#',v5003^d[1]) /), ,(replace(v7998,'%pathLibrary%',v5050[1])/), (if v1 : 'INCLUDE CIPAR=' then mid(v1,instr(v1,'=')+1,size(v1)) fi/ ) if p(v7999) then (cat(getenv('PATH_TRANSLATED'),v7999)) fi 'HEADER.PFT=',v5000^c,v5021'/headerfacic.pft',/ 'CABEC.HTM=',v5000^c,v5021'/cabec.htm',/ 'LFACIC.PFT=',v5000^c,v5021'/lfacic.pft',/ 'LISTA.PFT=',v5000^c,v5021'/lista.pft',/ 'MFACIC.PFT=',v5000^c,v5021'/mfacic.pft',/ 'MOSTRA.PFT=',v5000^c,v5021'/mostra.pft',/ 'TROCA1.PFT=',v5000^c,v5021'/troca1.pft',/ 'TROCA2.PFT=',v5000^c,v5021'/troca2.pft',/ /* database def files */ ,(v7998^n/#), /* include def files */ ,(v7999/#), 7996,7997 5000,5001,5015 ^n^v (if v2100 : '.x^' then mid(v2100,1,instr(v2100,'.')-1),break fi) if a(v2200) then v5001 fi if v2200^n*0.4 = 'Page' then '^nGO PAGE^p'v2200^n*4 fi if a(v2200) and p(v5015) then 'getindex' fi 2200 getenv('PATH_TRANSLATED') if v1 : 'list' then left(v1,instr(v1,'list')-1) fi if right(replace(v1,'\','/'),1) <> '/' then s(v1,'/') fi putenv('PATH_TRANSLATED='v1) 'Content-type: text/html'/# 'iAH error | ',v1^1,' | 'v1^2,'

',v1^3,'' 0 5000,5021 IsisScript cat(getenv('PATH_TRANSLATED'),'iah.def.php') if a(v7999) then '^1aplication definition file^2unable to open ',getenv('PATH_TRANSLATED'),'iah.def.php^3Check the instalation process and the call to iAH.' fi ,(, ,if v7999 : 'PATH_DATABASE=' then '^b',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'PATH_CGI-BIN=' then '^c',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'PATH_DATA=' then '^d',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'MAINTENANCE=' then '^m',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,if v7999 : 'TEMPDIR=' then '^t',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,), ,'^s',v9990, ,if p(v9991) then '^p'v9991 fi, ,if p(v9992) then '^f'v9992 fi, ,'^v2.7', replace(v5000,'\','/') ,(, ,if v7999 : 'BODY BACKGROUND IMAGE=' then '^i',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'BODY BACKGROUND COLOR=' then '^c',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'BODY LINK COLOR=' then '^l',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'BODY TEXT COLOR=' then '^t',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'BAR BACKGROUND COLOR=' then '^b',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'MANAGER E-MAIL=' then '^e',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'MULTI-LANGUAGE=' then '^m',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'REVERSE MODE=' then '^r',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ,if v7999 : 'AVAILABLE LANGUAGES=' then '^a',mid(v7999,instr(v7999,'=')+1,size(v7999)) fi, ,), ( if v7999 : 'LOG DATABASE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'LOGO IMAGE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'LOGO URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'HEADER IMAGE=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'HEADER URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) ( if v7999 : 'BVSLOG URL=' then mid(v7999,instr(v7999,'=')+1,size(v7999)) fi ) 5000,5006,5020/5041,5220,8002 5000,5006,5003,5021 cat(v5000^b,'par/',v5003^*,'.def') replace(replace(v5006^a[1],' ',''),',',s(#)) (if v9021 = v5021[1] then f(iocc,1,0) fi) `(replace(v2,'^`,v9022,`','^L')/)` '[2:',v3,']'

'Content-type: text/html'/# if v5013^* = 'DEBUG' then 'On' fi if a(v5000) then 'Now' fi '5000 environment'/ '5001 nextAction'/ '5002 pathImages'/ '5003 base'/ '5004 arqdef'/ '5005 avaibleFormats'/ '5006 apperance'/ '5007 navBar'/ '5008 hits'/ '5009 format'/ '5010 prefixo'/ '5011 id'/ '5012 gizmo'/ '5013 user'/ '5113 userPassword'/ '5014 field'/ '5015 index'/ '5016 title'/ '5017 from'/ '5018 baseFeatures'/ '5019 to'/ '5020 logDatabase'/ '5021 lang'/ '5030 logoImage'/ '5031 logoURL'/ '5040 headerImage'/ '5041 headerURL'/ '5050 pathLibrary'/ '5100 infoTitle'/ v5999 tag 200000 now if right(replace(getenv('PATH_TRANSLATED'),'\','/'),1) <> '/' then 'Now' fi now if a(v5002) then v5000^d,s(mpl,v5021,mpl),'/image/', fi 120000 replace(v5011,'_','=') ref(['DATABASE']l(['DATABASE']v5111),v100,|: |v110|. |,v120|. |v130,|=|v230,| [|v520|]|,|. |,v490,|: |v480,'. ',|Vol. |v302|, |,|No. |v303|, |v301,if v50='D' then | - Vol. |v305|, |,|No. |v306|, |v304'. ', else ' - . ' fi,v380|. |,if p(v350) then 'Available from: '(| |v350+|,|)'. ' fi,|Continues: |v610^*|. |,|Continued by: |v710^*|. |,|ISSN:|v400 ,|. ISSN Online: |v890|.|) if a(v5008) then '50' else v5008 fi if p(v5001) then v5001^* fi facic v911,v912,v913 v5011 v5011 On Isis_Current Isis_Key Isis_Postings Isis_Posting cat('CABEC.HTM') 5002 5006 5008 5011 5100 if val(v2)<=val(v5008) then 'MOSTRA50' fi @LFACIC.PFT facic v5011 On Isis_Current '*'(v2005^f|*|),(v2005^t|*|) 2004 @LISTA.PFT 2000 f(nocc(v2005),1,0) 2005,2000 @TROCA1.PFT @TROCA2.PFT 1 2005 1 2006 2007 (v2007/) @MOSTRA.PFT 0 facic v5011 1 v5008 On Isis_Current 5006 5100 @MFACIC.PFT '' 0 facic v5011 Isis_Current Isis_Total v5017 v5019 On cat('CABEC.HTM') 5006 5017 5019 5100 @MFACIC.PFT 0 USERS '$' Isis_Current 5000, 7996 ,(v7996,/), ,(replace(v7996,'%path_database%',v5000^b[1])/), ,(replace(v7996,'%pathLibrary%',v6[1])/), ,v1001'.*=', ,(replace(v7996,'.*=',v7995[1])/), '
'(v7996^n/#) /* database def files */ ,(v7996^n/#), 'holdings'v1001 TIT=931 v970 0