Fixed parsing of multibox to deal with embedded functions in multibox data.
[openemr.git] / interface / forms_admin / forms_admin.php
bloba528d6b2172e1887344ea3242e00c2e4a5b5977f
1 <?php
2 //INCLUDES, DO ANY ACTIONS, THEN GET OUR DATA
3 include_once("../globals.php");
4 include_once("$srcdir/registry.inc");
5 include_once("$srcdir/sql.inc");
6 if ($_GET['method'] == "enable"){
7 updateRegistered ( $_GET['id'], "state=1" );
9 elseif ($_GET['method'] == "disable"){
10 updateRegistered ( $_GET['id'], "state=0" );
12 elseif ($_GET['method'] == "install_db"){
13 $dir = getRegistryEntry ( $_GET['id'], "directory" );
14 if (installSQL ("$srcdir/../interface/forms/{$dir['directory']}"))
15 updateRegistered ( $_GET['id'], "sql_run=1" );
16 else
17 $err = "ERR: could not open table.sql, broken form?";
19 elseif ($_GET['method'] == "register"){
20 registerForm ( $_GET['name'] ) or $err="err while registering form!";
22 $bigdata = getRegistered("%") or $bigdata = false;
25 //START OUT OUR PAGE....
27 <html>
28 <head>
29 <link rel=stylesheet href="<?php echo $css_header;?>" type="text/css">
30 </head>
31 <body <?php echo $top_bg_line;?> topmargin=0 rightmargin=0 leftmargin=2 bottommargin=0 marginwidth=2 marginheight=0>
32 <span class="title"><?php xl('Forms Administration','e');?></span>
33 <br><br>
34 <?php
35 foreach($_POST as $key=>$val) {
36 if (preg_match('/nickname_(\d+)/', $key, $matches)) {
37 $nickname_id = $matches[1];
38 sqlQuery("update registry set nickname='".$val."' where id=".$nickname_id);
40 if (preg_match('/category_(\d+)/', $key, $matches)) {
41 $category_id = $matches[1];
42 sqlQuery("update registry set category='".$val."' where id=".$category_id);
44 if (preg_match('/priority_(\d+)/', $key, $matches)) {
45 $priority_id = $matches[1];
46 sqlQuery("update registry set priority='".$val."' where id=".$priority_id);
52 <?php //ERROR REPORTING
53 if ($err)
54 echo "<span class=bold>$err</span><br><br>\n";
58 <?php //REGISTERED SECTION ?>
59 <span class=bold><?php xl('Registered','e');?></span><br>
60 <form method=POST action ='./forms_admin.php' target='Main'>
61 <i><?php xl('click here to update priority, category and nickname settings','e'); ?></i>
62 <input type=submit name=update value='<?php xl('update','e'); ?>'><br>
63 <table border=0 cellpadding=1 cellspacing=2 width="500">
64 <tr>
65 <td> </td>
66 <td> </td>
67 <td> </td>
68 <td> </td>
69 <td> </td>
70 <td><?php xl('Priority ','e'); ?></td>
71 <td><?php xl('Category ','e'); ?></td>
72 <td><?php xl('Nickname','e'); ?></td>
73 </tr>
74 <?php
75 $color="#CCCCCC";
76 if ($bigdata != false)
77 foreach($bigdata as $registry)
79 $priority_category = sqlQuery("select priority, category, nickname from registry where id=".$registry['id']);
81 <tr>
82 <td bgcolor="<?php echo $color?>" width="2%">
83 <span class=text><?php echo $registry['id'];?></span>
84 </td>
85 <td bgcolor="<?php echo $color?>" width="30%">
86 <span class=bold><?php echo $registry['name'];?></span>
87 </td>
88 <?php
89 if ($registry['sql_run'] == 0)
90 echo "<td bgcolor='$color' width='10%'><span class='text'>".xl('registered')."</span>";
91 elseif ($registry['state'] == "0")
92 echo "<td bgcolor='#FFCCCC' width='10%'><a class=link_submit href='./forms_admin.php?id={$registry['id']}&method=enable' target='Main'>".xl('disabled')."</a>";
93 else
94 echo "<td bgcolor='#CCFFCC' width='10%'><a class=link_submit href='./forms_admin.php?id={$registry['id']}&method=disable' target='Main'>".xl('enabled')."</a>";
95 ?></td>
96 <td bgcolor="<?php $color?>" width="10%">
97 <span class=text><?php
99 if ($registry['unpackaged'])
100 echo xl('PHP extracted','e');
101 else
102 echo xl('PHP compressed','e');
104 ?></span>
105 </td>
106 <td bgcolor="<?php echo $color?>" width="10%">
107 <?php
108 if ($registry['sql_run'])
109 echo "<span class=text>".xl('DB installed')."</span>";
110 else
111 echo "<a class=link_submit href='./forms_admin.php?id={$registry['id']}&method=install_db' target='Main'>".xl('install DB')."</a>";
113 </td>
114 <?php
115 echo "<td><input type=text size=4 name=priority_".$registry['id']." value='".$priority_category['priority']."'></td>";
116 echo "<td><input type=text size=8 name=category_".$registry['id']." value='".$priority_category['category']."'></td>";
117 echo "<td><input type=text size=8 name=nickname_".$registry['id']." value='".$priority_category['nickname']."'></td>";
119 </tr>
120 <?php
121 if ($color=="#CCCCCC")
122 $color="#999999";
123 else
124 $color="#CCCCCC";
125 } //end of foreach
127 </table>
128 <hr>
131 <?php //UNREGISTERED SECTION ?>
132 <span class=bold><?php xl('Unregistered','e');?></span><br>
133 <table border=0 cellpadding=1 cellspacing=2 width="500">
134 <?php
135 $dpath = "$srcdir/../interface/forms/";
136 $dp = opendir($dpath);
137 $color="#CCCCCC";
138 for ($i=0; false != ($fname = readdir($dp)); $i++)
139 if ($fname != "." && $fname != ".." && $fname != "CVS" && (is_dir($dpath.$fname) || stristr($fname, ".tar.gz") || stristr($fname, ".tar") || stristr($fname, ".zip") || stristr($fname, ".gz")))
140 $inDir[$i] = $fname;
142 // ballards 11/05/2005 fixed bug in removing registered form from the list
143 if ($bigdata != false)
145 foreach ( $bigdata as $registry )
147 $key = array_search($registry['directory'], $inDir) ; /* returns integer or FALSE */
148 unset($inDir[$key]);
152 foreach ( $inDir as $fname )
154 if (stristr($fname, ".tar.gz") || stristr($fname, ".tar") || stristr($fname, ".zip") || stristr($fname, ".gz"))
155 $phpState = "PHP compressed";
156 else
157 $phpState = "PHP extracted";
159 <tr>
160 <td bgcolor="<?php echo $color?>" width="1%">
161 <span class=text> </span>
162 </td>
163 <td bgcolor="<?php echo $color?>" width="20%">
164 <span class=bold><?php echo $fname?></span>
165 </td>
166 <td bgcolor="<?php echo $color?>" width="10%"><?php
167 if ($phpState == "PHP extracted")
168 echo '<a class=link_submit href="./forms_admin.php?name='.urlencode($fname).'&method=register" target=Main>register</a>';
169 else
170 echo '<span class=text>n/a</span>';
171 ?></td>
172 <td bgcolor="<?php echo $color?>" width="20%">
173 <span class=text><?php echo $phpState?></span>
174 </td>
175 <td bgcolor="<?php echo $color?>" width="10%">
176 <span class=text>n/a</span>
177 </td>
178 </tr>
179 <?php
180 if ($color=="#CCCCCC")
181 $color="#999999";
182 else
183 $color="#CCCCCC";
184 flush();
185 }//end of foreach
187 </table>
189 </body>
190 </html>