{\rtf1\ansi\ansicpg1252\uc1 \deff28\deflang3082\deflangfe3082{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f2\fmodern\fcharset0\fprq1{\*\panose 02070309020205020404}Courier New;}\r
{\f3\froman\fcharset2\fprq2{\*\panose 05050102010706020507}Symbol;}{\f14\fnil\fcharset2\fprq2{\*\panose 05000000000000000000}Wingdings;}{\f28\fswiss\fcharset0\fprq2{\*\panose 020b0604030504040204}Verdana;}\r
-{\f29\fswiss\fcharset0\fprq2{\*\panose 020b0807020203060204}BankGothic Md BT;}{\f34\froman\fcharset238\fprq2 Times New Roman CE;}{\f35\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f37\froman\fcharset161\fprq2 Times New Roman Greek;}\r
-{\f38\froman\fcharset162\fprq2 Times New Roman Tur;}{\f39\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f40\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f41\froman\fcharset186\fprq2 Times New Roman Baltic;}\r
-{\f50\fmodern\fcharset238\fprq1 Courier New CE;}{\f51\fmodern\fcharset204\fprq1 Courier New Cyr;}{\f53\fmodern\fcharset161\fprq1 Courier New Greek;}{\f54\fmodern\fcharset162\fprq1 Courier New Tur;}{\f55\fmodern\fcharset177\fprq1 Courier New (Hebrew);}\r
-{\f56\fmodern\fcharset178\fprq1 Courier New (Arabic);}{\f57\fmodern\fcharset186\fprq1 Courier New Baltic;}{\f258\fswiss\fcharset238\fprq2 Verdana CE;}{\f259\fswiss\fcharset204\fprq2 Verdana Cyr;}{\f261\fswiss\fcharset161\fprq2 Verdana Greek;}\r
-{\f262\fswiss\fcharset162\fprq2 Verdana Tur;}{\f265\fswiss\fcharset186\fprq2 Verdana Baltic;}{\f270\fswiss\fcharset162\fprq2 BankGothic Md BT Tur;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\r
-\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\r
-\red192\green192\blue192;\red230\green230\blue230;\red255\green255\blue255;}{\stylesheet{\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 \snext0 Normal;}{\r
+{\f124\froman\fcharset238\fprq2 Times New Roman CE;}{\f125\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f127\froman\fcharset161\fprq2 Times New Roman Greek;}{\f128\froman\fcharset162\fprq2 Times New Roman Tur;}\r
+{\f129\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f130\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f131\froman\fcharset186\fprq2 Times New Roman Baltic;}{\f140\fmodern\fcharset238\fprq1 Courier New CE;}\r
+{\f141\fmodern\fcharset204\fprq1 Courier New Cyr;}{\f143\fmodern\fcharset161\fprq1 Courier New Greek;}{\f144\fmodern\fcharset162\fprq1 Courier New Tur;}{\f145\fmodern\fcharset177\fprq1 Courier New (Hebrew);}\r
+{\f146\fmodern\fcharset178\fprq1 Courier New (Arabic);}{\f147\fmodern\fcharset186\fprq1 Courier New Baltic;}{\f348\fswiss\fcharset238\fprq2 Verdana CE;}{\f349\fswiss\fcharset204\fprq2 Verdana Cyr;}{\f351\fswiss\fcharset161\fprq2 Verdana Greek;}\r
+{\f352\fswiss\fcharset162\fprq2 Verdana Tur;}{\f355\fswiss\fcharset186\fprq2 Verdana Baltic;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\r
+\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;\red230\green230\blue230;\r
+\red255\green255\blue255;}{\stylesheet{\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 \snext0 Normal;}{\r
\s1\qj \li0\ri0\keepn\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \b\f28\fs20\ul\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 \sbasedon0 \snext0 heading 1;}{\r
\s2\qj \li0\ri0\keepn\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \b\f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 \sbasedon0 \snext0 heading 2;}{\r
\s3\qj \li0\ri0\keepn\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\ul\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 \sbasedon0 \snext0 heading 3;}{\r
\fi-360\li5040\jclisttab\tx5040 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\leveltemplateid201981955\'01o;}{\levelnumbers;}\f2\chbrdr\brdrnone\brdrcf1 \r
\chshdng0\chcfpat1\chcbpat1\fbias0 \fi-360\li5760\jclisttab\tx5760 }{\listlevel\levelnfc23\levelnfcn23\leveljc0\leveljcn0\levelfollow0\levelstartat1\levelspace0\levelindent0{\leveltext\leveltemplateid201981957\'01\u-3929 ?;}{\levelnumbers;}\f14\chbrdr\r
\brdrnone\brdrcf1 \chshdng0\chcfpat1\chcbpat1\fbias0 \fi-360\li6480\jclisttab\tx6480 }{\listname ;}\listid1648389061}}{\*\listoverridetable{\listoverride\listid1648389061\listoverridecount0\ls1}}{\info{\title ADMINISTRACI\'d3N DE USUARIOS}\r
-{\author Dir. Gral. de Inform\'e1tica}{\operator Dir. Gral. de Inform\'e1tica}{\creatim\yr2003\mo3\dy6\hr19\min20}{\revtim\yr2003\mo3\dy6\hr19\min20}{\printim\yr2003\mo2\dy6\hr11\min4}{\version2}{\edmins2}{\nofpages6}{\nofwords513}{\nofchars2927}\r
+{\author Dir. Gral. de Inform\'e1tica}{\operator Dir. Gral. de Inform\'e1tica}{\creatim\yr2003\mo3\dy6\hr19\min20}{\revtim\yr2003\mo3\dy24\hr12\min37}{\printim\yr2003\mo2\dy6\hr11\min4}{\version15}{\edmins21}{\nofpages7}{\nofwords513}{\nofchars2927}\r
{\*\company Ministerio de Econom\'eda}{\nofcharsws0}{\vern8249}}\paperw11907\paperh16840\margl1134\margr1134\margt1134\margb1134 \r
\deftab708\widowctrl\ftnbj\aenddoc\hyphhotz425\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\hyphcaps0\formshade\horzdoc\dgmargin\dghspace180\dgvspace180\dghorigin1134\dgvorigin1134\dghshow1\dgvshow1\r
\jexpand\viewkind1\viewscale75\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule \fet0\sectd \psz9\linex0\headery680\footery680\colsx708\endnhere\sectlinegrid360\sectdefaultcl \r
\par }}{\footer \trowd \trgaph70\trleft-70\trbrdrt\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trftsWidth1\trautofit1\trpaddl70\trpaddr70\trpaddfl3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrnone \clbrdrb\brdrnone \clbrdrr\brdrnone \r
\cltxlrtb\clftsWidth3\clwWidth4889 \cellx4819\clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrnone \clbrdrb\brdrnone \clbrdrr\brdrnone \cltxlrtb\clftsWidth3\clwWidth4890 \cellx9709\pard\plain \s16\qj \li0\ri0\widctlpar\intbl\r
\tqc\tx4419\tqr\tx8838\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\fs18 06-03-2003\cell }\pard \s16\qr \li0\ri0\widctlpar\intbl\r
-\tqc\tx4419\tqr\tx8838\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fs18 P\'e1gina }{\field{\*\fldinst {\fs18 PAGE }}{\fldrslt {\fs18\lang1024\langfe1024\noproof 1}}}{\fs18 de }{\field{\*\fldinst {\fs18 NUMPAGES }}{\fldrslt {\r
-\fs18\lang1024\langfe1024\noproof 6}}}{\fs18 \cell }\pard\plain \qj \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\trowd \trgaph70\trleft-70\trbrdrt\brdrs\brdrw10 \r
+\tqc\tx4419\tqr\tx8838\aspalpha\aspnum\faauto\adjustright\rin0\lin0 {\fs18 P\'e1gina }{\field{\*\fldinst {\fs18 PAGE }}{\fldrslt {\fs18\lang1024\langfe1024\noproof 6}}}{\fs18 de }{\field{\*\fldinst {\fs18 NUMPAGES }}{\fldrslt {\r
+\fs18\lang1024\langfe1024\noproof 7}}}{\fs18 \cell }\pard\plain \qj \li0\ri0\widctlpar\intbl\aspalpha\aspnum\faauto\adjustright\rin0\lin0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\trowd \trgaph70\trleft-70\trbrdrt\brdrs\brdrw10 \r
\trbrdrh\brdrs\brdrw10 \trftsWidth1\trautofit1\trpaddl70\trpaddr70\trpaddfl3\trpaddfr3 \clvertalt\clbrdrt\brdrs\brdrw10 \clbrdrl\brdrnone \clbrdrb\brdrnone \clbrdrr\brdrnone \cltxlrtb\clftsWidth3\clwWidth4889 \cellx4819\clvertalt\clbrdrt\brdrs\brdrw10 \r
\clbrdrl\brdrnone \clbrdrb\brdrnone \clbrdrr\brdrnone \cltxlrtb\clftsWidth3\clwWidth4890 \cellx9709\row }\pard\plain \s16\qj \li0\ri0\widctlpar\tqc\tx4419\tqr\tx8838\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \r
\f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff\r
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff\r
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff\r
-ffffffffffffffffffffffffffffffff52006f006f007400200045006e00740072007900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000016000500ffffffffffffffff02000000111a020000000000c000000000000046000000000000000000000000e044\r
-ff862ee4c20103000000000200000000000001004f006c00650000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000a000201ffffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000\r
+ffffffffffffffffffffffffffffffff52006f006f007400200045006e00740072007900000000000000000000000000000000000000000000000000000000000000000000000000000000000000000016000500ffffffffffffffff02000000111a020000000000c0000000000000460000000000000000000000002030\r
+45521bf2c20103000000000200000000000001004f006c00650000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000a000201ffffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000\r
0000000000000000000000001400000000000000010043006f006d0070004f0062006a00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000120002010100000004000000ffffffff0000000000000000000000000000000000000000000000000000\r
0000000000000000000001000000690000000000000003004f0062006a0049006e0066006f0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000012000201ffffffffffffffffffffffff000000000000000000000000000000000000000000000000\r
000000000000000000000000030000000400000000000000feffffff02000000fefffffffefffffffeffffff0600000007000000feffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff\r
2d0104000300000000000000}{\result {{\pict{\*\picprop\shplid1025{\sp{\sn shapeType}{\sv 75}}{\sp{\sn fFlipH}{\sv 0}}{\sp{\sn fFlipV}{\sv 0}}{\sp{\sn pictureGray}{\sv 0}}{\sp{\sn pictureBiLevel}{\sv 0}}\r
{\sp{\sn pictureActive}{\sv 0}}{\sp{\sn fFilled}{\sv 0}}{\sp{\sn fHitTestFill}{\sv 1}}{\sp{\sn fillShape}{\sv 1}}{\sp{\sn fillUseRect}{\sv 0}}{\sp{\sn fNoFillHitTest}{\sv 0}}\r
{\sp{\sn fLine}{\sv 0}}{\sp{\sn fLayoutInCell}{\sv 1}}{\sp{\sn fReallyHidden}{\sv 0}}{\sp{\sn fScriptAnchor}{\sv 0}}{\sp{\sn fFakeMaster}{\sv 0}}{\sp{\sn fLayoutInCell}{\sv 1}}}\picscalex85\picscaley85\piccropl0\piccropr0\piccropt0\piccropb0\r
-\picw19798\pich9320\picwgoal11224\pichgoal5284\wmetafile8\bliptag-632718687\blipupi-109{\*\blipuid da497aa17dc6fe368f14c14a611cf037}\r
+\picw19798\pich9320\picwgoal11224\pichgoal5284\wmetafile8\bliptag-375662658\blipupi-109{\*\blipuid e99bd7bee9998690563308cdb4574b6b}\r
010009000003d90a00000800560000000000050000000b0200000000050000000c024d042209050000000902ffffff0005000000010200000000040000000201\r
02000500000001020000000007000000fc020000ffffff000000040000002d01000009000000fa02000001000000000000002200040000002d0101000e000000\r
240305000700c2003301c20033010700070007000700c20009000000fa02000000000000000000002200040000002d01020007000000fc020100000000000000\r
020048012602330126020800000025030200480126023301310208000000250302004801260233011c02080000002503020089021c0289023102080000002503\r
020094021c0294023102040000002d01020004000000f0010700040000002d010500040000002d010400040000002d010000040000002d0106000c0000002403\r
0400d6010f02d6013d0206023d0206020f02040000002d010200040000002d0103000400000008010000050000000a0200000000040000000201010004000000\r
-2e01180005000000090200000000040000002d010500070000002105020052323002d901040000002d0104000300000000000000000000000000000000000000}}}}}{\r
+2e01180005000000090200000000040000002d010500070000002105020052323002d901040000002d010400030000000000000000000000000000000000000000000000}}}}}{\r
\par \r
\par \r
\par }{\ul \r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {Cada uno de los perfiles administrados.\r
\par }{\ul id_perfil\r
\par }{desc_perfil\r
-\par tipo_perfil*\r
+\par tipo_perfil *\r
+\par fecha\r
+\par responsable\r
\par \r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\b PERFIL / SISTEMA}{ (ENT)}{\b \r
\par }{Asociaci\'f3n entre los perfiles y el sistema al cual corresponden.\r
\par }{\ul R3\r
\par R4\r
-\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
+\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {fecha\r
+\par responsable\r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
+\par \r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\b PERFIL / SISTEMA / USUARIO }{(ENT) }{\b \r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\i De Dependencia Asociativa\r
\par }{Asociaci\'f3n entre los usuarios y los perfiles a los que est\'e1n asignados en cada uno de los sistemas.\r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\ul R1\r
\par }\pard\plain \s3\qj \li0\ri0\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel2\adjustright\rin0\lin0\itap0 \f28\fs20\ul\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {R2\r
-\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
+\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {fecha\r
+\par responsable\r
\par }{\ul \r
-\par }{\b \page PERMISO }{(ENT)}{\b \r
+\par }{\b \r
+\par PERMISO }{(ENT)}{\b \r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\i Fundamental\r
\par }{Cada uno de los permisos administrados.\r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\ul id_permiso\r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {desc_permiso\r
-\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
+\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {fecha\r
+\par responsable\r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
+\par \r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\b PERMISO / PERFIL / SISTEMA }{(ENT)}{\b \r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\i De Dependencia Asociativa\r
\par }{Asociaci\'f3n entre los permisos y el perfil del sistema al cual corresponden.\r
\par }{\ul R5\r
\par R7\r
-\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
+\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {fecha\r
+\par responsable\r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
+\par \r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\b PERMISO / SISTEMA }{(ENT)}{\b \r
\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\i De Dependencia Asociativa\r
\par }{Asociaci\'f3n entre los permisos y el sistema al que corresponden.\r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\ul R6\r
\par }\pard\plain \s3\qj \li0\ri0\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel2\adjustright\rin0\lin0\itap0 \f28\fs20\ul\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {R8\r
-\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {observaciones *\r
-\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\ul \r
+\par }\pard\plain \s15\qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\ul observaciones}{ *\r
+\par fecha\r
+\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {responsable\r
+\par }{\ul \r
\par \r
\par }\pard\plain \s2\qj \li0\ri0\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {R1 }{\b0 (REL)}{\r
\par }\trowd \trgaph70\trleft-70\trbrdrt\brdrs\brdrw10 \trbrdrl\brdrs\brdrw10 \trbrdrb\brdrs\brdrw10 \trbrdrr\brdrs\brdrw10 \trbrdrh\brdrs\brdrw10 \trbrdrv\brdrs\brdrw10 \trftsWidth1\trautofit1\trpaddl70\trpaddr70\trpaddfl3\trpaddfr3 \clvertalc\clbrdrt\r
\par fecha_inicio\r
\par fecha_fin\r
\par fecha_implementacion\r
-\par contacto*\r
+\par contacto *\r
+\par fecha\r
+\par responsable\r
\par }{\ul \r
\par \r
\par }\pard\plain \s2\qj \li0\ri0\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {USUARIO }{\b0 (ENT)}{\r
\par fecha\r
\par }{\ul \r
\par \r
-\par \page \r
\par }{* }{\ul Observaciones:\r
\par \r
\par {\listtext\pard\plain\fs20 \hich\af0\dbch\af0\loch\f0 -\tab}}\pard \qj \fi-360\li720\ri0\widctlpar\jclisttab\tx720\aspalpha\aspnum\faauto\ls1\adjustright\rin0\lin720\itap0 {La entidad }{\i USUARIO}{ obtiene los datos autom\'e1\r
\par El atributo }{\i fecha}{ contiene el momento del \'faltimo logueo del usuario a Intranet. (cada login reemplaza al anterior)\r
\par De esta forma, la descentralizaci\'f3n de la asignaci\'f3n de permisos, permite que el usuario administrador de un determinado sistema asigne permisos a nuevos usuarios sin necesidad de conocer otra dato m\'e1\r
s que el login del usuario. (el resto de los datos son obtenidos de la entidad }{\i USUARIO}{, previamente cargada)\r
-\par }\pard\plain \s17\qj \li708\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin708\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
-Obviamente esto implica que los usuarios a los que se le asignen permisos deben haberse logueado previamente en Intranet.\r
+\par }\pard\plain \s17\qj \li708\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin708\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {Obviamente esto im\r
+plica que los usuarios a los que se le asignen permisos deben haberse logueado previamente en Intranet.\r
\par }\pard\plain \qj \li708\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin708\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
\par El atributo }{\i fecha }{de la entidad }{\i USUARIO}{ es necesario porque, peri\'f3dicamente, la entidad es depurada, eliminando todos aquellos usuarios que no tengan ning\'fa\r
n permiso asignado y que no se hayan logueado a Intranet desde un determinado tiempo (por ejemplo, un mes).\r
\par {\listtext\pard\plain\fs20 \hich\af0\dbch\af0\loch\f0 -\tab}}\pard \qj \fi-360\li720\ri0\widctlpar\jclisttab\tx720\aspalpha\aspnum\faauto\ls1\adjustright\rin0\lin720\itap0 {Los datos del personal de la Ex \endash Coordinaci\'f3n \'c1\r
rea Desarrollo y Mantenimiento involucrado en el desarrollo de cada uno de los sistemas, forman parte de la entidad }{\i USUARIO,}{ relacionada al sistema correspondiente mediante la asignaci\'f3n de un perfil, identificando el rol que desempe\'f1\'f3\r
la persona (ejs.: programador, dise\'f1ador gr\'e1fico, analista de sistemas, etc.).\r
-\par }\pard \qj \li708\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin708\itap0 {El atributo }{\i tipo_perfil}{ de la entidad }{\i PERFIL}{\r
- diferencia perfiles internos y externos, es decir, si se trata de perfiles definidos para usuarios de los sistemas, o bien de roles desempe\'f1ados durante el desarrollo del proyecto (perfiles privados).\r
+\par }\pard \qj \li708\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin708\itap0 {El atributo }{\i tipo_perfil}{ de la entidad }{\i PERFIL}{ diferencia perfiles internos y externos, es decir, si se trata de perfiles d\r
+efinidos para usuarios de los sistemas, o bien de roles desempe\'f1ados durante el desarrollo del proyecto (perfiles privados).\r
\par }\pard \qj \li360\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin360\itap0 {\r
\par {\listtext\pard\plain\fs20 \hich\af0\dbch\af0\loch\f0 -\tab}}\pard \qj \fi-360\li720\ri0\widctlpar\jclisttab\tx720\aspalpha\aspnum\faauto\ls1\adjustright\rin0\lin720\itap0 {El atributo }{\i contacto}{ de la entidad }{\i SISTEMA}{\r
contiene todos los datos necesarios a fin de poder identificar a las personas que solicitaron el sistema.\r
\par E-mail: -----\r
\par \'c1rea: -----\r
\par }\pard \qj \li360\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin360\itap0 {\r
-\par }\pard \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 {\r
+\par {\listtext\pard\plain\fs20 \hich\af0\dbch\af0\loch\f0 -\tab}}\pard \qj \fi-360\li720\ri0\widctlpar\jclisttab\tx720\aspalpha\aspnum\faauto\ls1\adjustright\rin0\lin720\itap0 {Cada una de las entidades contiene los atributos }{\i fecha}{ y }{\i responsable}{\r
+ que representan el momento en que se realiz\'f3 el \'faltimo cambio en el registro y el usuario que lo llev\'f3 a cabo.\r
+\par }\pard \qj \li708\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin708\itap0 {Estos dos campos sirven para llevar un control de qui\'e9n y en qu\'e9 momento se asignan nuevos permisos, se crean nuevos perfiles, etc. \r
\par }\pard\plain \s2\qj \li0\ri0\keepn\widctlpar\aspalpha\aspnum\faauto\outlinelevel1\adjustright\rin0\lin0\itap0 \b\f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
\par \page \r
\par Dise\'f1o F\'edsico\r
\par }\pard\plain \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \f28\fs20\lang3082\langfe3082\cgrid\langnp3082\langfenp3082 {\r
\par \r
\par \r
-\par }\pard \ql \li0\ri0\widctlpar\faauto\rin0\lin0\itap0 {\f29\fs22\lang2058\langfe3082\langnp2058 # MySQL \r
+\par }\pard \ql \li0\ri0\widctlpar\faauto\rin0\lin0\itap0 {\f2\fs22\lang2058\langfe3082\langnp2058 # MySQL \r
\par #\r
-\par # Base de Datos: PERMISOS\r
+\par # Base de Datos: samurai\r
\par #--------------------------------------------------------\r
\par # \r
\par \r
\par \r
\par #\r
\par # Estructura de la tabla 'perfil'\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 #\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 #\r
\par \r
\par CREATE TABLE perfil (\r
\par id_perfil bigint(20) NOT NULL auto_increment,\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 desc_perfil varchar(50) ,\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 desc_perfil varchar(50),\r
\par tipo_perfil char(1), \r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 PRIMARY KEY (id_perfil)\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 ) \r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 fch_ult_modif timestamp,\r
+\par responsable varchar(20),\r
+\par PRIMARY KEY (id_perfil)\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 ); \r
\par \r
\par \r
\par #\r
\par # Estructura de la tabla 'perfil_sist'\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 #\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 #\r
\par \r
\par CREATE TABLE perfil_sist (\r
-\par id_perfil bigint(20) NOT NULL ,\r
-\par id_sistema bigint(20) NOT NULL ,\r
-\par PRIMARY KEY (id_perfil,id_sistema)\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 ) \r
+\par id_perfil bigint(20) NOT NULL,\r
+\par id_sistema bigint(20) NOT NULL,\r
+\par fch_ult_modif timestamp,\r
+\par responsable varchar(20),\r
+\par PRIMARY KEY (id_perfil, id_sistema)\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 ); \r
\par \r
\par \r
\par #\r
\par # Estructura de la tabla 'perfil_sist_usuario'\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 #\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 #\r
\par \r
\par CREATE TABLE perfil_sist_usuario (\r
-\par login varchar(20) NOT NULL ,\r
-\par id_perfil bigint(20) NOT NULL ,\r
-\par id_sistema bigint(20) NOT NULL ,\r
-\par PRIMARY KEY (login,id_perfil,id_sistema)\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 ) \r
+\par login varchar(20) NOT NULL,\r
+\par id_perfil bigint(20) NOT NULL,\r
+\par id_sistema bigint(20) NOT NULL,\r
+\par fch_ult_modif timestamp,\r
+\par responsable varchar(20),\r
+\par PRIMARY KEY (login, id_perfil, id_sistema)\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 ); \r
\par \r
\par \r
\par #\r
\par # Estructura de la tabla 'perm_perfil_sist'\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 #\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 #\r
\par \r
\par CREATE TABLE perm_perfil_sist (\r
-\par id_permiso bigint(20) NOT NULL ,\r
-\par id_perfil bigint(20) NOT NULL ,\r
-\par id_sistema bigint(20) NOT NULL ,\r
-\par PRIMARY KEY (id_permiso,id_perfil,id_sistema)\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 ) \r
-\par \page \r
+\par id_permiso bigint(20) NOT NULL,\r
+\par id_perfil bigint(20) NOT NULL,\r
+\par id_sistema bigint(20) NOT NULL,\r
+\par fch_ult_modif timestamp,\r
+\par responsable varchar(20),\r
+\par PRIMARY KEY (id_permiso, id_perfil, id_sistema)\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 ); \r
+\par \r
\par \r
\par #\r
\par # Estructura de la tabla 'perm_sist'\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 #\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 #\r
\par \r
\par CREATE TABLE perm_sist (\r
-\par id_permiso bigint(20) NOT NULL ,\r
-\par id_sistema bigint(20) NOT NULL ,\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 observaciones varchar(255) ,\r
-\par PRIMARY KEY (id_permiso,id_sistema)\r
-\par ) \r
+\par id_permiso bigint(20) NOT NULL,\r
+\par id_sistema bigint(20) NOT NULL,\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 observaciones varchar(255),\r
+\par fch_ult_modif timestamp,\r
+\par responsable varchar(20),\r
+\par PRIMARY KEY (id_permiso, id_sistema, observaciones)\r
+\par ); \r
\par \r
\par \r
\par #\r
\par # Estructura de la tabla 'permiso'\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 #\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 #\r
\par \r
\par CREATE TABLE permiso (\r
\par id_permiso bigint(20) NOT NULL auto_increment,\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 desc_permiso varchar(50) ,\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 PRIMARY KEY (id_permiso)\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 ) \r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 desc_permiso varchar(50),\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 fch_ult_modif timestamp,\r
+\par responsable varchar(20),\r
+\par PRIMARY KEY (id_permiso)\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 ); \r
\par \r
\par \r
\par #\r
\par Estructura de la tabla 'sistema'\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 #\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 #\r
\par \r
\par CREATE TABLE sistema (\r
\par id_sistema bigint(20) NOT NULL auto_increment,\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 nombre_sistema varchar(50) ,\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 nombre_sistema varchar(50),\r
\par desc_sistema text,\r
\par fecha_inicio date,\r
\par fecha_fin date,\r
\par fecha_implementacion date,\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 contacto text, \r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 contacto text, \r
+\par fch_ult_modif timestamp,\r
+\par responsable varchar(20),\r
\par PRIMARY KEY (id_sistema)\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 ) \r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 ); \r
\par \r
-\par }\pard \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 {\ul \r
-\par }\pard \ql \li0\ri0\widctlpar\faauto\rin0\lin0\itap0 {\f29\fs22\lang2058\langfe3082\langnp2058 #\r
+\par }\pard \qj \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 {\f2\ul \r
+\par }\pard \ql \li0\ri0\widctlpar\faauto\rin0\lin0\itap0 {\f2\fs22\lang2058\langfe3082\langnp2058 #\r
\par # Estructura de la tabla 'usuario'\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 #\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 #\r
\par \r
\par CREATE TABLE usuario (\r
-\par login varchar(20) NOT NULL ,\r
-\par }{\f29\fs22\lang2058\langfe3082\langnp2058 nrodoc int(11) ,\r
-\par nombre varchar(50) ,\r
-\par }{\f29\fs22\lang1033\langfe3082\langnp1033 fecha datetime ,\r
+\par login varchar(20) NOT NULL,\r
+\par }{\f2\fs22\lang2058\langfe3082\langnp2058 nrodoc int(11),\r
+\par nombre varchar(50),\r
+\par }{\f2\fs22\lang1033\langfe3082\langnp1033 fch_ult_modif timestamp,\r
\par PRIMARY KEY (login)\r
-\par ) \r
-\par \r
-\par }\pard \qj \li708\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin708\itap0 {\r
-\par \r
-\par \r
+\par );}{ \r
\par }}
\ No newline at end of file
--- /dev/null
+INSERT INTO perfil VALUES (1,'ABM Usuarios','E',NOW());
+INSERT INTO perfil VALUES (2,'ABM Permisos','E',NOW());
+INSERT INTO perfil VALUES (3,'ABM Perfiles','E',NOW());
+INSERT INTO perfil_sist VALUES (1,1,NOW());
+INSERT INTO perfil_sist VALUES (2,1,NOW());
+INSERT INTO perfil_sist VALUES (3,1,NOW());
+INSERT INTO perfil_sist_usuario VALUES ('mdegan@mecon',1,1,NOW());
+INSERT INTO perfil_sist_usuario VALUES ('mmarre@mecon',1,1,NOW());
+INSERT INTO perfil_sist_usuario VALUES ('mmarre@mecon',2,1,NOW());
+INSERT INTO perfil_sist_usuario VALUES ('mmarre@mecon',3,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (1,1,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (1,3,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (2,1,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (3,1,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (4,2,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (5,2,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (6,2,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (7,3,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (8,3,1,NOW());
+INSERT INTO perm_perfil_sist VALUES (9,3,1,NOW());
+INSERT INTO perm_sist VALUES (1,1,'',NOW());
+INSERT INTO perm_sist VALUES (2,1,'',NOW());
+INSERT INTO perm_sist VALUES (3,1,'',NOW());
+INSERT INTO perm_sist VALUES (4,1,'',NOW());
+INSERT INTO perm_sist VALUES (5,1,'',NOW());
+INSERT INTO perm_sist VALUES (6,1,'',NOW());
+INSERT INTO perm_sist VALUES (7,1,'',NOW());
+INSERT INTO perm_sist VALUES (8,1,'',NOW());
+INSERT INTO perm_sist VALUES (9,1,'',NOW());
+INSERT INTO permiso VALUES (1,'Agregar Usuario',NOW());
+INSERT INTO permiso VALUES (2,'Modificar Usuario',NOW());
+INSERT INTO permiso VALUES (3,'Eliminar Usuario',NOW());
+INSERT INTO permiso VALUES (4,'Agregar Permiso',NOW());
+INSERT INTO permiso VALUES (5,'Modificar Permiso',NOW());
+INSERT INTO permiso VALUES (6,'Eliminar Permiso',NOW());
+INSERT INTO permiso VALUES (7,'Agregar Perfil',NOW());
+INSERT INTO permiso VALUES (8,'Modificar Perfil',NOW());
+INSERT INTO permiso VALUES (9,'Eliminar Perfil',NOW());
+INSERT INTO sistema VALUES (1,'SAMURAI','Sistema de Administracion y Mantenimiento de Usuarios Relativo A Intranet','2003-03-06',NULL,NULL,'Silvina Ottonello <sotton@mecon.gov.ar>',NOW());
+INSERT INTO usuario VALUES ('mmarre',28924563,'Martin Marrese','2003-03-10 15:52:40',NOW());
--Creo la base de datos 'samurai'
--
-CREATE DATABASE samurai;
+--CREATE DATABASE samurai;
use samurai;
--
id_perfil bigint(20) NOT NULL auto_increment,
desc_perfil varchar(50) ,
tipo_perfil char(1),
+ fch_ult_modif timestamp,
PRIMARY KEY (id_perfil)
);
CREATE TABLE perfil_sist (
id_perfil bigint(20) NOT NULL ,
id_sistema bigint(20) NOT NULL ,
+ fch_ult_modif timestamp,
PRIMARY KEY (id_perfil,id_sistema)
);
login varchar(20) NOT NULL ,
id_perfil bigint(20) NOT NULL ,
id_sistema bigint(20) NOT NULL ,
+ fch_ult_modif timestamp,
PRIMARY KEY (login,id_perfil,id_sistema)
);
id_permiso bigint(20) NOT NULL ,
id_perfil bigint(20) NOT NULL ,
id_sistema bigint(20) NOT NULL ,
+ fch_ult_modif timestamp,
PRIMARY KEY (id_permiso,id_perfil,id_sistema)
);
id_permiso bigint(20) NOT NULL ,
id_sistema bigint(20) NOT NULL ,
observaciones varchar(255) ,
+ fch_ult_modif timestamp,
PRIMARY KEY (id_permiso,id_sistema)
);
CREATE TABLE permiso (
id_permiso bigint(20) NOT NULL auto_increment,
desc_permiso varchar(50) ,
+ fch_ult_modif timestamp,
PRIMARY KEY (id_permiso)
);
fecha_fin date,
fecha_implementacion date,
contacto text,
+ fch_ult_modif timestamp,
PRIMARY KEY (id_sistema)
);
nrodoc int(11) ,
nombre varchar(50) ,
fecha datetime ,
+ fch_ult_modif timestamp,
PRIMARY KEY (login)
);
--- /dev/null
+<?php
+
+ // $Id$
+ //
+ // $URL$
+ // $Rev$
+ // $Date$
+ // $Author$
+
+ return array (
+ 'db_type' => 'mysql' ,
+ 'db_user' => 'intranet' ,
+ 'db_pass' => 'intranet' ,
+ 'db_host' => 'localhost',
+ 'db_name' => 'samurai'
+ )
+?>
+
--- /dev/null
+<?php
+
+ // $Id$
+ //
+ // $URL$
+ // $Rev$
+ // $Date$
+ // $Author$
+
+ /** ARCHIVO DE CONFIGURACION DE SECCIONES
+ *
+ * Dentro de este archivo se guardan todos los datos de las secciones
+ * que componen el sistema SAMURAI.
+ *
+ * Basado en datos.epl de Gonzalo Merayo <gmeray@mecon.gov.ar>
+ *
+ */
+ return array (
+ // Secciones visibles por los usuarios {{{
+ array (
+ 'nombre' => 'Usuarios', //NOMBRE DE LA SECCION
+ 'img_comun' => 'images/usuarios.gif', //IMAGEN COMUN
+ 'img_mouseon' => 'images/usuarios_f2.gif', //IMAGEN MOUSE POR ARRIBA
+ 'img_select' => 'images/usuarios_f3.gif', //IMAGEN SELECCIONADO
+ 'link' => 'usuarios.php', //LINK DEL ICONO
+ 'hijos' => array (
+ array ( 'nombre'=> 'Filtrar Usuario' ,
+ 'link' => 'usuarios-filtrar.php',
+ ),
+ array ( 'nombre'=> 'ABM Usuario' ,
+ 'link' => 'usuarios-abm.php',
+ ),
+ ),
+ ),
+ array (
+ 'nombre' => 'Perfiles', //NOMBRE DE LA SECCION
+ 'img_comun' => 'images/perfiles.gif', //IMAGEN COMUN
+ 'img_mouseon' => 'images/perfiles_f2.gif', //IMAGEN MOUSE POR ARRIBA
+ 'img_select' => 'images/perfiles_f3.gif', //IMAGEN SELECCIONADO
+ 'link' => 'perfiles.php', //LINK DEL ICONO
+ 'hijos' => array (
+ array ( 'nombre'=> 'ABM Perfil' ,
+ 'link' => 'perfiles-abm.php',
+ ),
+ ),
+ ),
+ // }}}
+ // Secciones visibles por desarrolladores {{{
+ array (
+ 'nombre' => 'Sistemas', //NOMBRE DE LA SECCION
+ 'img_comun' => 'images/sistemas.gif', //IMAGEN COMUN
+ 'img_mouseon' => 'images/sistemas_f2.gif', //IMAGEN MOUSE POR ARRIBA
+ 'img_select' => 'images/sistemas_f3.gif', //IMAGEN SELECCIONADO
+ 'link' => 'sistemas.php', //LINK DEL ICONO
+ 'hijos' => array (
+ array ( 'nombre'=> 'ABM Sistema' ,
+ 'link' => 'sistemas-abm.php',
+ ),
+ ),
+ ),
+ array (
+ 'nombre' => 'Permisos', //NOMBRE DE LA SECCION
+ 'img_comun' => 'images/permisos.gif', //IMAGEN COMUN
+ 'img_mouseon' => 'images/permisos_f2.gif', //IMAGEN MOUSE POR ARRIBA
+ 'img_select' => 'images/permisos_f3.gif', //IMAGEN SELECCIONADO
+ 'link' => 'permisos.php', //LINK DEL ICONO
+ 'hijos' => array (
+ array ( 'nombre'=> 'ABM Permiso',
+ 'link' => 'permisos-abm.php',
+ ),
+ ),
+ ),
+ // }}
+ );
--- /dev/null
+php_value include_path ".:/home/mmarrese/public_html/samurai/tronco/src/www/include:/home/mmarrese/public_html/samurai/tronco/src/www/include/lib:/home/mmarrese/public_html/samurai/tronco/src/www:/usr/share/pear:/home/mmarrese/public_html/samurai/tronco/src/www/include/hooks:/home/mmarrese/public_html/samurai/tronco/src"
+php_value auto_prepend_file "/home/mmarrese/public_html/samurai/tronco/src/www/include/prepend.php"
+php_value auto_append_file "/home/mmarrese/public_html/samurai/tronco/src/www/include/append.php"
+#php_value allow_call_time_pass_reference On
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: lun abr 22 16:05:33 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL$
-// $Rev$
-// $Date$
-// $Author$
-//
-
-// Hooks
-require_once 'lib/HE/lib/hooks.php';
-hook( 'pie' );
-hook( 'append' );
-
-// $URL$ $Rev$ $Date$ $Author$
-?>
+++ /dev/null
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-barra-item.php $ $Rev: 128 $ $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $ $Author: llucar $ -->
-<td width="<?= $args[2] ?>%" align="center" valign="middle">
- <a href="<?= $args[1]?>" style="font-family: Arial, Helvetica, sans-serif"><?= hookd( 'barra', $args[1] ) ?></a>
-</td>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-barra-item.php $ $Rev: 128 $ $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $ $Author: llucar $ -->
+++ /dev/null
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-barra.php $ $Rev: 128 $ $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $ $Author: llucar $ -->
-<? require_once 'HE/lib/barra.php' ?>
-<br>
-<table width="100%" style="font-size: 10pt; border-top: solid thin #336699; border-bottom: solid thin #336699; font-family: Arial, Helvetica, sans-serif;">
- <tr>
- <? barra( isset( $args[1] ) ? $args[1] : '.' ) ?>
- </tr>
-</table>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-barra.php $ $Rev: 128 $ $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $ $Author: llucar $ -->
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<? require_once 'lib/HE/lib/hooks.php' ?>
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-cabecera.php $ $Rev: 128 $ $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $ $Author: llucar $ -->
+<!-- INICIO $URL$ $Rev$ $Date$ $Author$ -->
<html lang="es">
<head>
<title>
<? hook( 'subsecciones' ) ?>
<br>
<!-- CUERPO -->
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-cabecera.php $ $Rev: 128 $ $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $ $Author: llucar $ -->
+<!-- FIN $URL$ $Rev$ $Date$ $Author$ -->
+++ /dev/null
-<? return array(
- 'webroot' => '/he',
-) // $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-config.php $ $Rev: 135 $ $Date: 2002-11-13 18:38:42 -0300 (mié, 13 nov 2002) $ $Author: llucar $ ?>
--- /dev/null
+<?php
+ require_once 'lib/HE/hooks.php';
+// +--------------------------------------------------------------------+
+// | SAMURAI |
+// +--------------------------------------------------------------------+
+// | Sistema de Administracion y Matenimiento de Usuarios Relativo A |
+// | Intranet |
+// | Ministerio de Economía |
+// +--------------------------------------------------------------------+
+// | Creado: fri mar 21 ART 2003 |
+// | Autor: Martin Marrese <mmarre@mecon.gov.ar> |
+// +--------------------------------------------------------------------+
+//
+// $Id$
+//
+// $URL$
+// $Rev$
+// $Date$
+// $Author$
+?>
+ <IMG border="0" src="./images/copete.jpg">
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: lun oct 21 17:31:41 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form--checkbox.php $
-// $Rev: 117 $
-// $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $
-// $Author: llucar $
-//
-
-/**
- * Dibuja un elemento tipo checkbox de un formulario.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param array $campo Campo a mostrar.
- * @param string $tipo Como mostrarlo (si es para buscar, ver, etc).
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $campo, $tipo, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Obtiene variable.
-if ( $db->formulario_enviado() ) {
- if ( isset( $_POST[$db->_form_var . "_campo_$campo"] ) )
- $var = $_POST[$db->_form_var . "_campo_$campo"] ? 1 : 0;
-} elseif ( isset( $_GET[$db->_form_var . "_campo_$campo"] ) ) {
- $var = $_GET[$db->_form_var . "_campo_$campo"] ? 1 : 0;
-} elseif ( isset( $db->_campos[$campo]['def'] ) ) {
- $var = $db->_campos[$campo]['def'] ? 1 : 0;
-} else {
- $var = 0;
-}
-$desc = htmlentities( isset( $db->_campos[$campo]['desc'] ) ? $db->_campos[$campo]['desc'] : $campo );
-
-switch ( strtolower( $tipo ) ) {
-
- case 'agregar':
- case 'modificar':
- case 'buscar':
- printf( '<input type="checkbox" name="%s_campo_%s" value="1"%s%s/> %s',
- $db->_form_var,
- $campo,
- $var ? ' checked' : '',
- $class,
- $desc );
- break;
-
- default:
- printf( '<input type="hidden" name="%s_campo_%s" value="%s"/>%s',
- $db->_form_var,
- $campo,
- $var,
- htmlentities( ( $var ? 'X ' : 'O ' ) . $desc ) );
- break;
-
-}
-
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form--checkbox.php $ $Rev: 117 $ $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $ $Author: llucar $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: lun oct 21 17:31:41 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form--select.php $
-// $Rev: 117 $
-// $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $
-// $Author: llucar $
-//
-
-/**
- * Dibuja un elemento de selección de un formulario.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param array $campo Campo a mostrar.
- * @param string $tipo Como mostrarlo (si es para buscar, ver, etc).
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $campo, $tipo, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Obtiene variable.
-$var = $db->_form_var( $campo );
-$var = strtolower( $var );
-$vals = $db->_campos[$campo]['vals'];
-
-// Da error si no existen valores posibles del select.
-if ( ! isset( $vals ) or ! is_array( $vals ) or ! count( $vals ) )
- $db->raiseError( "No hay valores posibles para el campo $campo", HE_ERROR );
-
-switch ( strtolower( $tipo ) ) {
-
- case 'agregar':
- case 'modificar':
- case 'buscar':
- printf( '<select name="%s_campo_%s"%s>',
- $db->_form_var, $campo, $class );
- foreach ( $vals as $value => $desc )
- printf( '<option value="%s"%s>%s</option>',
- $value,
- $class . ( ( $var == $value ) ? ' selected' : '' ),
- $desc );
- echo '</select>';
- break;
-
- default:
- printf( '<input type="hidden" name="%s_campo_%s" value="%s"/>%s',
- $db->_form_var,
- $campo,
- $var,
- htmlentities( $var ) );
- break;
-
-}
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form--select.php $ $Rev: 117 $ $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $ $Author: llucar $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: lun oct 21 17:31:41 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form--text.php $
-// $Rev: 117 $
-// $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $
-// $Author: llucar $
-//
-
-/**
- * Dibuja un elemento de texto de un formulario.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param array $campo Campo a mostrar.
- * @param string $tipo Como mostrarlo (si es para buscar, ver, etc).
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $campo, $tipo, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Obtiene variable.
-$var = $db->_form_var( $campo );
-
-switch ( strtolower( $tipo ) ) {
-
- case 'agregar':
- case 'modificar':
- printf( '<input type="text" name="%s_campo_%s" value="%s"%s/>',
- $db->_form_var,
- $campo,
- $var,
- $class );
- break;
-
- case 'buscar':
- printf( '<input type="text" name="%s_campo_%s" value="%s"%s/>',
- $db->_form_var,
- $campo,
- $var,
- $class );
- break;
-
- default:
- printf( '<input type="hidden" name="%s_campo_%s" value="%s"/>%s',
- $db->_form_var,
- $campo,
- $var,
- htmlentities( $var ) );
- break;
-
-}
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form--text.php $ $Rev: 117 $ $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $ $Author: llucar $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: mié nov 6 14:41:41 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form-estado.php $
-// $Rev: 125 $
-// $Date: 2002-11-06 19:05:58 -0300 (mié, 06 nov 2002) $
-// $Author: llucar $
-//
-
-/**
- * Dibuja un elemento de selección de un formulario para elegir una
- * función.
- *
- * @param object HE_DB $db Base de datos a la que pertenece el
- * formulario.
- * @param string $tipo Como mostrarlo (si es para buscar, ver, etc).
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $tipo, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Obtiene variable.
-$estado = $db->_form_var( 'estado' );
-
-switch ( strtolower( $tipo ) ) {
-
- case 'buscar':
- case 'agregar':
- case 'modificar':
- printf( '<select name="%s_campo_estado"%s>', $db->_form_var, $class );
- // Genera opciones del SELECT
- foreach ( $db->estado as $est => $desc ) {
- printf( '<option value="%s"%s%s>%s</option>',
- $est,
- $class,
- ( $estado == $est ) ? ' selected' : '',
- htmlentities( $desc ) );
- }
- // Cierra el SELECT
- echo '</select>';
- break;
-
- default:
- echo htmlentities( $db->estado[$estado] );
- break;
-}
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form-estado.php $ $Rev: 125 $ $Date: 2002-11-06 19:05:58 -0300 (mié, 06 nov 2002) $ $Author: llucar $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: mié nov 6 14:41:52 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form-funcion.php $
-// $Rev: 125 $
-// $Date: 2002-11-06 19:05:58 -0300 (mié, 06 nov 2002) $
-// $Author: llucar $
-//
-
-/**
- * Dibuja un elemento de selección de un formulario para elegir una
- * función.
- *
- * @param object HE_DB $db Base de datos a la que pertenece el
- * formulario.
- * @param string $tipo Como mostrarlo (si es para buscar, ver, etc).
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $tipo, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Obtiene variable.
-$funcion = $db->_form_var( 'funcion' );
-
-switch ( strtolower( $tipo ) ) {
-
- case 'buscar':
- case 'agregar':
- case 'modificar':
- printf( '<select name="%s_campo_funcion"%s>', $db->_form_var, $class );
- // Genera opciones del SELECT
- foreach ( $db->funcion as $func => $desc ) {
- printf( '<option value="%s"%s%s>%s</option>',
- $func,
- $class,
- ( $funcion == $func ) ? ' selected' : '',
- htmlentities( $desc ) );
- }
- // Cierra el SELECT
- echo '</select>';
- break;
-
- default:
- echo htmlentities( $db->funcion[$funcion] );
- break;
-}
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form-funcion.php $ $Rev: 125 $ $Date: 2002-11-06 19:05:58 -0300 (mié, 06 nov 2002) $ $Author: llucar $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: lun oct 21 17:31:41 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form-nivel.php $
-// $Rev: 117 $
-// $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB/ABM/Nivel.php';
-
-/**
- * Dibuja un elemento de selección de un formulario para elegir un nivel.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param string $tipo Como mostrarlo (si es para buscar, ver, etc).
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $tipo, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Crea un objeto niveles para obtener los niveles.
-$n =& new HE_DB_ABM_Nivel;
-
-// Obtiene variable.
-$nivel = $db->_form_var( 'nivel' );
-
-switch ( strtolower( $tipo ) ) {
-
- case 'buscar':
- case 'agregar':
- case 'modificar':
- echo $n->select( $db->_form_var . '_campo_nivel',
- $nivel,
- $class );
- break;
-
- default:
- echo htmlentities( $n->descripcion( $nivel ) );
- break;
-}
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-form-nivel.php $ $Rev: 117 $ $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $ $Author: llucar $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: jue oct 10 16:57:53 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-formulario.php $
-// $Rev: 129 $
-// $Date: 2002-11-08 17:37:57 -0300 (vie, 08 nov 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB.php';
-require_once 'HE/lib/hooks.php';
-
-/**
- * Dibujar un elemento de un listado de una base de datos.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param array $fila Fila a mostrar.
- * @param array $campos Campos a mostrar.
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $tipo, $action, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Setea las diferentes "classes" de estilos
-$class = is_null( $class ) ? 'he_db_form' : $class;
-$class = is_string( $class ) ? $class : get_class( $db );
-$class_t = ( $class === false ) ? '' : ' class="' . $class . '_titulo"';
-$class_f = ( $class === false ) ? '' : ' class="' . $class . '_pie"';
-$classtd[0] = ( $class === false ) ? '' : ' class="' . $class . '_par"';
-$classtd[1] = ( $class === false ) ? '' : ' class="' . $class . '_impar"';
-$class = ( $class === false ) ? '' : ' class="' . $class . '"';
-
-// Nombre de lo que se busca (en plural y singular)
-$nombre = ucfirst( $db->_nombre );
-$nombres = ucfirst( $db->_nombres );
-
-// Setea valores
-$tipo = strtolower( $tipo );
-$action = is_null( $action ) ? "$tipo.php" : $action;
-$accion = ucfirst( $tipo );
-
-// contador para ver si la fila es par o impar.
-$i = 0;
-
-?>
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-formulario.php $ -->
-<form action="<?= $action ?>" method="post">
- <input type="hidden" name="<?= $db->_form_var ?>_formulario_enviado" value="1">
- <? if ( isset( $_SERVER['HTTP_REFERER'] ) or isset( $_POST['HTTP_REFERER'] ) ) { ?>
- <input type="hidden" name="HTTP_REFERER"
- value="<?= isset( $_POST['HTTP_REFERER'] ) ? $_POST['HTTP_REFERER'] : $_SERVER['HTTP_REFERER'] ?>">
- <? } ?>
- <!-- Esto debería ser así, pero para lidiar con el Netscape se agregan atributos extra. -->
- <!-- table summary="<?= "$accion $nombre" ?>"<?= $class ?> -->
- <table summary="<?= "$accion $nombre" ?>" bordercolor="#006699" border="1" cellpadding="0" cellspacing="0" width="80%"<?= $class ?>>
- <thead<?= $class_t ?>>
- <tr<?= $class_t ?>>
- <th colspan="2"<?= $class_t ?>><?= "$accion $nombre" ?></th>
- </tr>
- </thead>
- <tbody<?= $class ?>>
- <? foreach ( $db->_campos as $campo => $cinfo ) { ?>
- <? if ( isset( $cinfo['form'] ) and $cinfo['form'] ) { ?>
- <tr<?= $classtd[$i%2] ?>>
- <? if ( $cinfo['form'] != 'hidden' ) { // Si no es un campo oculto ?>
- <th<?= $classtd[$i%2] ?>>
- <?= htmlentities( ucwords( isset ( $cinfo['desc'] ) ? $cinfo['desc'] : $campo ) ) ?>
- </th>
- <td<?= $classtd[$i%2] ?>>
- <? } ?>
- <? if ( ! $db->formulario_enviado() ) { // Si no se envio el formulario todavía, se guarda el original. ?>
- <input type="hidden" name="<?= "{$db->_form_var}_original_$campo" ?>"
- value="<?= $db->_form_var( $campo ) ?>">
- <? } else { // Si se envio el formulario, lo propaga. ?>
- <input type="hidden" name="<?= "{$db->_form_var}_original_$campo" ?>"
- value="<?= $_POST["{$db->_form_var}_original_$campo"] ?>">
- <? }
- // Llama al hook encargado de dibujar el elemento del formulario para este campo
- if ( hooko_exists( "form-$campo", $db ) )
- hooko( "form-$campo", $db, $tipo, $classtd[$i%2] );
- // Si no existe, usa uno por defecto
- elseif ( ! empty( $cinfo['form'] ) and hooko_exists( "form--{$cinfo['form']}", $db ) )
- hooko( "form--{$cinfo['form']}", $db, $campo, $tipo, $classtd[$i%2] );
- // Si no cae en un error
- else
- $db->raiseError( "No hay un manejador definido para el campo $campo", HE_ERROR );
- $i++;
- ?>
- <? if ( $cinfo['form'] != 'hidden' ) { // Si no es un campo oculto ?>
- </td>
- <? } ?>
- </tr>
- <? } ?>
- <? } ?>
- </tbody>
- <tfoot<?= $class_f ?>>
- <tr<?= $class_f ?>>
- <td colspan="2"<?= $class_f ?>>
- <? if ( $tipo != 'ver' ) { ?>
- <input type="submit" title="<?= "$accion este $nombre" ?>"
- name="<?= $db->_form_var ?>_boton_<?= $accion ?>"
- value="<?= $accion ?>"<?= $class_f ?>/>
- <? if ( $tipo != 'borrar' ) { // XXX - Esto no debería estar porque en está clase no se pueden borrar elementos, pero se deja igual para no tener que sobreescribir el método en ABM cambiandole sólo esto. ?>
- <input type="reset" title="Borra todos los campos del formulario, volviendo al estado inicial" value="Reestablecer"<?= $class_f ?>/>
- <? } ?>
- <input type="submit" title="Cancelar la operación (vuelve a la página anterior)" name="<?= $db->_form_var ?>_boton_cancelar" value="Cancelar"<?= $class_f ?>/>
- <? } else { // Tipo = ver ?>
- <a title="<?= "$accion este $nombre" ?>" href="<?= $action ?>"<?= $class_f ?>><?= $accion ?></a>',
- <? } ?>
- </td>
- </tr>
- </tfoot>
- </table>
-</form>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-formulario.php $ -->
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: jue oct 10 15:56:30 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-cabecera.php $
-// $Rev: 135 $
-// $Date: 2002-11-13 18:38:42 -0300 (mié, 13 nov 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB.php';
-require_once 'HE/lib/hooks.php';
-
-/**
- * Dibuja la cabecera de un listado de una base de datos.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param array $campos Campos a mostrar.
- * @param string $class_t Class para CSS de los títulos.
- */
-
-// Extrae los parámetros del hook.
-list( $campos, $columnas, $operar, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-?>
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-cabecera.php $ -->
-<thead<?= $class ?>>
- <tr<?= $class ?>>
- <? foreach ( $campos as $campo ) if ( in_array( $campo, $columnas ) ) { ?>
- <th<?= $class ?>>
- <?= htmlentities( ucwords( isset ( $db->_campos[$campo]['desc'] ) ? $db->_campos[$campo]['desc'] : $campo ) ) ?>
- </th>
- <? } ?>
- <? if ( $operar ) { ?>
- <th<?= $class ?>> </th>
- <? } ?>
- </tr>
-</thead>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-cabecera.php $ -->
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: jue oct 10 16:57:53 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-elemento.php $
-// $Rev: 120 $
-// $Date: 2002-10-28 12:42:20 -0300 (lun, 28 oct 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB.php';
-require_once 'HE/lib/hooks.php';
-
-/**
- * Dibujar un elemento de un listado de una base de datos.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param array $fila Fila a mostrar.
- * @param array $campos Campos a mostrar.
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $fila, $campos, $modificar, $borrar, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Si se modifica o hace baja, se general el query por GET
-if ( $modificar or $borrar ) {
- $get = array();
- foreach ( $fila as $key => $val )
- $get[] = $db->_form_var . "_campo_$key=" . urlencode( $val );
- $get = join( '&', $get );
-}
-
-// Procesa la fila para mostrarla correctamente
-$fila = $db->procesar( $fila );
-
-?>
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-elemento.php $ -->
-<tr<?= $class ?>>
-<? foreach ( $campos as $campo ) if ( in_array( $campo, array_keys( $fila ) ) ) { ?>
- <td<?= $class ?>><?= $fila[$campo] ?></td>
-<? }
-if ( $modificar or $borrar ) {
-
- printf( '<td%s>', $class );
-
- if ( $modificar )
- hooko( 'listar-elemento-abm', $db, 'modificar',
- $modificar, $get, $class );
-
- if ( $borrar )
- hooko( 'listar-elemento-abm', $db, 'borrar',
- $borrar, $get, $class );
-
- echo '</td>';
-
-} ?>
-</tr>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-elemento.php $ -->
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: jue oct 10 14:55:31 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-vacia.php $
-// $Rev: 117 $
-// $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB.php';
-
-/**
- * Dibuja un mensaje que indica que la lista está vacía.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-$class = $args[2];
-$db =& $objeto;
-
-?>
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-vacia.php $ -->
-<tbody<?= $class ?>>
- <tr<?= $class ?>>
- <td<?= $class ?>>
- <div<?= $class ?>>No se encontraron <?= $db->_nombres ?></div>
- </td>
- </tr>
-</tbody>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar-vacia.php $ -->
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: jue oct 10 14:55:31 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar.php $
-// $Rev: 128 $
-// $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB.php';
-require_once 'HE/lib/hooks.php';
-
-/**
- * Dibuja un listado de una base de datos.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param array $campos Campos a mostrar.
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $campos, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Setea las diferentes "classes" de estilos
-$class = is_null( $class ) ? 'he_db' : $class;
-$class = is_string( $class ) ? $class : get_class( $db );
-$class_t = ( $class === false ) ? '' : ' class="' . $class . '_titulo"';
-$class_f = ( $class === false ) ? '' : ' class="' . $class . '_pie"';
-$classtd[0] = ( $class === false ) ? '' : ' class="' . $class . '_par"';
-$classtd[1] = ( $class === false ) ? '' : ' class="' . $class . '_impar"';
-$class = ( $class === false ) ? '' : ' class="' . $class . '"';
-
-// Tabla
-printf( '<table summary="Lista de %s" bordercolor="#006699" border="1" cellspacing="0" cellpadding="0" width="100%%"%s>',
- $db->_nombres,
- $class );
-
-// Título (eliminar??? TODO)
-#printf( '<caption%s>Lista de %s</caption>', $class, $db->_nombres );
-
-// Si hay resultados
-if ( $primero = $db->siguiente() ) {
- // Si no se especificaron campos (o no hay ninguno de los
- // solicitados disponibles), muestra todos.
- if ( !count( $campos ) or ! count( array_intersect( $campos, array_keys( $primero ) ) ) )
- $campos = array_keys( $primero );
-
- // Cabecera
- hooko( 'listar-cabecera', $db, $campos, array_keys( $primero ), false, $class_t );
-
- // Cuerpo
- printf( '<tbody%s>', $class );
-
- // Primer elemento
- hooko( 'listar-elemento', $db, $primero, $campos,
- false, false, $classtd[1] );
-
- // Resto de los elementos
- for ( $i = 0; $r = $db->siguiente(); $i++ )
- hooko( 'listar-elemento', $db, $r, $campos,
- false, false, $classtd[$i%2] );
-
- printf( '</tbody>' );
-
-} else { // Si no hay resultados
-
- // Muestra mensaje
- hooko( 'listar-vacia', $db, $class );
-
-}
-
-echo '</table>';
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db-listar.php $ $Rev: 128 $ $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $ $Author: llucar $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: jue oct 10 16:57:53 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/tronco/src/includes/hooks/default-db-listar-elemento.php $
-// $Rev: 117 $
-// $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB.php';
-require_once 'HE/lib/hooks.php';
-
-/**
- * Dibujar el botón de agragar en un listado de una base de datos.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param int $colspan Cantidad de filas a utilizar.
- * @param bool $agregar Página a donde dirigir para agregar.
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $colspan, $agregar, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-?>
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/tronco/src/includes/hooks/default-db-listar-elemento.php $ -->
-<tfoot<?= $class ?>>
- <tr<?= $class ?>>
- <td colspan="<?= $colspan ?>"<?= $class ?>>
- <a title="Agrega un nuevo <?= $db->_nombre ?>"
- href="<?= $agregar ?>"<?= $class ?>><?
- if ( isset( $db->_img['agregar'] ) ) {
- ?><img src="<?= $db->_img['dir'] . '/' . $db->_img['agregar'] ?>"
- border="0" alt="Agregar un nuevo <?= $db->_nombre ?>"
- /><? } else {
- ?>Agregar<?
- } ?></a>
- </td>
- </tr>
-</tfoot>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/tronco/src/includes/hooks/default-db-listar-elemento.php $ -->
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: jue oct 10 16:57:53 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/tronco/src/includes/hooks/default-db-listar-elemento.php $
-// $Rev: 117 $
-// $Date: 2002-10-23 19:17:04 -0300 (mié, 23 oct 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB.php';
-require_once 'HE/lib/hooks.php';
-
-/**
- * Dibujar una acción para un elemento de un listado.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param string $tipo Tipo de acción.
- * @param string $pagina Página a donde dirigir con la acción.
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $tipo, $pagina, $get, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-printf( '<a title="%s este %s" href="%s?%s"%s>',
- ucfirst( $tipo ),
- $db->_nombre,
- $pagina,
- $get,
- $class );
-
-if ( isset( $db->_img[$tipo] ) )
- printf( '<img src="%s/%s" border="0" alt="%s este %s"/>',
- $db->_img['dir'],
- $db->_img[$tipo],
- ucfirst( $tipo ),
- $db->_nombre );
-else
- echo ucfirst( $tipo );
-
-echo '</a>';
-
-// $URL: http://portal.mecon.ar/svn/he/tronco/src/includes/hooks/default-db-listar-elemento.php $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: lun oct 21 18:16:36 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db_abm-listar.php $
-// $Rev: 128 $
-// $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB/ABM.php';
-require_once 'HE/lib/hooks.php';
-
-/**
- * Dibuja un listado de una base de datos.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param array $campos Campos a mostrar.
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $campos, $agregar, $modificar, $borrar, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-// Setea las diferentes "classes" de estilos
-$class = is_null( $class ) ? 'he_db' : $class;
-$class = is_string( $class ) ? $class : get_class( $db );
-$class_t = ( $class === false ) ? '' : ' class="' . $class . '_titulo"';
-$class_f = ( $class === false ) ? '' : ' class="' . $class . '_pie"';
-$classtd[0] = ( $class === false ) ? '' : ' class="' . $class . '_par"';
-$classtd[1] = ( $class === false ) ? '' : ' class="' . $class . '_impar"';
-$class = ( $class === false ) ? '' : ' class="' . $class . '"';
-
-// Setea valores por defecto de los links de ABM.
-foreach ( array( 'agregar', 'borrar', 'modificar' ) as $a ) {
- if ( is_null( $$a ) )
- $$a = "$a.php";
-}
-
-// Tabla
-printf( '<table summary="Lista de %s" bordercolor="#006699" border="1" cellspacing="0" cellpadding="0" width="100%%"%s>',
- $db->_nombres,
- $class );
-
-// Título (eliminar??? TODO)
-#printf( '<caption%s>Lista de %s</caption>', $class, $db->_nombres );
-
-// Si hay resultados
-if ( $primero = $db->siguiente() ) {
- // Si no se especificaron campos (o no hay ninguno de los
- // solicitados disponibles), muestra todos.
- if ( !count( $campos ) or ! count( array_intersect( $campos, array_keys( $primero ) ) ) )
- $campos = array_keys( $primero );
-
- // Cabecera
- hooko( 'listar-cabecera', $db, $campos, array_keys( $primero ),
- $modificar or $borrar, $class_t );
-
- // Cuerpo
- printf( '<tbody%s>', $class );
-
- // Primer elemento
- hooko( 'listar-elemento', $db, $primero, $campos,
- $modificar, $borrar, $classtd[1] );
-
- // Resto de los elementos
- for ( $i = 0; $r = $db->siguiente(); $i++ )
- hooko( 'listar-elemento', $db, $r, $campos,
- $modificar, $borrar, $classtd[$i%2] );
-
- // Link a Agregar
- if ( $agregar )
- hooko( 'listar-agregar',
- $db, count( array_intersect( array_keys( $primero ), $campos ) )
- + intval( $modificar or $borrar ), $agregar, $class_f );
-
-} else { // Si no hay resultados
-
- // Muestra mensaje
- hooko( 'listar-vacia', $db, $class );
-
- // Link a Agregar
- if ( $agregar )
- hooko( 'listar-agregar',
- $db, count( array_intersect( array_keys( $primero ), $campos ) )
- + intval( $modificar or $borrar ), $agregar, $class_f );
-
-}
-
-echo '</table>';
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db_abm-listar.php $ $Rev: 128 $ $Date: 2002-11-07 19:28:18 -0300 (jue, 07 nov 2002) $ $Author: llucar $
-?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: mié oct 23 18:48:30 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db_abm_nivel-form-nivel.php $
-// $Rev: 118 $
-// $Date: 2002-10-24 13:11:49 -0300 (jue, 24 oct 2002) $
-// $Author: llucar $
-//
-
-require_once 'HE/DB/ABM/Nivel.php';
-require_once 'HE/Perm.php';
-
-/**
- * Dibuja un elemento de selección múltiple de un formulario para
- * crear/modificar un nivel en base a los permisos posibles.
- *
- * @param object HE_DB $db Base de datos que se lista.
- * @param string $tipo Como mostrarlo (si es para buscar, ver, etc).
- * @param string $class Class para CSS.
- */
-
-// Extrae los parámetros del hook.
-list( $tipo, $class ) = array_slice( $args, 2 );
-$db =& $objeto;
-
-$perm =& $GLOBALS['PRM'];
-
-// Obtiene variable.
-if ( $db->formulario_enviado() ) {
- $nivel = $perm->sumar( $_POST[$db->_form_var.'_campo_nivel'] );
-} elseif ( isset( $_GET[$db->_form_var.'_campo_nivel'] ) ) {
- $nivel = $_GET[$db->_form_var.'_campo_nivel'];
-} elseif ( isset( $_GET[$db->_form_var.'_original_login'] ) ) {
- $nivel = $db->nivel( $_GET[$db->_form_var.'_original_login'] );
-} else {
- $nivel = 0;
-}
-
-switch ( strtolower( $tipo ) ) {
- case 'buscar':
- hooko( 'form--text', $db, 'nivel', $tipo, $class );
- break;
- case 'agregar':
- case 'modificar':
- echo $perm->select( $db->_form_var . '_campo_nivel',
- $nivel,
- $class );
- break;
- default:
- echo $db->_procesar_nivel( $nivel );
- break;
-}
-
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-db_abm_nivel-form-nivel.php $ $Rev: 118 $ $Date: 2002-10-24 13:11:49 -0300 (jue, 24 oct 2002) $ $Author: llucar $
-?>
--- /dev/null
+<?php
+ require_once 'lib/HE/hooks.php';
+// +--------------------------------------------------------------------+
+// | SAMURAI |
+// +--------------------------------------------------------------------+
+// | Sistema de Administracion y Matenimiento de Usuarios Relativo A |
+// | Intranet |
+// | Ministerio de Economía |
+// +--------------------------------------------------------------------+
+// | Creado: fri mar 21 ART 2003 |
+// | Autor: Martin Marrese <mmarre@mecon.gov.ar> |
+// +--------------------------------------------------------------------+
+//
+// $Id$
+//
+// $URL$
+// $Rev$
+// $Date$
+// $Author$
+?>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <br>
+ </td>
+ </tr>
+ <tr width="[+ $menu?"600":"800" +]" align="center" vAlign="center">
+ <td bgColor="#cccccc" colSpan="2">
+ <font face="Arial, Helvetica, sans-serif" size=1>
+ <?php
+ hook('titulo-copyright');
+ ?>
+ </font>
+ </td>
+ </tr>
+ </table>
+ </body>
+</html>
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/tronco/src/includes/db/default-head.php $ $Rev: 83 $ $Date: 2002-09-03 15:59:58 -0300 (mar, 03 sep 2002) $ $Author: luca $ -->
-<link rel="stylesheet" href="<?= $GLOBALS['CNF']['webroot'] ?>/css/he_db.css" type="text/css"/>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/tronco/src/includes/db/default-head.php $ $Rev: 83 $ $Date: 2002-09-03 15:59:58 -0300 (mar, 03 sep 2002) $ $Author: luca $ -->
+<?php
+ require_once 'lib/HE/hooks.php';
+// +--------------------------------------------------------------------+
+// | SAMURAI |
+// +--------------------------------------------------------------------+
+// | Sistema de Administracion y Matenimiento de Usuarios Relativo A |
+// | Intranet |
+// | Ministerio de Economía |
+// +--------------------------------------------------------------------+
+// | Creado: fri mar 21 ART 2003 |
+// | Autor: Martin Marrese <mmarre@mecon.gov.ar> |
+// +--------------------------------------------------------------------+
+//
+// $Id$
+//
+// $URL$
+// $Rev$
+// $Date$
+// $Author$
+?>
+
+<html>
+ <head>
+ <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+ <title>
+ <?php
+ hook('titulo-sistema');
+ ?>
+ </title>
+ <?php
+ hook('script');
+ ?>
+ <? //<!-- ACA VA EL HOOK DE ESTILOS , VER BIEN COMO SE HACE --> ?>
+ </head>
+ <?php // SE CIERRA EN append.php -->?>
+
+ <body bgcolor="#FFFFFF" text="#000000" link="333333" vlink="666666" alink="999999" leftmargin="5" topmargin="5" marginwidth="5" marginheight="5">
+
+<?// <!-- TABLE SE CIERRA EN append.php -->
+ // <!-- TABLA GENERAL --> ?>
+ <table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
+ <tr>
+ <td colspan="[+ $menu?"2":"1" +]"><?php hook('copete'); ?> </td>
+ </tr>
+ <tr align="center">
+ <td colspan="[+ $menu?"2":"1" +]"><?php hook('secciones'); ?> </td>
+ </tr>
+ <tr height="100%">
+ <td valign="top" align="center" width="[+ $menu?"600":"800" +]">
+++ /dev/null
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-pie.php $ $Rev: 83 $ $Date: 2002-09-03 15:59:58 -0300 (mar, 03 sep 2002) $ $Author: luca $ -->
- <!-- /CUERPO -->
- <br><br><br>
- </td>
- </tr>
- <tr align="center" valign="middle" bgcolor="#FFFFFF">
- <td colspan="3">
- <!--font face="Verdana, Arial, Helvetica,
- sans-serif" size="1"-->
- <span style="font-family: Arial,
- Helvetica, sans-serif; font-size:
- x-small">
- <a href="/inf.epl">Información</a> |
- <a href="/servicios.epl">Servicios</a> |
- <a href="/consultas.epl">Consultas</a> |
- <a href="/g_horizontal.epl">Gestión Horizontal</a> |
- <a href="/g_local.epl">Gestión Local</a>
- </span>
- </td>
- </tr>
- <tr align="center" valign="middle">
- <td colspan="3" bgcolor="#CCCCCC"><font face="Arial, Helvetica, sans-serif" size="1">
- <span style="font-family: Arial,
- Helvetica, sans-serif; font-size:
- x-small">Copyright © 2001-<?= strftime( '%Y' ) ?> Ministerio de Economía</span>
- </td>
- </tr>
- </table>
- </body>
-</html>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-pie.php $ $Rev: 83 $ $Date: 2002-09-03 15:59:58 -0300 (mar, 03 sep 2002) $ $Author: luca $ -->
--- /dev/null
+<?php
+ require_once 'lib/HE/hooks.php';
+// +--------------------------------------------------------------------+
+// | SAMURAI |
+// +--------------------------------------------------------------------+
+// | Sistema de Administracion y Matenimiento de Usuarios Relativo A |
+// | Intranet |
+// | Ministerio de Economía |
+// +--------------------------------------------------------------------+
+// | Creado: fri mar 21 ART 2003 |
+// | Autor: Martin Marrese <mmarre@mecon.gov.ar> |
+// +--------------------------------------------------------------------+
+//
+// $Id$
+//
+// $URL$
+// $Rev$
+// $Date$
+// $Author$
+?>
+
+
+
+<script language="JavaScript">
+ <!-- hide this script from non-javascript-enabled browsers
+
+ /* Function that displays status bar messages. */
+ function MM_displayStatusMsg(msgStr) { //v3.0
+ status=msgStr; document.MM_returnValue = true;
+ }
+
+ function MM_findObj(n, d) { //v3.0
+ var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
+ d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
+ if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
+ for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
+ }
+
+ /* Functions that swaps images. */
+ function MM_swapImage() { //v3.0
+ var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
+ if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
+ }
+
+ function MM_swapImgRestore() { //v3.0
+ var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
+ }
+
+ function MM_preloadImages() { //v3.0
+ var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
+ var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
+ if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
+ }
+
+ function MM_openBrWindow(theURL,winName,features) { //v2.0
+ window.open(theURL,winName,features);
+ }
+
+//-->
+</script>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: mar jul 30 15:56:32 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-secciones.php $
-// $Rev: 118 $
-// $Date: 2002-10-24 13:11:49 -0300 (jue, 24 oct 2002) $
-// $Author: llucar $
-//
-
-// 'Importa' la configuración de los hooks.
-global $CNF, $PRM;
-
-// Obtiene la seccion actual.
-if ( preg_match( '|' . $GLOBALS['CNF']['webroot'] . '/([^/]+)/|', $_SERVER['PHP_SELF'], $m ) )
- $seccion = $m[1];
-else
- $seccion = '';
-
-// Secciones.
-$secciones = array(
- '1' => 'administracion',
- '2' => 'carga',
- '3' => 'procesos',
- '4' => 'consultas',
- '5' => 'informes',
-);
-
-// Permisos para cada sección.
-$permisos = array(
- '1' => array(
- HE_PERM_NIVEL_ABM,
- HE_PERM_PORCENTAJE_ABM,
- HE_PERM_USUARIO_ABM,
- ),
- '2' => array(
- HE_PERM_CARGA,
- HE_PERM_AGENTE_ABM,
- ),
- '3' => array(
- HE_PERM_CARGA,
- ),
- '4' => array(
- HE_PERM_NIVEL_CL,
- HE_PERM_PORCENTAJE_CL,
- HE_PERM_USUARIO_CL,
- HE_PERM_AGENTE_CL,
- ),
- '5' => array(
- HE_PERM_CARGA,
- ),
-);
-
-// Texto para poner una imagen seleccionada.
-$selected = '<a href="%s/%s/" onmouseout="MM_swapImgRestore()" onmouseover="MM_displayStatusMsg(\'HORAS EXTRAS\'); MM_swapImage(\'he%s\',\'\',\'%s/imagenes/he%s_f4.gif\',1); return document.MM_returnValue"><img name="he%s" src="%s/imagenes/he%s_f3.gif" border="0" alt="%s"></a>';
-$unselected = '<a href="%s/%s/" onmouseout="MM_swapImgRestore()" onmouseover="MM_displayStatusMsg(\'HORAS EXTRAS\'); MM_swapImage(\'he%s\',\'\',\'%s/imagenes/he%s_f2.gif\',1); return document.MM_returnValue" onclick="MM_swapImage(\'he%s\',\'\',\'%s/imagenes/he%s_f3.gif\',1)"><img name="he%s" src="%s/imagenes/he%s.gif" border="0" alt="%s"></a>';
-
-?>
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-secciones.php $ $Rev: 118 $ $Date: 2002-10-24 13:11:49 -0300 (jue, 24 oct 2002) $ $Author: llucar $ -->
-<script language="JavaScript">
- <!-- hide
- if (document.images) {
- he1_f4 = new Image(151 ,25); he1_f4.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he1_f4.gif";
- he1_f1 = new Image(151 ,25); he1_f1.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he1.gif";
- he2_f2 = new Image(91 ,25); he2_f2.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he2_f2.gif";
- he2_f1 = new Image(91 ,25); he2_f1.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he2.gif";
- he2_f3 = new Image(91 ,25); he2_f3.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he2_f3.gif";
- he3_f2 = new Image(167 ,25); he3_f2.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he3_f2.gif";
- he3_f1 = new Image(167 ,25); he3_f1.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he3.gif";
- he3_f3 = new Image(167 ,25); he3_f3.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he3_f3.gif";
- he4_f2 = new Image(95 ,25); he4_f2.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he4_f2.gif";
- he4_f1 = new Image(95 ,25); he4_f1.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he4.gif";
- he4_f3 = new Image(95 ,25); he4_f3.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he4_f3.gif";
- he5_f2 = new Image(96 ,25); he5_f2.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he5_f2.gif";
- he5_f1 = new Image(96 ,25); he5_f1.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he5.gif";
- he5_f3 = new Image(96 ,25); he5_f3.src = "<?= $GLOBALS['CNF']['webroot'] ?>/imagenes/he5_f3.gif";
- }
- // stop hiding -->
-</script>
-<div align="left"><?
-
- foreach ( $secciones as $n => $dir )
- if ( call_user_func_array( array( $GLOBALS['PRM'], 'tieneO' ), $permisos[$n] ) ) {
- if ( $seccion == $dir )
- printf( $selected, $GLOBALS['CNF']['webroot'], $dir, $n, $GLOBALS['CNF']['webroot'], $n, $n, $GLOBALS['CNF']['webroot'], $n, ucfirst( $dir ) );
- else
- printf( $unselected, $GLOBALS['CNF']['webroot'], $dir, $n, $GLOBALS['CNF']['webroot'], $n, $n, $GLOBALS['CNF']['webroot'], $n, $n, $GLOBALS['CNF']['webroot'], $n, ucfirst( $dir ) );
- }
-
-?></div>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-secciones.php $ $Rev: 118 $ $Date: 2002-10-24 13:11:49 -0300 (jue, 24 oct 2002) $ $Author: llucar $ -->
+++ /dev/null
-<!-- INICIO $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-subsecciones.php $ $Rev: 83 $ $Date: 2002-09-03 15:59:58 -0300 (mar, 03 sep 2002) $ $Author: luca $ -->
-<?
- require_once( 'HE/lib/hooks.php' );
- hook( 'barra', '..' );
-?>
-<!-- FIN $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/includes/hooks/default-subsecciones.php $ $Rev: 83 $ $Date: 2002-09-03 15:59:58 -0300 (mar, 03 sep 2002) $ $Author: luca $ -->
--- /dev/null
+Copyright © 2003 Ministerio de Economía
--- /dev/null
+SAMURAI - Sistema de Administracion y Mantenimiento de Usuarios Relativo A Intranet
+++ /dev/null
-Horas Extra
--- /dev/null
+<?php
+// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
+// +--------------------------------------------------------------------+
+// | HORAS EXTRA |
+// +--------------------------------------------------------------------+
+// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
+// +--------------------------------------------------------------------+
+// | Creado: lun abr 22 16:05:33 ART 2002 |
+// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
+// +--------------------------------------------------------------------+
+//
+// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/lib/HE/lib/hooks.php $
+// $Rev: 116 $
+// $Date: 2002-10-23 19:09:12 -0300 (mié, 23 oct 2002) $
+// $Author: llucar $
+//
+
+/**
+ * "Engancha" una página dentro de otra.
+ *
+ * Esta función busca por un archivo llamado igual que el script php que
+ * se está ejecutando más un postfijo para incluirlo en la ejecución. De
+ * no encontrarlo, busca uno llamado default-<posfijo>.php en el
+ * directorio actual y/o en el include_path del php.
+ * Por otro lado soporta argumentos variables, que son 'pasados' al hook
+ * en el array $args. De esta manera se pueden parametrizar los hooks.
+ *
+ * @param string $nombre Nombre del "gancho". Es el nombre del posfijo
+ * que se le agrega al nombre de archivo antes de
+ * buscar.
+ *
+ * @return mixed Devuelve lo mismo que el archivo incluído.
+ */
+function hook( $nombre ) {
+
+ // Se pasan todos los argumentos del hook (nótese que de forma similar
+ // al argv[] del sistema, el primer elemento es el nombre del hook
+ // siempre).
+ $args = func_get_args();
+
+ list( $dir, $pagina, $extension ) = splitfilename( $_SERVER['SCRIPT_FILENAME'] );
+ if ( is_readable_include( "$pagina-$nombre.php" ) ) {
+ return include "$pagina-$nombre.php";
+ } elseif ( is_readable_include( "default-$nombre.php" ) ) {
+ return include "default-$nombre.php";
+ } elseif ( is_readable_include( "includes/hooks/default-$nombre.php" ) ) {
+ return include "includes/hooks/default-$nombre.php";
+ }
+
+}
+
+/**
+ * "Engancha" una página dentro de otra desde un método de un objeto.
+ *
+ * Esta función busca por un archivo llamado igual que el script php que
+ * se está ejecutando más un postfijo para incluirlo en la ejecución. De
+ * no encontrarlo, busca uno llamado default-<class>-<posfijo>.php en el
+ * directorio actual y/o en el include_path del php. <class> es la clase
+ * del objeto o de un objeto padre (obtenido del nombre de la clase según
+ * las recomendaciones de PEAR <http://pear.php.net/>). Se busca primero
+ * un hook que coincida con la clase más específica y luego el de las
+ * clases padre.
+ * Por otro lado soporta argumentos variables, que son 'pasados' al hook
+ * en el array $args. De esta manera se pueden parametrizar los hooks.
+ *
+ * @param string $nombre Nombre del "gancho". Es el nombre del posfijo
+ * que se le agrega al nombre de archivo antes de
+ * buscar.
+ * @param object &$objeto Objeto a usar en el hooko.
+ *
+ * @return mixed Devuelve lo mismo que el archivo incluído.
+ */
+function hooko( $nombre, &$objeto ) {
+
+ // Se pasan todos los argumentos del hook (nótese que de forma similar
+ // al argv[] del sistema, el primer elemento es el nombre del hook
+ // siempre).
+ $args = func_get_args();
+
+ // Obtiene el nombre de la clase y sus padres.
+ $c = preg_split( '/_/', get_class( $objeto ) );
+ array_shift( $c ); // Le saca el HE
+
+ list( $dir, $pagina, $extension ) = splitfilename( $_SERVER['SCRIPT_FILENAME'] );
+
+ // Busca el hook con "herencia" de clases.
+ foreach( $c as $n => $class ) {
+
+ // Genera el nombre de la clase padre del nivel $n.
+ $class = join( '_', array_slice( $c, 0, $n ? -$n : count( $c ) ) );
+
+ if ( is_readable_include( "$pagina-$class-$nombre.php" ) ) {
+ return include "$pagina-$class-$nombre.php";
+ } elseif ( is_readable_include( "default-$class-$nombre.php" ) ) {
+ return include "default-$class-$nombre.php";
+ } elseif ( is_readable_include( "includes/hooks/default-$class-$nombre.php" ) ) {
+ return include "includes/hooks/default-$class-$nombre.php";
+ }
+
+ }
+
+}
+
+/**
+ * "Engancha" una segmento de configuración dentro de una página.
+ *
+ * Esta función busca un archivo llamado default-<postfijo> en el include
+ * path de PHP, luego en el directoro actual, y luego un archivo llamado
+ * pagina-<postfijo> en el directorio actual. Incluye para su ejecución
+ * todos los archivos que encuentre.
+ * De esta manera, las instancias más específicas del hook sobreescriben
+ * las definiciones hechas en las instancias más genéricas.
+ * Por otro lado soporta argumentos variables, que son 'pasados' al hook
+ * en el array $args. De esta manera se pueden parametrizar los hooks.
+ *
+ * @param string $nombre Nombre del "gancho". Es el nombre del posfijo
+ * que se le agrega al nombre de archivo antes de
+ * buscar.
+ *
+ * @return array Devuelve un array_merge() de todos los valores
+ * devuletos por los hookc encontrados. Para entender bien
+ * qué pasa en cada caso particular (por ejemplo si un
+ * hookc devuelve un string y otro un array), hay que
+ * tener claro como funciona array_merge().
+ */
+function hookc( $nombre ) {
+
+ // Se pasan todos los argumentos del hook (nótese que de forma similar
+ // al argv[] del sistema, el primer elemento es el nombre del hook
+ // siempre).
+ $args = func_get_args();
+
+ list( $dir, $pagina, $extension ) = splitfilename( $_SERVER['SCRIPT_FILENAME'] );
+
+ $ret = array();
+ if ( is_readable_include( "includes/hooks/default-$nombre.php" ) )
+ $ret[] = include "includes/hooks/default-$nombre.php";
+ if ( is_readable_include( "default-$nombre.php" ) )
+ $ret[] = include "default-$nombre.php";
+ if ( is_readable_include( "$pagina-$nombre.php" ) )
+ $ret[] = include "$pagina-$nombre.php";
+
+ // Juntamos todos los valores devueltos. Suponemos que todos
+ // devuelven un hash. De devolver un valor común, seguramente se
+ // agregue al hash como un valor mas (solo que la clave será numérica
+ // y autoincremental).
+ // NOTA: Si las claves son numéricas, los elementos no reemplazan a
+ // los anteriores!!! Son agregados y se les cambia la clave por un
+ // número más alto (todavía no usado en el array).
+ $r = array();
+ foreach ( $ret as $array )
+ array_merge( $r, $array );
+
+ return $r;
+
+}
+
+/**
+ * Hook al estilo dotfile.
+ *
+ * Este tipo de hook es muy similar a un hook común, sólo cambia donde se
+ * lo busca. El directorio de búsqueda se especifica expresamente al
+ * llamar al hook y no hace un fallback a otros hooks por defecto.
+ *
+ * @param string $nombre Nombre del "gancho". En este caso simplemente se
+ * busca el archivo .$nombre.php ya que los este
+ * tipo de hook es 'directory-wide'.
+ * @param string $ruta Ruta en donde se encuentra el hookd.
+ *
+ * @return mixed Devuelve lo mismo que el archivo incluído.
+ */
+function hookd( $nombre, $ruta = '.' ) {
+
+ // Se pasan todos los argumentos del hook (nótese que de forma similar
+ // al argv[] del sistema, el primer elemento es el nombre del hook
+ // siempre).
+ $args = func_get_args();
+
+ if ( is_readable( "$ruta/.$nombre.php" ) )
+ return include "$ruta/.$nombre.php";
+
+}
+
+/**
+ * Verifica que un hook exista.
+ *
+ * @param string $nombre Nombre del hook a ver si existe.
+ *
+ * @return mixed Devuelve true si existe el hook.
+ *
+ * @see hook()
+ */
+function hook_exists( $nombre ) {
+
+ $include_path = array_unique( array_merge( preg_split( '/:/', ini_get( 'include_path' ) ), '.' ) );
+ list( $dir, $pagina, $extension ) = splitfilename( $_SERVER['SCRIPT_FILENAME'] );
+ foreach ( $include_path as $path )
+ if ( is_readable_include( "$path/$pagina-$nombre.php" )
+ or is_readable_include( "$path/default-$nombre.php" )
+ or is_readable_include( "$path/includes/hooks/default-$nombre.php" ) )
+ return true;
+ return false;
+
+}
+
+/**
+ * Verifica que un hooko exista.
+ *
+ * @param string $nombre Nombre del hooko a ver si existe.
+ * @param object &$objeto Objeto del que se quiere saber si el hooko
+ * existe.
+ *
+ * @return mixed Devuelve true si existe el hooko.
+ *
+ * @see hooko()
+ */
+function hooko_exists( $nombre, &$objeto ) {
+
+ $include_path = array_unique( array_merge( preg_split( '/:/', ini_get( 'include_path' ) ), '.' ) );
+ list( $dir, $pagina, $extension ) = splitfilename( $_SERVER['SCRIPT_FILENAME'] );
+ $c = preg_split( '/_/', get_class( $objeto ) );
+ array_shift( $c ); // Le saca el HE
+
+ // Busca el hooko con "herencia" de clases.
+ foreach( $c as $n => $class ) {
+ $class = join( '_', array_slice( $c, 0, $n ? -$n : count( $c ) ) );
+ foreach ( $include_path as $path )
+ if ( is_readable_include( "$path/$pagina-$class-$nombre.php" )
+ or is_readable_include( "$path/default-$class-$nombre.php" )
+ or is_readable_include( "$path/includes/hooks/default-$class-$nombre.php" ) )
+ return true;
+ }
+
+ return false;
+
+}
+
+/**
+ * Verifica que un hookd exista.
+ *
+ * @param string $nombre Nombre del hookd a ver si existe.
+ * @param string $ruta Ruta donde se encuentra el hookd.
+ *
+ * @return mixed Devuelve true si existe el hookd.
+ *
+ * @see hookd()
+ */
+function hookd_exists( $nombre, $ruta = '.' ) {
+
+ return is_readable( "$ruta/.$nombre.php" );
+
+}
+
+/**
+ * Divide un archivo devolviendo el nombre y la extensión.
+ *
+ * @param string $nombre Nombre del archivo a dividir.
+ *
+ * @return array Un array cuyo primer elemento es el nombre y el segundo
+ * la extensión.
+ *
+ * @see hook()
+ */
+function splitfilename( $nombre ) {
+
+ $path = preg_split( '|/|', $nombre );
+ $file = array_pop( $path );
+ $ext = '';
+
+ if ( strstr( $file, '.' ) ) {
+ preg_match( '|([^/]+?)(\.([^\.]*))?$|', $file, $m );
+ $file = $m[1] . ( ( $m[2] == '.' ) ? '.' : '' );
+ $ext = $m[3];
+ }
+
+ $dir = count( $path ) ? join( '/', $path ) : '';
+
+ return array( $dir, $file, $ext );
+
+}
+
+/**
+ * Indica si un archivo existe en el include_path y si puede ser leido.
+ *
+ * @param string $nombre Nombre del archivo a buscar.
+ *
+ * @return array Devuelve true si esta en el include path y puede ser
+ * leido.
+ *
+ * @see hook()
+ * @see hook_exists()
+ */
+function is_readable_include( $nombre ) {
+
+ list( $dir, $pagina, $extension ) = splitfilename( $nombre );
+ if ( is_readable( $nombre ) )
+ return true;
+
+ $include_path = preg_split( '/:/', ini_get( 'include_path' ) );
+ foreach ( $include_path as $path )
+ if ( is_readable( "$path/$nombre" ) )
+ return true;
+ return false;
+
+}
+
+// $URL: http://portal.mecon.ar/svn/he/ramas/carga_inicial/src/lib/HE/lib/hooks.php $ $Rev: 116 $ $Date: 2002-10-23 19:09:12 -0300 (mié, 23 oct 2002) $ $Author: llucar $
+?>
--- /dev/null
+<?php
+// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
+// +--------------------------------------------------------------------+
+// | SAMURAI |
+// +--------------------------------------------------------------------+
+// | Sistema de Administracion y Matenimiento de Usuarios Relativo A |
+// | Intranet |
+// | Ministerio de Economía |
+// +--------------------------------------------------------------------+
+// | Creado: fri mar 21 ART 2003 |
+// | Autor: Martin Marrese <mmarre@mecon.gov.ar> |
+// +--------------------------------------------------------------------+
+//
+// $Id$
+//
+// $URL$
+// $Rev$
+// $Date$
+// $Author$
+
+require_once 'PEAR.php';
+
+/**
+* Manejo de secciones.
+*
+* Libreria para le manejo de las secciones del sistema.
+*
+* @package Samurai
+* @version $Rev$
+* @author $Author$
+*/
+
+class SA_Secciones extends PEAR {
+
+ /**
+ * Datos de las secciones
+ *
+ * @var array
+ */
+ var $_secciones;
+
+ /**
+ * Constructor.
+ *
+ * No necesita parametros de entrada, pues los levanta de un
+ * archivo predefinido 'conf/secciones_Conf.php'.
+ *
+ * @access public
+ */
+ function SA_Secciones()
+ {
+ $this->PEAR();
+ $this->_secciones = include '../conf/secciones_Conf.php';
+ }
+
+ /**
+ * Devulve el HTML de las secciones.
+ *
+ * Devuelve en codigo HTML el tag <a href><img></a> para cada seccion.
+ *
+ * @return $seccion
+ *
+ * @access public
+ */
+ function display ()
+ {
+ $pagina_actual = basename($_SERVER['PHP_SELF']);
+ $seccion ='';
+ foreach ($this->_secciones as $sec) {
+ if ($sec['link'] == $pagina_actual) {
+ $imagen = $sec['img_select'];
+ }
+ else {
+ $imagen = $sec['img_comun'];
+ }
+ $seccion.= '<td><a href="'.$sec['link'].'" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_displayStatusMsg(\''.$sec['nombre'].'\'); MM_swapImage(\''.$sec['nombre'].'\',\'\',\''.$sec['img_mouseon'].'\',1); return document.MM_returnValue" MM_swapImage(\''.$sec['nombre'].'\',\'\',\''.$sec['img_mouseon'].'\'><img name="'.$sec['nombre'].'" src="'.$imagen.'" alt="'.$sec['nombre'].'" width="50" height="52" border="0"></a> </td>';
+ }
+ return $seccion;
+ }
+
+}
+
+?>
+++ /dev/null
-<?php
-// vim: set expandtab tabstop=4 softtabstop=4 shiftwidth=4:
-// +--------------------------------------------------------------------+
-// | HORAS EXTRA |
-// +--------------------------------------------------------------------+
-// | Sistema de Horas Extra - Ministerio de Economía - Argentina |
-// +--------------------------------------------------------------------+
-// | Creado: lun abr 22 16:05:33 ART 2002 |
-// | Autor: Leandro Lucarella <llucar@mecon.gov.ar> |
-// +--------------------------------------------------------------------+
-//
-// $URL$
-// $Rev$
-// $Date$
-// $Author$
-//
-
-// Comienza el manejo de sesiones.
-session_start();
-
-// Hace que de forma general, si hay un error, se interrumpa la ejecución
-// (excepto aquellos que sean advertencias).
-require_once 'PEAR.php';
-PEAR::setErrorHandling( PEAR_ERROR_DIE );
-
-// Obtiene la sesión de Embperl.
-require_once 'HE/Session/Perl.php';
-$udat = HE_Session_Perl::udat();
-
-// Se fija si está logueado en la intranet.
-if ( $udat === false or !isset( $udat['user'] ) or !isset( $udat['nro_doc'] ) ) {
- // Limpia los datos de la sesión.
- session_destroy();
- setcookie( session_name(), '', 0, '/', '.mecon.ar' );
- $_SESSION = array();
- // Redirecciona al login.
- header( 'Location: /' );
- exit;
-} elseif ( is_string( $udat ) ) {
- die( "<h1>ERROR DE SESION</h1>$udat<br/><br/>Este es un error no esperado, por favor anote el mensaje de error e informelo a <a href=\"mailto:intranet2@mecon.gov.ar\">".$basehost."@mecon.gov.ar</a>" );
-}
-
-// Setea las variables de usuario.
-$_SESSION['usuario']['login'] = $udat['user'];
-$_SESSION['usuario']['nrodoc'] = intval( $udat['nro_doc'] );
-
-// Obtiene el nivel del usuario.
-require_once 'HE/DB/ABM/Usuario.php';
-$USR =& new HE_DB_ABM_Usuario;
-$_SESSION['usuario']['nivel'] = $USR->nivel();
-
-// Obtiene la dependencia del usuario.
-require_once 'HE/DB/Persona.php';
-$PRS =& new HE_DB_Persona;
-switch ( $_SESSION['usuario']['login'] ) {
- case 'llucar@mecon': $_SESSION['usuario']['dependencia'] = '3002030702'; break;
- case 'mmespi@mecon': $_SESSION['usuario']['dependencia'] = '3002030702'; break;
- case 'rcarta@mecon': $_SESSION['usuario']['dependencia'] = '1000020000'; break;
- case 'aausil@mecon': $_SESSION['usuario']['dependencia'] = '1301010000'; break;
- case 'pabaez@mecon': $_SESSION['usuario']['dependencia'] = '3002030300'; break;
- case 'vfranc@mecon': $_SESSION['usuario']['dependencia'] = '3002030203'; break;
- case 'malvar1@mecon': $_SESSION['usuario']['dependencia'] = '1200000003'; break;
- case 'dcolle@mecon': $_SESSION['usuario']['dependencia'] = '8102020000'; break;
- default: $_SESSION['usuario']['dependencia'] = $PRS->dependencia();
-}
-
-// Crea el objeto de chequeo de permisos.
-require_once 'HE/Perm.php';
-$PRM =& new HE_Perm;
-
-// Hooks.
-require_once 'lib/HE/lib/hooks.php';
-// Toma la configuración desde un hook.
-$CNF = hook( 'config' );
-// Chequeo de permisos.
-hook( 'permisos' );
-// Cosas a ejecutar antes de enviar nada de HTML.
-hook( 'prepend' );
-// Cabecera HTML.
-hook( 'cabecera' );
-
-// $URL$ $Rev$ $Date$ $Author$
-?>
--- /dev/null
+<img src="images/inicio.jpg">
projects / mecon / samurai.git / commitdiff
