richter 2002/10/25 06:26:30
Modified: eg/web/db Tag: Embperl2c add.epl addsel.epl login.epl
show.epl
Log:
Debugging output removed
Revision Changes Path
No revision
No revision
1.1.2.10 +2 -0 embperl/eg/web/db/add.epl
Index: add.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/add.epl,v
retrieving revision 1.1.2.9
retrieving revision 1.1.2.10
diff -u -r1.1.2.9 -r1.1.2.10
--- add.epl 25 Oct 2002 13:21:10 -0000 1.1.2.9
+++ add.epl 25 Oct 2002 13:26:30 -0000 1.1.2.10
@@ -72,6 +72,7 @@
</form>
+[#
<PRE>
[+ Dumper
$r->{edit},$r->{category_set},$r->{category_set}{add_info},$r->{action_prefix},$r->{language_set},$r->{category_set}{category},[keys
%$r],$r->{user_admin} +]
edit1 = [= edit1 =]
@@ -79,3 +80,4 @@
add2a = [= add2a =]
add2b = [= add2b =]
</PRE>
+#]
1.1.2.12 +3 -1 embperl/eg/web/db/addsel.epl
Index: addsel.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/addsel.epl,v
retrieving revision 1.1.2.11
retrieving revision 1.1.2.12
diff -u -r1.1.2.11 -r1.1.2.12
--- addsel.epl 25 Oct 2002 13:21:10 -0000 1.1.2.11
+++ addsel.epl 25 Oct 2002 13:26:30 -0000 1.1.2.12
@@ -64,12 +64,14 @@
[$endif$]
+[#
DEBUGGING:
[! use Data::Dumper; !]
<PRE>
[+ Dumper $ENV{SERVER_NAME}, $ENV{SERVER_PORT}, [keys %$r] +]
-
+</PRE>
+#]
[#
<form action="[+ $r -> {action_prefix}?($r->{action_prefix} . dirname($r-> param ->
uri) .'/'):''+]addsel.epl" OnSubmit="">
1.1.2.3 +3 -1 embperl/eg/web/db/Attic/login.epl
Index: login.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/login.epl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- login.epl 23 Oct 2002 12:29:11 -0000 1.1.2.2
+++ login.epl 25 Oct 2002 13:26:30 -0000 1.1.2.3
@@ -4,9 +4,11 @@
[- Execute ('loginform.epl', 'addsel.epl') ; -]
</div>
+[#
[! use Data::Dumper; !]
[- $r = shift -]
<PRE>
[+ Dumper $r->{config} +]
-</PRE>
\ No newline at end of file
+</PRE>
+#]
\ No newline at end of file
1.1.2.6 +3 -1 embperl/eg/web/db/show.epl
Index: show.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/show.epl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- show.epl 25 Oct 2002 13:21:10 -0000 1.1.2.5
+++ show.epl 25 Oct 2002 13:26:30 -0000 1.1.2.6
@@ -51,8 +51,10 @@
<br><br>
+[#
[! use Data::Dumper; !]
[- $DBIx::Recordset::FetchsizeWarn = 0; -]
<PRE>
[+ Dumper $r->{error},\%fdat,[keys %$r],{%{$r->{category_set}}},[@{$r->{item_set}}]
+]
-</PRE>
\ No newline at end of file
+</PRE>
+#]
\ No newline at end of file
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
