Line # Revision Author
1 8 ahitrov@rambler.ru <& "/contenido/components/title.msn", title => $PROTOS->{$proto}->[0] &>
2
3 <br>
4 <table border="0" style="font-size:100%;" width="80%">
5 <tr>
6 <td width="10"></td>
7 <td>
8 <div style="font-size:130%;"><% $PROTOS->{$proto}->[0] %></div>
9 <p>
10 <pre style="font-size:70%;">
11 <% Data::Dumper::Dumper($PROTOS->{$proto}->[1]) %>
12 </pre>
13 </td>
14 </tr>
15 </table>
16
17 </body>
18 </html>
19
20 <%ARGS>
21
22 $proto => undef
23 $save => undef
24
25 </%ARGS>
26 <%INIT>
27
28 use vars qw($keeper $request $state $project);
29 my $PROTOS = {
30 'project' => ['Параметры проекта ($project)',$project],
31 'state' => ['Состояние проекта ($state)',$state],
32 'request' => ['Параметры запроса ($request)',$request],
33
34 };
35
36 if (! exists($PROTOS->{$proto}))
37 {
38 return undef;
39 }
40
41 </%INIT>