At 5:01 PM +0100 2/16/02, Gerald Richter wrote:
>I case you have some free minutes, please set EMBPERL_DEBUG to 0x7fffffff
>and send me the embperl.log file you get (will be very long, but this
>doesn't matter)
The rush is over, I'm sitting by the pool in Canc�n, and here's the log.
The other (more critical in fact) problem I'm seeing is that the
automatic form filling by %fdat isn't always completing. I'll get
some of the form filled, but then it will stop and subsequent items
aren't filled. I'll see if I can't generate a log for that as well.
Logfile = /tmp/embperl.log, Position = 543656, Pid = 15078
[15078]REQ: Embperl 2.0b5 starting... Tue Feb 26 17:19:52 2002
[15078]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3) EP
2.x recipe = Embperl
[15078]REQ: Package = HTML::Embperl::DOC::_1
[15078]HDR: 9
[15078]HDR: Accept=*/*
[15078]HDR: Accept-Language=en
[15078]HDR: Connection=Keep-Alive
[15078]HDR: Extension=Security/Remote-Passphrase
[15078]HDR: Host=mcsa
[15078]HDR: If-Modified-Since=Tue, 26 Feb 2002 23:17:38 GMT
[15078]HDR: UA-CPU=PPC
[15078]HDR: UA-OS=MacOS
[15078]HDR: User-Agent=Mozilla/4.0 (compatible; MSIE 5.12; Mac_PowerPC)
[15078]ENV: QUERY_STRING=
[15078]ENV: HTTP_ACCEPT_LANGUAGE=en
[15078]ENV: REDIRECT_EMBPERL_DEBUG=0x7fffffff
[15078]ENV: REDIRECT_HTTP_ACCEPT_LANGUAGE=en
[15078]ENV: HTTP_HOST=mcsa
[15078]ENV: GATEWAY_INTERFACE=CGI-Perl/1.1
[15078]ENV: REDIRECT_SERVER_ADDR=127.0.0.1
[15078]ENV: [EMAIL PROTECTED]
[15078]ENV: HTTP_IF_MODIFIED_SINCE=Tue, 26 Feb 2002 23:17:38 GMT
[15078]ENV: [EMAIL PROTECTED]
[15078]ENV: REDIRECT_HTTP_UA_CPU=PPC
[15078]ENV: SCRIPT_NAME=/admin/Calendar/index.html
[15078]ENV: REDIRECT_HTTP_IF_MODIFIED_SINCE=Tue, 26 Feb 2002 23:17:38 GMT
[15078]ENV: REDIRECT_PATH_INFO=/
[15078]ENV: REDIRECT_STATUS=200
[15078]ENV: REDIRECT_PATH_TRANSLATED=/usr/local/www/mcsa/
[15078]ENV: SCRIPT_FILENAME=/usr/local/www/mcsa/admin/Calendar/index.html
[15078]ENV: REDIRECT_EMBPERL_OBJECT_BASE=AdminTemplate.html
[15078]ENV: REDIRECT_SERVER_SOFTWARE=Apache
[15078]ENV: EMBPERL_DEBUG=0x7fffffff
[15078]ENV: EMBPERL_OPTIONS=16
[15078]ENV: SERVER_PROTOCOL=HTTP/1.1
[15078]ENV: HTTP_CONNECTION=Keep-Alive
[15078]ENV: REDIRECT_EMBPERL_EP1COMPAT=0
[15078]ENV: REDIRECT_SERVER_PORT=80
[15078]ENV: PATH_INFO=/
[15078]ENV: REMOTE_ADDR=127.0.0.1
[15078]ENV: EMBPERL_VIRTLOG=/embperllog.html
[15078]ENV: REQUEST_URI=/admin/Calendar/
[15078]ENV: REDIRECT_REQUEST_METHOD=GET
[15078]ENV: EMBPERL_EP1COMPAT=0
[15078]ENV: REDIRECT_URL=/admin/Calendar/
[15078]ENV: REQUEST_METHOD=GET
[15078]ENV: REDIRECT_SCRIPT_NAME=/admin/Calendar
[15078]ENV: REDIRECT_HTTP_UA_OS=MacOS
[15078]ENV: REDIRECT_UNIQUE_ID=PHwYF38AAAEAADrmRM0
[15078]ENV: HTTP_UA_OS=MacOS
[15078]ENV: REDIRECT_SCRIPT_FILENAME=/usr/local/www/mcsa/admin/Calendar
[15078]ENV: REMOTE_PORT=51140
[15078]ENV: REDIRECT_EMBPERL_OPTIONS=16
[15078]ENV: HTTP_ACCEPT=*/*
[15078]ENV: HTTP_USER_AGENT=Mozilla/4.0 (compatible; MSIE 5.12; Mac_PowerPC)
[15078]ENV:
REDIRECT_PATH=/sw/bin:/sw/sbin:/Users/nazgul/bin:/usr/local/bin:/usr/local/apache/bin:/usr/X11R6/bin:/bin:/usr/bin:/etc:/sbin:/usr/sbin:/Developer/Tools:/usr/X11R6/bin
[15078]ENV: SERVER_NAME=www.masscharterschools.org
[15078]ENV: REDIRECT_SERVER_PROTOCOL=HTTP/1.1
[15078]ENV: MOD_PERL=mod_perl/1.26
[15078]ENV: EMBPERL_FILESMATCH=\.(html|epl)$
[15078]ENV: REDIRECT_HTTP_CONNECTION=Keep-Alive
[15078]ENV: UNIQUE_ID=PHwYF38AAAEAADrmRM0
[15078]ENV: REDIRECT_EMBPERL_FILESMATCH=\.(html|epl)$
[15078]ENV: REDIRECT_REMOTE_ADDR=127.0.0.1
[15078]ENV: REDIRECT_HTTP_EXTENSION=Security/Remote-Passphrase
[15078]ENV:
PATH=/sw/bin:/sw/sbin:/Users/nazgul/bin:/usr/local/bin:/usr/local/apache/bin:/usr/X11R6/bin:/bin:/usr/bin:/etc:/sbin:/usr/sbin:/Developer/Tools:/usr/X11R6/bin
[15078]ENV: HTTP_EXTENSION=Security/Remote-Passphrase
[15078]ENV: REDIRECT_EMBPERL_VIRTLOG=/embperllog.html
[15078]ENV: REDIRECT_DOCUMENT_ROOT=/usr/local/www/mcsa
[15078]ENV: REDIRECT_REQUEST_URI=/admin/Calendar/
[15078]ENV: SERVER_ADDR=127.0.0.1
[15078]ENV: HTTP_UA_CPU=PPC
[15078]ENV: EMBPERL_OBJECT_BASE=AdminTemplate.html
[15078]ENV: REDIRECT_SERVER_SIGNATURE=<ADDRESS>Apache/1.3.23 Server
at www.masscharterschools.org Port 80</ADDRESS>
[15078]ENV: [EMAIL PROTECTED]
[15078]ENV: SERVER_SIGNATURE=<ADDRESS>Apache/1.3.23 Server at
www.masscharterschools.org Port 80</ADDRESS>
[15078]ENV: PATH_TRANSLATED=/usr/local/www/mcsa/data/AdminTemplate.html
[15078]ENV: [EMAIL PROTECTED]
[15078]ENV: SERVER_SOFTWARE=Apache
[15078]ENV: EMBPERL_OBJECT_ADDPATH=/usr/local/www/mcsa/data
[15078]ENV: DOCUMENT_ROOT=/usr/local/www/mcsa
[15078]ENV: REDIRECT_HTTP_HOST=mcsa
[15078]ENV: REDIRECT_REMOTE_PORT=51140
[15078]ENV: REDIRECT_HTTP_ACCEPT=*/*
[15078]ENV: REDIRECT_EMBPERL_OBJECT_ADDPATH=/usr/local/www/mcsa/data
[15078]ENV: REDIRECT_HTTP_USER_AGENT=Mozilla/4.0 (compatible; MSIE
5.12; Mac_PowerPC)
[15078]ENV: REDIRECT_GATEWAY_INTERFACE=CGI-Perl/1.1
[15078]ENV: REDIRECT_EMBPERL_MAILHOST=localhost
[15078]ENV: REDIRECT_QUERY_STRING=
[15078]ENV: REDIRECT_SERVER_NAME=www.masscharterschools.org
[15078]ENV: EMBPERL_MAILHOST=localhost
[15078]ENV: SERVER_PORT=80
[15078]Formdata... length = 0
[15078]Using APACHE for output...
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/data/AdminTemplate.html; expires_in=0
expires_func=no
expires_filename=/usr/local/www/mcsa/data/AdminTemplate.html cache=no
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl;
expires_in=0 expires_func=no expires_filename= cache=no
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl*epcompile:;
expires_in=0 expires_func=no expires_filename= cache=yes
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/data/AdminTemplate.html; expires_in=0
expires_func=no
expires_filename=/usr/local/www/mcsa/data/AdminTemplate.html cache=no
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl;
expires_in=0 expires_func=no expires_filename= cache=no
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl*epcompile:;
expires_in=0 expires_func=no expires_filename= cache=yes
[15078]CACHE: Created new CacheItem
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl*epcompile:*eprun:/;
expires_in=0 expires_func=no expires_filename= cache=no
[15078]CACHE:
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl*epcompile:*eprun:/
expired because dependencies is expired or newer
[15078]CACHE:
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl*epcompile:*eprun:/
get from provider
[15078]CACHE: *file:/usr/local/www/mcsa/data/AdminTemplate.html stat
file /usr/local/www/mcsa/data/AdminTemplate.html mtime=1003781404
size=0
[15078]CACHE: *file:/usr/local/www/mcsa/data/AdminTemplate.html NOT expired
[15078]CACHE:
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl NOT
expired
[15078]CACHE:
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl*epcompile:
NOT expired
[15078]CACHE:
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl*epcompile:
get from provider
[15078]DOM: DomTree 2 depends on DomTree 1
[15078]EVAL< <unknown>
[15078]Checkpoint: ok DomTree=2 1 -> 1 SVs=55147
[15078]Checkpoint: ok DomTree=2 2 -> 2 SVs=55168
[15078]Checkpoint: jump forward DomTree=2 Index=3 Node=28(28) Line=38
-> Index=4 Node=32(32) Line=64 SVs=55169
[15078]Checkpoint: ok DomTree=2 5 -> 5 SVs=55169
[15078]Checkpoint: ok DomTree=2 6 -> 6 SVs=55169
[15078]Checkpoint: ok DomTree=2 7 -> 7 SVs=55169
[15078]Checkpoint: ok DomTree=2 8 -> 8 SVs=55169
[15078]Checkpoint: ok DomTree=2 9 -> 9 SVs=55169
[15078]Checkpoint: ok DomTree=2 10 -> 10 SVs=55169
[15078]Checkpoint: ok DomTree=2 11 -> 11 SVs=55169
[15078]Checkpoint: ok DomTree=2 12 -> 12 SVs=55169
[15078]Checkpoint: ok DomTree=2 13 -> 13 SVs=55169
[15078]Checkpoint: ok DomTree=2 14 -> 14 SVs=55169
[15078]Checkpoint: ok DomTree=2 15 -> 15 SVs=55169
[15078]Checkpoint: ok DomTree=2 16 -> 16 SVs=55169
[15078]Checkpoint: ok DomTree=2 17 -> 17 SVs=55169
[15078]Checkpoint: jump forward DomTree=2 Index=18 Node=93(93)
Line=84 -> Index=19 Node=97(97) Line=85 SVs=55169
[15078]Checkpoint: ok DomTree=2 20 -> 20 SVs=55169
[15078]Checkpoint: ok DomTree=2 21 -> 21 SVs=55170
[15078]Checkpoint: ok DomTree=2 22 -> 22 SVs=55171
[15078]Checkpoint: ok DomTree=2 23 -> 23 SVs=55171
[15078]Checkpoint: ok DomTree=2 24 -> 24 SVs=55171
[15078]Checkpoint: jump backward DomTree=2 Index=25 Node=113
RepeatLevel=1 Line=86 -> Index=16 Node=312 Line=83 SVs=55171
[15078]Checkpoint: ok DomTree=2 17 -> 17 SVs=55171
[15078]Checkpoint: jump forward DomTree=2 Index=18 Node=314(93)
Line=84 -> Index=19 Node=315(97) Line=85 SVs=55171
[15078]Checkpoint: jump forward DomTree=2 Index=20 Node=315(97)
Line=85 -> Index=21 Node=316(105) Line=85 SVs=55171
[15078]Checkpoint: jump forward DomTree=2 Index=22 Node=317(106)
Line=85 -> Index=23 Node=318(111) Line=85 SVs=55172
[15078]Checkpoint: ok DomTree=2 24 -> 24 SVs=55172
[15078]Checkpoint: ok DomTree=2 25 -> 25 SVs=55172
[15078]Checkpoint: ok DomTree=2 26 -> 26 SVs=55172
[15078]Checkpoint: ok DomTree=2 27 -> 27 SVs=55172
[15078]Checkpoint: ok DomTree=2 28 -> 28 SVs=55172
[15078]Checkpoint: ok DomTree=2 29 -> 29 SVs=55172
[15078]Checkpoint: ok DomTree=2 30 -> 30 SVs=55172
[15078]Checkpoint: ok DomTree=2 31 -> 31 SVs=55172
[15078]Checkpoint: ok DomTree=2 32 -> 32 SVs=55172
[15078]Checkpoint: ok DomTree=2 33 -> 33 SVs=55172
[15078]SYNTAX: switch to HTML::Embperl::Syntax::Embperl
[15078]MEM: Alloc 50 Bytes at 0090a1f4 Allocated so far 50 Bytes
[15078]CACHE: Found File for
'/usr/local/www/mcsa/admin/Calendar/index.html' (90bf20) in
'HTML::Embperl::DOC::_2' hash cache-key
'--/usr/local/www/mcsa/admin/Calendar/index.html'
[15078]MEM: Free 50 Bytes at 0090a1f0 Allocated so far 0 Bytes
[15078]REQ: No Safe Eval All Opcode allowed mode = mod_perl (3) EP
2.x recipe = Embperl
[15078]REQ: Package = HTML::Embperl::DOC::_2
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/admin/Calendar/index.html; expires_in=0
expires_func=no
expires_filename=/usr/local/www/mcsa/admin/Calendar/index.html
cache=no
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl;
expires_in=0 expires_func=no expires_filename= cache=no
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl*epcompile:;
expires_in=0 expires_func=no expires_filename= cache=yes
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/admin/Calendar/index.html; expires_in=0
expires_func=no
expires_filename=/usr/local/www/mcsa/admin/Calendar/index.html
cache=no
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl;
expires_in=0 expires_func=no expires_filename= cache=no
[15078]CACHE: Update CacheItem
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl*epcompile:;
expires_in=0 expires_func=no expires_filename= cache=yes
[15078]CACHE: Created new CacheItem
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl*epcompile:*eprun:/;
expires_in=0 expires_func=no expires_filename= cache=no
[15078]CACHE:
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl*epcompile:*eprun:/
expired because dependencies is expired or newer
[15078]CACHE:
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl*epcompile:*eprun:/
get from provider
[15078]CACHE:
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl*epcompile:
get from provider
[15078]CACHE: *file:/usr/local/www/mcsa/admin/Calendar/index.html
stat file /usr/local/www/mcsa/admin/Calendar/index.html
mtime=1003249987 size=0
[15078]CACHE: *file:/usr/local/www/mcsa/admin/Calendar/index.html NOT expired
[15078]CACHE:
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl
NOT expired
[15078]CACHE:
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl
get from provider
[15078]Reading /usr/local/www/mcsa/admin/Calendar/index.html as input
using PerlIO (7153 Bytes)...
[15078]PARSE: Start parsing
/usr/local/www/mcsa/admin/Calendar/index.html DomTree = 3
[15078]PARSE: AddNode: +00 Element parent=0 node=1 type=1 text=att (#71)
[15078]PARSE: AddNode: +00 Element parent=0 node=2 type=11
text=DocumentFraq (#5)
[15078]PARSE: AddNode: +00 Attribut parent=2 node=3 type=2 text=<domtree> (#3)
[15078]PARSE: AddNode: +00 AttributValue parent=3 node=3 type=34
text=<domtree> (#3)
[15078]PARSE: AddNode: +00 Element parent=2 node=4 type=4 text= (#1)
[15078]PARSE: AddNode: +00 Element parent=2 node=5 type=1 text=[- (#10) [-
[15078]PARSE: AddNode: +01 Element parent=5 node=6 type=4 text=sub
title { 'Edit Calendar' } (#205) [-
[15078]PARSE: AddNode: +00 Element parent=2 node=7 type=4 text=
<h4><font face="Times New Roman, Times, serif" size="-1">Edit
Calendar</font></h4>
(#206)
[15078]PARSE: AddNode: +00 Element parent=2 node=8 type=1 text=var (#14) var
[15078]PARSE: AddNode: +01 Attribut parent=8 node=9 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +02 AttributValue parent=9 node=9 type=34
text=*set $Results (#201) var
[15078]PARSE: AddNode: +00 Element parent=2 node=10 type=4 text=
(#77)
[15078]PARSE: AddNode: +00 Element parent=2 node=11 type=1 text=[! (#12) [!
[15078]PARSE: AddNode: +01 Element parent=11 node=12 type=4 text=use
lib "$ENV{DOCUMENT_ROOT}/data";
use SWC::Calendar;
$MCSA::Cal = new SWC::Calendar(dateFormat => '%m/%d/%Y',
timeFormat => '%I:%M %p') if (!$MCSA::Cal);
(#207) [!
[15078]PARSE: AddNode: +00 Element parent=2 node=13 type=4 text=
(#203)
[15078]PARSE: AddNode: +00 Element parent=2 node=14 type=33
text=table (#66) table
[15078]PARSE: AddNode: +01 Attribut parent=14 node=15 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +02 AttributValue parent=15 node=15 type=34
text=width="100%" border="0" cellspacing="2" cellpadding="2" (#208)
[15078]PARSE: AddNode: +01 Element parent=14 node=16 type=4 text=
(#200)
[15078]PARSE: AddNode: +01 Element parent=14 node=17 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=17 node=18 type=4 text=
<td valign="top">
<p><font face="Times New Roman, Times, serif" size="-1">
(#210)
[15078]PARSE: AddNode: +02 Element parent=17 node=19 type=1 text=a (#40) a
[15078]PARSE: AddNode: +03 Attribut parent=19 node=20 type=2 text=href (#41) "
[15078]PARSE: AddNode: +04 AttributValue parent=20 node=20 type=34
text=/calendar/index.html (#167)
[15078]PARSE: AddNode: +02 Element parent=17 node=21 type=4 text=View
Calendar Page</a>
</font></p>
</td>
<td align="right" valign="top" width="180"> <font face="Times New
Roman, Times, serif" size="-1">
(#211)
[15078]PARSE: AddNode: +02 Element parent=17 node=22 type=1 text=[- (#10) [-
[15078]PARSE: AddNode: +03 Element parent=22 node=23 type=4 text=*set
= $MCSA::Cal->setupDB();
$maxrow = 999;
if ($fdat{Add}) {
if (!$fdat{eventname} || !$fdat{startdate}) {
$Results .= "Required fields not defined.\n";
return;
}
$fdat{id} = time() . "$$"; #!! hack
$fdat{stopdate} = $fdat{startdate} if (!$fdat{stopdate});
$set->Add(\%fdat);
$Results .= "Added event \"$fdat{eventname}\"\n";
%fdat = undef;
} elsif ($fdat{New}) {
%fdat = undef;
} elsif ($fdat{Delete}) {
$set->Delete({ id => $fdat{id} });
$Results = "Event \"$fdat{eventname}\" deleted.";
%fdat = undef;
} elsif ($fdat{Update}) {
if ($fdat{id}) {
$fdat{stopdate} = $fdat{startdate} if (!$fdat{stopdate});
$set->Update(\%fdat);
$Results .= "Updated event \"$fdat{eventname}\".\n";
} else {
$Results .= "Unable to update, no event id.\n";
}
} elsif ($fdat{id}) {
$set->Search({'id' => $fdat{id}});
if ($set{id}) {
%fdat = %set;
} else {
$Results .= "ID $fdat{id} not found on search.\n";
}
}
(#212) [-
[15078]PARSE: AddNode: +02 Element parent=17 node=24 type=4 text=
</font>
</td>
(#213)
[15078]PARSE: AddNode: +01 Element parent=14 node=25 type=4 text=
(#200)
[15078]PARSE: AddNode: +01 Element parent=14 node=26 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=26 node=27 type=4 text=
<td>
<h4><b><font color="#990000" size="+1" face="Times New Roman, Times,
serif">*<font size="-1" color="#000000">required
fields </font></font></b></h4>
</td>
<td> </td>
(#215)
[15078]PARSE: AddNode: +01 Element parent=14 node=28 type=4 text=
(#93)
[15078]PARSE: AddNode: +00 Element parent=2 node=29 type=4 text=
<h4><font color="#FF0000"> (#214)
[15078]PARSE: AddNode: +00 Element parent=2 node=30 type=1 text=[+ (#8) [+
[15078]PARSE: AddNode: +01 Element parent=30 node=31 type=4
text=$Results (#216) [+
[15078]PARSE: AddNode: +00 Element parent=2 node=32 type=4 text=</font></h4>
(#217)
[15078]PARSE: AddNode: +00 Element parent=2 node=33 type=1 text=form (#34) form
[15078]PARSE: AddNode: +01 Attribut parent=33 node=34 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +02 AttributValue parent=34 node=34 type=34
text=method=POST (#218)
[15078]PARSE: AddNode: +01 Attribut parent=33 node=35 type=2
text=action (#37) "
[15078]PARSE: AddNode: +02 AttributValue parent=35 node=35 type=34
text=index.html (#219)
[15078]PARSE: AddNode: +00 Element parent=2 node=36 type=4 text=
(#200)
[15078]PARSE: AddNode: +00 Element parent=2 node=37 type=1 text=input
(#42) input
[15078]PARSE: AddNode: +01 Attribut parent=37 node=38 type=2 text=type (#46)
[15078]PARSE: AddNode: +02 AttributValue parent=38 node=38 type=34
text=hidden (#18)
[15078]PARSE: AddNode: +01 Attribut parent=37 node=39 type=2 text=name (#44)
[15078]PARSE: AddNode: +02 AttributValue parent=39 node=39 type=34
text=id (#220)
[15078]PARSE: AddNode: +00 Element parent=2 node=40 type=4 text=
(#222)
[15078]PARSE: AddNode: +00 Element parent=2 node=41 type=33
text=table (#66) table
[15078]PARSE: AddNode: +01 Attribut parent=41 node=42 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +02 AttributValue parent=42 node=42 type=34
text=width="100%" border="0" cellspacing="1" cellpadding="1" (#221)
[15078]PARSE: AddNode: +01 Element parent=41 node=43 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=44 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=44 node=45 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"
color="#990000"><b><font size="+1">*</font></b></font><font
face="Times New Roman, Times, serif" size="-1">Event
Name:</font></h4>
</td>
<td nowrap valign="top">
<h4>
(#224)
[15078]PARSE: AddNode: +02 Element parent=44 node=46 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=46 node=47 type=2 text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=47 node=47 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=46 node=48 type=2 text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=48 node=48 type=34
text=eventname (#226)
[15078]PARSE: AddNode: +03 Attribut parent=46 node=49 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=49 node=49 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=49 node=51 type=34 text="40" (#228)
[15078]PARSE: AddNode: +02 Element parent=44 node=52 type=4 text=
</h4>
</td>
(#229)
[15078]PARSE: AddNode: +01 Element parent=41 node=53 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=54 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=54 node=55 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><b><font
color="#990000" size="+1">*</font></b>Start
Date:</font></h4>
</td>
<td>
(#230)
[15078]PARSE: AddNode: +02 Element parent=54 node=56 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=56 node=57 type=2 text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=57 node=57 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=56 node=58 type=2 text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=58 node=58 type=34
text=startdate (#231)
[15078]PARSE: AddNode: +03 Attribut parent=56 node=59 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=59 node=59 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=59 node=61 type=34 text="12" (#189)
[15078]PARSE: AddNode: +04 Element parent=59 node=62 type=34 text=
maxlength= (#232)
[15078]PARSE: AddNode: +05 Element parent=59 node=63 type=34 text="10" (#233)
[15078]PARSE: AddNode: +02 Element parent=54 node=64 type=4 text=
(mm/dd/yyyy) </td>
(#234)
[15078]PARSE: AddNode: +01 Element parent=41 node=65 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=66 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=66 node=67 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Start
Time:</font></h4>
</td>
<td>
(#235)
[15078]PARSE: AddNode: +02 Element parent=66 node=68 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=68 node=69 type=2 text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=69 node=69 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=68 node=70 type=2 text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=70 node=70 type=34
text=starttime (#236)
[15078]PARSE: AddNode: +03 Attribut parent=68 node=71 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=71 node=71 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=71 node=73 type=34 text="16" (#237)
[15078]PARSE: AddNode: +04 Element parent=71 node=74 type=34 text=
maxlength= (#232)
[15078]PARSE: AddNode: +05 Element parent=71 node=75 type=34 text="14" (#152)
[15078]PARSE: AddNode: +02 Element parent=66 node=76 type=4 text=
(00:00 am or pm)</td>
(#238)
[15078]PARSE: AddNode: +01 Element parent=41 node=77 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=78 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=78 node=79 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Stop Time:</font></h4>
</td>
<td>
(#239)
[15078]PARSE: AddNode: +02 Element parent=78 node=80 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=80 node=81 type=2 text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=81 node=81 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=80 node=82 type=2 text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=82 node=82 type=34
text=stoptime (#240)
[15078]PARSE: AddNode: +03 Attribut parent=80 node=83 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=83 node=83 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=83 node=85 type=34 text="16" (#237)
[15078]PARSE: AddNode: +04 Element parent=83 node=86 type=34 text=
maxlength= (#232)
[15078]PARSE: AddNode: +05 Element parent=83 node=87 type=34 text="14" (#152)
[15078]PARSE: AddNode: +02 Element parent=78 node=88 type=4 text=
(00:00 am or pm) </td>
(#241)
[15078]PARSE: AddNode: +01 Element parent=41 node=89 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=90 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=90 node=91 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Stop Date:</font></h4>
</td>
<td>
(#242)
[15078]PARSE: AddNode: +02 Element parent=90 node=92 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=92 node=93 type=2 text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=93 node=93 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=92 node=94 type=2 text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=94 node=94 type=34
text=stopdate (#243)
[15078]PARSE: AddNode: +03 Attribut parent=92 node=95 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=95 node=95 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=95 node=97 type=34 text="12" (#189)
[15078]PARSE: AddNode: +04 Element parent=95 node=98 type=34 text=
maxlength= (#232)
[15078]PARSE: AddNode: +05 Element parent=95 node=99 type=34 text="10" (#233)
[15078]PARSE: AddNode: +02 Element parent=90 node=100 type=4 text=
(mm/dd/yyyy) </td>
(#234)
[15078]PARSE: AddNode: +01 Element parent=41 node=101 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=102 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=102 node=103 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Address1: </font></h4>
</td>
<td>
(#244)
[15078]PARSE: AddNode: +02 Element parent=102 node=104 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=104 node=105 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=105 node=105 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=104 node=106 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=106 node=106 type=34
text=addr1 (#245)
[15078]PARSE: AddNode: +03 Attribut parent=104 node=107 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=107 node=107 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=107 node=109 type=34 text="40" (#228)
[15078]PARSE: AddNode: +02 Element parent=102 node=110 type=4 text=
</td>
(#246)
[15078]PARSE: AddNode: +01 Element parent=41 node=111 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=112 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=112 node=113 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Address2: </font></h4>
</td>
<td>
(#247)
[15078]PARSE: AddNode: +02 Element parent=112 node=114 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=114 node=115 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=115 node=115 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=114 node=116 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=116 node=116 type=34
text=addr2 (#248)
[15078]PARSE: AddNode: +03 Attribut parent=114 node=117 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=117 node=117 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=117 node=119 type=34 text="40" (#228)
[15078]PARSE: AddNode: +02 Element parent=112 node=120 type=4 text=
</td>
(#246)
[15078]PARSE: AddNode: +01 Element parent=41 node=121 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=122 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=122 node=123 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">City,
State:</font></h4>
</td>
<td>
(#249)
[15078]PARSE: AddNode: +02 Element parent=122 node=124 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=124 node=125 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=125 node=125 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=124 node=126 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=126 node=126 type=34
text=city (#250)
[15078]PARSE: AddNode: +03 Attribut parent=124 node=127 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=127 node=127 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=127 node=129 type=34 text="30" (#251)
[15078]PARSE: AddNode: +02 Element parent=122 node=130 type=4 text=
(#252)
[15078]PARSE: AddNode: +02 Element parent=122 node=131 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=131 node=132 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=132 node=132 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=131 node=133 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=133 node=133 type=34
text=state (#253)
[15078]PARSE: AddNode: +03 Attribut parent=131 node=134 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=134 node=134 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=134 node=136 type=34 text="4" (#134)
[15078]PARSE: AddNode: +04 Element parent=134 node=137 type=34 text=
maxlength= (#232)
[15078]PARSE: AddNode: +05 Element parent=134 node=138 type=34 text="2" (#254)
[15078]PARSE: AddNode: +02 Element parent=122 node=139 type=4 text=
</td>
(#246)
[15078]PARSE: AddNode: +01 Element parent=41 node=140 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=141 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=141 node=142 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font
size="-1">Description:</font></font></font></font></font></h4>
</td>
<td>
(#255)
[15078]PARSE: AddNode: +02 Element parent=141 node=143 type=33
text=textarea (#58) textarea
[15078]PARSE: AddNode: +03 Attribut parent=143 node=144 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=144 node=144 type=34
text=description (#256)
[15078]PARSE: AddNode: +03 Attribut parent=143 node=145 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=145 node=145 type=34
text= cols= (#257)
[15078]PARSE: AddNode: +05 Element parent=145 node=147 type=34 text="30" (#251)
[15078]PARSE: AddNode: +04 Element parent=145 node=148 type=34 text=
rows= (#258)
[15078]PARSE: AddNode: +05 Element parent=145 node=149 type=34 text="4" (#134)
[15078]PARSE: AddNode: +02 Element parent=141 node=150 type=4 text=
</td>
(#246)
[15078]PARSE: AddNode: +01 Element parent=41 node=151 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=152 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=152 node=153 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font size="-1">Contact
Name: </font></font></font></font></font></h4>
</td>
<td>
(#259)
[15078]PARSE: AddNode: +02 Element parent=152 node=154 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=154 node=155 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=155 node=155 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=154 node=156 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=156 node=156 type=34
text=contactname (#260)
[15078]PARSE: AddNode: +03 Attribut parent=154 node=157 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=157 node=157 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=157 node=159 type=34 text="40" (#228)
[15078]PARSE: AddNode: +02 Element parent=152 node=160 type=4 text=
</td>
(#246)
[15078]PARSE: AddNode: +01 Element parent=41 node=161 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=162 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=162 node=163 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font size="-1">Contact
Email: </font></font></font></font></font></h4>
</td>
<td>
(#261)
[15078]PARSE: AddNode: +02 Element parent=162 node=164 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=164 node=165 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=165 node=165 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=164 node=166 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=166 node=166 type=34
text=contactemail (#262)
[15078]PARSE: AddNode: +03 Attribut parent=164 node=167 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=167 node=167 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=167 node=169 type=34 text="40" (#228)
[15078]PARSE: AddNode: +02 Element parent=162 node=170 type=4 text=
</td>
(#246)
[15078]PARSE: AddNode: +01 Element parent=41 node=171 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=172 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=172 node=173 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font size="-1">Contact
Phone: </font></font></font></font></font></h4>
</td>
<td>
(#263)
[15078]PARSE: AddNode: +02 Element parent=172 node=174 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=174 node=175 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=175 node=175 type=34
text=text (#225)
[15078]PARSE: AddNode: +03 Attribut parent=174 node=176 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=176 node=176 type=34
text=contactphone (#264)
[15078]PARSE: AddNode: +03 Attribut parent=174 node=177 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=177 node=177 type=34
text= size= (#227)
[15078]PARSE: AddNode: +05 Element parent=177 node=179 type=34 text="20" (#265)
[15078]PARSE: AddNode: +04 Element parent=177 node=180 type=34 text=
maxlength= (#232)
[15078]PARSE: AddNode: +05 Element parent=177 node=181 type=34 text="20" (#265)
[15078]PARSE: AddNode: +02 Element parent=172 node=182 type=4 text=
(000-000-0000 x000)</td>
(#266)
[15078]PARSE: AddNode: +01 Element parent=41 node=183 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=184 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=184 node=185 type=4 text=
<td align="right">
<h4><font size="-1" face="Times New Roman, Times, serif">Directions:
</font></h4>
</td>
<td>
(#269)
[15078]PARSE: AddNode: +02 Element parent=184 node=186 type=33
text=textarea (#58) textarea
[15078]PARSE: AddNode: +03 Attribut parent=186 node=187 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=187 node=187 type=34
text=directions (#268)
[15078]PARSE: AddNode: +03 Attribut parent=186 node=188 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=188 node=188 type=34
text= cols= (#257)
[15078]PARSE: AddNode: +05 Element parent=188 node=190 type=34 text="30" (#251)
[15078]PARSE: AddNode: +04 Element parent=188 node=191 type=34 text=
rows= (#258)
[15078]PARSE: AddNode: +05 Element parent=188 node=192 type=34 text="4" (#134)
[15078]PARSE: AddNode: +02 Element parent=184 node=193 type=4 text=
</td>
(#246)
[15078]PARSE: AddNode: +01 Element parent=41 node=194 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=195 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=195 node=196 type=4 text=
<td align="right" colspan=2>
(#267)
[15078]PARSE: AddNode: +02 Element parent=195 node=197 type=1 text=if (#27) if
[15078]PARSE: AddNode: +03 Attribut parent=197 node=198 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +04 AttributValue parent=198 node=198 type=34
text=($fdat{id}) (#271) if
[15078]PARSE: AddNode: +02 Element parent=195 node=199 type=4 text=
(#160)
[15078]PARSE: AddNode: +02 Element parent=195 node=200 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=200 node=201 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=201 node=201 type=34
text=submit (#270)
[15078]PARSE: AddNode: +03 Attribut parent=200 node=202 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=202 node=202 type=34
text=Update (#273)
[15078]PARSE: AddNode: +03 Attribut parent=200 node=203 type=2
text=value (#43) "
[15078]PARSE: AddNode: +04 AttributValue parent=203 node=203 type=34
text=Update This Event (#272)
[15078]PARSE: AddNode: +02 Element parent=195 node=204 type=4 text=
(#160)
[15078]PARSE: AddNode: +02 Element parent=195 node=205 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=205 node=206 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=206 node=206 type=34
text=submit (#270)
[15078]PARSE: AddNode: +03 Attribut parent=205 node=207 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=207 node=207 type=34
text=Delete (#275)
[15078]PARSE: AddNode: +03 Attribut parent=205 node=208 type=2
text=value (#43) "
[15078]PARSE: AddNode: +04 AttributValue parent=208 node=208 type=34
text=Delete This Event (#274)
[15078]PARSE: AddNode: +02 Element parent=195 node=209 type=4 text=
(#160)
[15078]PARSE: AddNode: +02 Element parent=195 node=210 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=210 node=211 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=211 node=211 type=34
text=submit (#270)
[15078]PARSE: AddNode: +03 Attribut parent=210 node=212 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=212 node=212 type=34
text=Add (#209)
[15078]PARSE: AddNode: +03 Attribut parent=210 node=213 type=2
text=value (#43) "
[15078]PARSE: AddNode: +04 AttributValue parent=213 node=213 type=34
text=Add As New Event (#276)
[15078]PARSE: AddNode: +02 Element parent=195 node=214 type=4 text=
(#160)
[15078]PARSE: AddNode: +02 Element parent=195 node=215 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=215 node=216 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=216 node=216 type=34
text=submit (#270)
[15078]PARSE: AddNode: +03 Attribut parent=215 node=217 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=217 node=217 type=34
text=New (#277)
[15078]PARSE: AddNode: +03 Attribut parent=215 node=218 type=2
text=value (#43) "
[15078]PARSE: AddNode: +04 AttributValue parent=218 node=218 type=34
text=New Form (#278)
[15078]PARSE: AddNode: +02 Element parent=195 node=219 type=4 text=
(#252)
[15078]PARSE: AddNode: +02 Element parent=195 node=220 type=1
text=else (#15) else
[15078]PARSE: AddNode: +02 Element parent=195 node=221 type=4 text=
(#160)
[15078]PARSE: AddNode: +02 Element parent=195 node=222 type=1
text=input (#42) input
[15078]PARSE: AddNode: +03 Attribut parent=222 node=223 type=2
text=type (#46) "
[15078]PARSE: AddNode: +04 AttributValue parent=223 node=223 type=34
text=submit (#270)
[15078]PARSE: AddNode: +03 Attribut parent=222 node=224 type=2
text=name (#44) "
[15078]PARSE: AddNode: +04 AttributValue parent=224 node=224 type=34
text=Add (#209)
[15078]PARSE: AddNode: +03 Attribut parent=222 node=225 type=2
text=value (#43) "
[15078]PARSE: AddNode: +04 AttributValue parent=225 node=225 type=34
text=Add As New Event (#276)
[15078]PARSE: AddNode: +02 Element parent=195 node=226 type=4 text=
(#252)
[15078]PARSE: AddNode: +02 Element parent=195 node=227 type=1
text=endif (#19) endif
[15078]PARSE: AddNode: +02 Element parent=195 node=228 type=4 text=
</td>
(#246)
[15078]PARSE: AddNode: +01 Element parent=41 node=229 type=4 text=
(#223)
[15078]PARSE: AddNode: +01 Element parent=41 node=230 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=230 node=231 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font
size="-1"></font></font></font></font></font></h4>
</td>
<td> </td>
(#279)
[15078]PARSE: AddNode: +01 Element parent=41 node=232 type=4 text=
(#200)
[15078]PARSE: AddNode: +00 Element parent=2 node=233 type=4 text=
</form>
<p><font size="-6"><hr></font></p>
<b>Events to Edit</b>
(#280)
[15078]PARSE: AddNode: +00 Element parent=2 node=234 type=1 text=[- (#10) [-
[15078]PARSE: AddNode: +01 Element parent=234 node=235 type=4 text=#
forece a reload, or we won't get anything we just added
*set = $MCSA::Cal->setupDB();
*set = $MCSA::Cal->searchCalendarRange('eventname,id,startdate',
{Direction => 'DESC'});
(#281) [-
[15078]PARSE: AddNode: +00 Element parent=2 node=236 type=4 text=
(#77)
[15078]PARSE: AddNode: +00 Element parent=2 node=237 type=33
text=table (#66) table
[15078]PARSE: AddNode: +01 Attribut parent=237 node=238 type=2
text=<noname> (#2) <noname>
[15078]PARSE: AddNode: +02 AttributValue parent=238 node=238 type=34
text=border=0 (#282)
[15078]PARSE: AddNode: +01 Element parent=237 node=239 type=4 text=
(#200)
[15078]PARSE: AddNode: +01 Element parent=237 node=240 type=33 text=tr (#32) tr
[15078]PARSE: AddNode: +02 Element parent=240 node=241 type=4 text=
<td> (#283)
[15078]PARSE: AddNode: +02 Element parent=240 node=242 type=1 text=[+ (#8) [+
[15078]PARSE: AddNode: +03 Element parent=242 node=243 type=4
text=$set[$row]->{eventname} (#284) [+
[15078]PARSE: AddNode: +02 Element parent=240 node=244 type=4
text=</td><td> (#285)
[15078]PARSE: AddNode: +02 Element parent=240 node=245 type=1 text=[+ (#8) [+
[15078]PARSE: AddNode: +03 Element parent=245 node=246 type=4
text=$set[$row]->{startdate} (#286) [+
[15078]PARSE: AddNode: +02 Element parent=240 node=247 type=4 text=</td>
<td> (#287)
[15078]PARSE: AddNode: +02 Element parent=240 node=248 type=1 text=a (#40) a
[15078]PARSE: AddNode: +03 Attribut parent=248 node=249 type=2
text=href (#41) "
[15078]PARSE: AddNode: +04 AttributValue parent=249 node=249 type=34
text=?id= (#288)
[15078]PARSE: AddNode: +04 Element parent=249 node=251 type=1
text=[+url (#39) [+
[15078]PARSE: AddNode: +05 Element parent=251 node=252 type=4
text=$set[$row]->{id} (#289) [+
[15078]PARSE: AddNode: +04 Element parent=249 node=253 type=34
text=&Edit=Edit (#290)
[15078]PARSE: AddNode: +02 Element parent=240 node=254 type=4 text=Edit</a>
(#291)
[15078]PARSE: AddNode: +02 Element parent=240 node=255 type=1 text=a (#40) a
[15078]PARSE: AddNode: +03 Attribut parent=255 node=256 type=2
text=href (#41) "
[15078]PARSE: AddNode: +04 AttributValue parent=256 node=256 type=34
text=?eventname= (#292)
[15078]PARSE: AddNode: +04 Element parent=256 node=258 type=1
text=[+url (#39) [+
[15078]PARSE: AddNode: +05 Element parent=258 node=259 type=4
text=$set[$row]->{eventname} (#284) [+
[15078]PARSE: AddNode: +04 Element parent=256 node=260 type=34 text=&id= (#294)
[15078]PARSE: AddNode: +04 Element parent=256 node=261 type=1
text=[+url (#39) [+
[15078]PARSE: AddNode: +05 Element parent=261 node=262 type=4
text=$set[$row]->{id} (#289) [+
[15078]PARSE: AddNode: +04 Element parent=256 node=263 type=34
text=&Delete=Delete (#295)
[15078]PARSE: AddNode: +02 Element parent=240 node=264 type=4 text=Delete</a>
</td>
(#296)
[15078]PARSE: AddNode: +01 Element parent=237 node=265 type=4 text=
(#77)
[15078]PARSE: AddNode: +00 Element parent=2 node=266 type=4 text=
(#75)
[15078]PARSE: AddNode: +00 Element parent=2 node=267 type=4 text= (#1)
[15078]PERF: Parse Start Time: 0 ms
[15078]PERF: Parse End Time: 30 ms
[15078]PERF: Parse Time: 30 ms
[15078]PERF: DOMSTAT: MemUsage = 81500 Bytes numNodes = 448
numLevelLookup = 6 numLevelLookupItem = 0 numStr = 297 numReplace = 13
[15078]EPCOMP: Start compiling
/usr/local/www/mcsa/admin/Calendar/index.html DomTree = 3
[15078]EPCOMP: #2 L0 -------> parent=0 node=2 type=11
text=DocumentFraq (#5,compile)
[15078]EPCOMP: #2 L0 CompileTimeCode:
use vars ('$_ep_DomTree', '@ISA', '@param') ;
*_ep_rp=\&XML::Embperl::DOM::Node::iReplaceChildWithCDATA;
*_ep_rpurl=\&XML::Embperl::DOM::Node::iReplaceChildWithUrlDATA;
*_ep_cp=\&XML::Embperl::DOM::Tree::iCheckpoint;
*_ep_dcp=\&XML::Embperl::DOM::Tree::iDiscardAfterCheckpoint;
*_ep_opt=\&HTML::Embperl::Cmd::Option;
*_ep_hid=\&HTML::Embperl::Cmd::Hidden;
*_ep_ac=\&XML::Embperl::DOM::Node::iAppendChild;
*_ep_sa=\&XML::Embperl::DOM::Element::iSetAttribut;
[15078]EPCOMP: #2 L0 Code:
# any initialisation could be put here
[15078]EPCOMP: #2 L0 Set Checkpoint pending
[15078]EPCOMP: #4 L0 -------> parent=2 node=4 type=4 text= (#1,compile)
[15078]EPCOMP: #4 L0 Checkpoint
[15078]EPCOMP: #5 L1 -------> parent=2 node=5 type=1 text=[-
(#10,compile) removenode=3
[15078]EPCOMP: #5 L1 Code: $_ep_node=4;{
sub title { 'Edit Calendar' }
;}
[15078]EPCOMP: #5 L1 Set Checkpoint pending
[15078]EPCOMP: #7 L1 -------> parent=2 node=7 type=4 text=<h4><font
face="Times New Roman, Times, serif" size="-1">Edit
Calendar</font></h4>
(#297,-)
[15078]EPCOMP: #7 L1 Checkpoint
[15078]EPCOMP: #8 L5 -------> parent=2 node=8 type=1 text=var
(#14,compile) removenode=3
[15078]EPCOMP: #8 L5 CompileTimeCode: use strict ; use vars
qw{%CLEANUP *set $Results } ; map { $CLEANUP{substr($_,1)} = 1 }
qw{*set $Results } ;
[15078]EPCOMP: #8 L5 Code: use strict ;
[15078]EPCOMP: #11 L6 -------> parent=2 node=11 type=1 text=[!
(#12,compile) removenode=3
[15078]EPCOMP: #11 L6 CompileTimeCode: use lib "$ENV{DOCUMENT_ROOT}/data";
use SWC::Calendar;
$MCSA::Cal = new SWC::Calendar(dateFormat => '%m/%d/%Y',
timeFormat => '%I:%M %p') if (!$MCSA::Cal);
;
[15078]EPCOMP: #14 L14 -------> parent=2 node=14 type=33 text=table
(#66,compile)
[15078]EPCOMP: #14 L14 Code: l3: for (my $row = 0; $row < $maxrow; $row++) {
[15078]EPCOMP: #14 L14 Set Checkpoint pending
[15078]EPCOMP: #16 L14 -------> parent=14 node=16 type=4 text=
(#200,-)
[15078]EPCOMP: #16 L14 Checkpoint
[15078]EPCOMP: #17 L15 -------> parent=14 node=17 type=33 text=tr (#32,compile)
[15078]EPCOMP: #17 L15 Code: l4: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #17 L15 Set Checkpoint pending
[15078]EPCOMP: #18 L15 -------> parent=17 node=18 type=4 text=
<td valign="top">
<p><font face="Times New Roman, Times, serif" size="-1">
(#210,-)
[15078]EPCOMP: #18 L15 Checkpoint
[15078]EPCOMP: #19 L18 -------> parent=17 node=19 type=1 text=a (#40,compile)
[15078]EPCOMP: #21 L18 -------> parent=17 node=21 type=4 text=View
Calendar Page</a>
</font></p>
</td>
<td align="right" valign="top" width="180"> <font face="Times New
Roman, Times, serif" size="-1">
(#211,-)
[15078]EPCOMP: #22 L22 -------> parent=17 node=22 type=1 text=[-
(#10,compile) removenode=3
[15078]EPCOMP: #22 L22 Code: $_ep_node=21;{
*set = $MCSA::Cal->setupDB();
$maxrow = 999;
if ($fdat{Add}) {
if (!$fdat{eventname} || !$fdat{startdate}) {
$Results .= "Required fields not defined.\n";
return;
}
$fdat{id} = time() . "$$"; #!! hack
$fdat{stopdate} = $fdat{startdate} if (!$fdat{stopdate});
$set->Add(\%fdat);
$Results .= "Added event \"$fdat{eventname}\"\n";
%fdat = undef;
} elsif ($fdat{New}) {
%fdat = undef;
} elsif ($fdat{Delete}) {
$set->Delete({ id => $fdat{id} });
$Results = "Event \"$fdat{eventname}\" deleted.";
%fdat = undef;
} elsif ($fdat{Update}) {
if ($fdat{id}) {
$fdat{stopdate} = $fdat{startdate} if (!$fdat{stopdate});
$set->Update(\%fdat);
$Results .= "Updated event \"$fdat{eventname}\".\n";
} else {
$Results .= "Unable to update, no event id.\n";
}
} elsif ($fdat{id}) {
$set->Search({'id' => $fdat{id}});
if ($set{id}) {
%fdat = %set;
} else {
$Results .= "ID $fdat{id} not found on search.\n";
}
}
;}
[15078]EPCOMP: #22 L22 Set Checkpoint pending
[15078]EPCOMP: #24 L57 -------> parent=17 node=24 type=4 text=</font>
</td>
(#206,-)
[15078]EPCOMP: #24 L57 Checkpoint
[15078]EPCOMP: #17 L15 Remove Codeblock
[15078]EPCOMP: #17 L15 Set Checkpoint pending
[15078]EPCOMP: #25 L60 -------> parent=14 node=25 type=4 text=
(#200,-)
[15078]EPCOMP: #25 L60 Checkpoint
[15078]EPCOMP: #26 L61 -------> parent=14 node=26 type=33 text=tr (#32,compile)
[15078]EPCOMP: #26 L61 Code: l7: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #26 L61 Set Checkpoint pending
[15078]EPCOMP: #27 L61 -------> parent=26 node=27 type=4 text=
<td>
<h4><b><font color="#990000" size="+1" face="Times New Roman, Times,
serif">*<font size="-1" color="#000000">required
fields </font></font></b></h4>
</td>
<td> </td>
(#215,-)
[15078]EPCOMP: #27 L61 Checkpoint
[15078]EPCOMP: #26 L61 Remove Codeblock
[15078]EPCOMP: #26 L61 Set Checkpoint pending
[15078]EPCOMP: #28 L67 -------> parent=14 node=28 type=4 text=
(#93,-)
[15078]EPCOMP: #28 L67 Checkpoint
[15078]EPCOMP: #14 L14 Remove Codeblock
[15078]EPCOMP: #14 L14 Set Checkpoint pending
[15078]EPCOMP: #29 L68 -------> parent=2 node=29 type=4 text=
<h4><font color="#FF0000"> (#214,-)
[15078]EPCOMP: #29 L68 Checkpoint
[15078]EPCOMP: #30 L69 -------> parent=2 node=30 type=1 text=[+
(#8,compile) removenode=4
[15078]EPCOMP: #30 L69 Code: _ep_rp(30,scalar($Results ));
[15078]EPCOMP: #32 L69 -------> parent=2 node=32 type=4 text=</font></h4>
(#217,-)
[15078]EPCOMP: #33 L70 -------> parent=2 node=33 type=1 text=form (#34,compile)
[15078]EPCOMP: #36 L70 -------> parent=2 node=36 type=4 text=
(#200,-)
[15078]EPCOMP: #37 L71 -------> parent=2 node=37 type=1 text=input
(#42,compile)
[15078]EPCOMP: #37 L71 Code: $idat{'id'}=$fdat{'id'} ;
_ep_sa($_ep_DomTree,37, 'value', $fdat{'id'} || '') ;
[15078]EPCOMP: #40 L71 -------> parent=2 node=40 type=4 text=
(#222,-)
[15078]EPCOMP: #41 L73 -------> parent=2 node=41 type=33 text=table
(#66,compile)
[15078]EPCOMP: #41 L73 Code: l10: for (my $row = 0; $row < $maxrow; $row++) {
[15078]EPCOMP: #41 L73 Set Checkpoint pending
[15078]EPCOMP: #43 L73 -------> parent=41 node=43 type=4 text=
(#223,-)
[15078]EPCOMP: #43 L73 Checkpoint
[15078]EPCOMP: #44 L74 -------> parent=41 node=44 type=33 text=tr (#32,compile)
[15078]EPCOMP: #44 L74 Code: l11: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #44 L74 Set Checkpoint pending
[15078]EPCOMP: #45 L74 -------> parent=44 node=45 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"
color="#990000"><b><font size="+1">*</font></b></font><font
face="Times New Roman, Times, serif" size="-1">Event
Name:</font></h4>
</td>
<td nowrap valign="top">
<h4>
(#224,-)
[15078]EPCOMP: #45 L74 Checkpoint
[15078]EPCOMP: #46 L81 -------> parent=44 node=46 type=1 text=input
(#42,compile)
[15078]EPCOMP: #50 L81 -------> parent=49 node=50 type=34 text= size= (#227,-)
[15078]EPCOMP: #51 L81 -------> parent=49 node=51 type=34 text="40" (#228,-)
[15078]EPCOMP: #46 L81 Code: $idat{'eventname'}=$fdat{'eventname'} ;
_ep_sa($_ep_DomTree,46, 'value', $fdat{'eventname'} || '') ;
[15078]EPCOMP: #52 L81 -------> parent=44 node=52 type=4 text=
</h4>
</td>
(#229,-)
[15078]EPCOMP: #44 L74 Remove Codeblock
[15078]EPCOMP: #44 L74 Set Checkpoint pending
[15078]EPCOMP: #53 L84 -------> parent=41 node=53 type=4 text=
(#223,-)
[15078]EPCOMP: #53 L84 Checkpoint
[15078]EPCOMP: #54 L85 -------> parent=41 node=54 type=33 text=tr (#32,compile)
[15078]EPCOMP: #54 L85 Code: l13: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #54 L85 Set Checkpoint pending
[15078]EPCOMP: #55 L85 -------> parent=54 node=55 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><b><font
color="#990000" size="+1">*</font></b>Start
Date:</font></h4>
</td>
<td>
(#230,-)
[15078]EPCOMP: #55 L85 Checkpoint
[15078]EPCOMP: #56 L91 -------> parent=54 node=56 type=1 text=input
(#42,compile)
[15078]EPCOMP: #60 L91 -------> parent=59 node=60 type=34 text= size= (#227,-)
[15078]EPCOMP: #61 L91 -------> parent=59 node=61 type=34 text="12" (#189,-)
[15078]EPCOMP: #62 L91 -------> parent=59 node=62 type=34 text=
maxlength= (#232,-)
[15078]EPCOMP: #63 L91 -------> parent=59 node=63 type=34 text="10" (#233,-)
[15078]EPCOMP: #56 L91 Code: $idat{'startdate'}=$fdat{'startdate'} ;
_ep_sa($_ep_DomTree,56, 'value', $fdat{'startdate'} || '') ;
[15078]EPCOMP: #64 L91 -------> parent=54 node=64 type=4 text=
(mm/dd/yyyy) </td>
(#234,-)
[15078]EPCOMP: #54 L85 Remove Codeblock
[15078]EPCOMP: #54 L85 Set Checkpoint pending
[15078]EPCOMP: #65 L93 -------> parent=41 node=65 type=4 text=
(#223,-)
[15078]EPCOMP: #65 L93 Checkpoint
[15078]EPCOMP: #66 L94 -------> parent=41 node=66 type=33 text=tr (#32,compile)
[15078]EPCOMP: #66 L94 Code: l15: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #66 L94 Set Checkpoint pending
[15078]EPCOMP: #67 L94 -------> parent=66 node=67 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Start
Time:</font></h4>
</td>
<td>
(#235,-)
[15078]EPCOMP: #67 L94 Checkpoint
[15078]EPCOMP: #68 L99 -------> parent=66 node=68 type=1 text=input
(#42,compile)
[15078]EPCOMP: #72 L99 -------> parent=71 node=72 type=34 text= size= (#227,-)
[15078]EPCOMP: #73 L99 -------> parent=71 node=73 type=34 text="16" (#237,-)
[15078]EPCOMP: #74 L99 -------> parent=71 node=74 type=34 text=
maxlength= (#232,-)
[15078]EPCOMP: #75 L99 -------> parent=71 node=75 type=34 text="14" (#152,-)
[15078]EPCOMP: #68 L99 Code: $idat{'starttime'}=$fdat{'starttime'} ;
_ep_sa($_ep_DomTree,68, 'value', $fdat{'starttime'} || '') ;
[15078]EPCOMP: #76 L99 -------> parent=66 node=76 type=4 text=
(00:00 am or pm)</td>
(#238,-)
[15078]EPCOMP: #66 L94 Remove Codeblock
[15078]EPCOMP: #66 L94 Set Checkpoint pending
[15078]EPCOMP: #77 L101 -------> parent=41 node=77 type=4 text=
(#223,-)
[15078]EPCOMP: #77 L101 Checkpoint
[15078]EPCOMP: #78 L102 -------> parent=41 node=78 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #78 L102 Code: l17: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #78 L102 Set Checkpoint pending
[15078]EPCOMP: #79 L102 -------> parent=78 node=79 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Stop Time:</font></h4>
</td>
<td>
(#239,-)
[15078]EPCOMP: #79 L102 Checkpoint
[15078]EPCOMP: #80 L107 -------> parent=78 node=80 type=1 text=input
(#42,compile)
[15078]EPCOMP: #84 L107 -------> parent=83 node=84 type=34 text= size= (#227,-)
[15078]EPCOMP: #85 L107 -------> parent=83 node=85 type=34 text="16" (#237,-)
[15078]EPCOMP: #86 L107 -------> parent=83 node=86 type=34 text=
maxlength= (#232,-)
[15078]EPCOMP: #87 L107 -------> parent=83 node=87 type=34 text="14" (#152,-)
[15078]EPCOMP: #80 L107 Code: $idat{'stoptime'}=$fdat{'stoptime'} ;
_ep_sa($_ep_DomTree,80, 'value', $fdat{'stoptime'} || '') ;
[15078]EPCOMP: #88 L107 -------> parent=78 node=88 type=4 text=
(00:00 am or pm) </td>
(#241,-)
[15078]EPCOMP: #78 L102 Remove Codeblock
[15078]EPCOMP: #78 L102 Set Checkpoint pending
[15078]EPCOMP: #89 L109 -------> parent=41 node=89 type=4 text=
(#223,-)
[15078]EPCOMP: #89 L109 Checkpoint
[15078]EPCOMP: #90 L110 -------> parent=41 node=90 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #90 L110 Code: l19: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #90 L110 Set Checkpoint pending
[15078]EPCOMP: #91 L110 -------> parent=90 node=91 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Stop Date:</font></h4>
</td>
<td>
(#242,-)
[15078]EPCOMP: #91 L110 Checkpoint
[15078]EPCOMP: #92 L115 -------> parent=90 node=92 type=1 text=input
(#42,compile)
[15078]EPCOMP: #96 L115 -------> parent=95 node=96 type=34 text= size= (#227,-)
[15078]EPCOMP: #97 L115 -------> parent=95 node=97 type=34 text="12" (#189,-)
[15078]EPCOMP: #98 L115 -------> parent=95 node=98 type=34 text=
maxlength= (#232,-)
[15078]EPCOMP: #99 L115 -------> parent=95 node=99 type=34 text="10" (#233,-)
[15078]EPCOMP: #92 L115 Code: $idat{'stopdate'}=$fdat{'stopdate'} ;
_ep_sa($_ep_DomTree,92, 'value', $fdat{'stopdate'} || '') ;
[15078]EPCOMP: #100 L115 -------> parent=90 node=100 type=4 text=
(mm/dd/yyyy) </td>
(#234,-)
[15078]EPCOMP: #90 L110 Remove Codeblock
[15078]EPCOMP: #90 L110 Set Checkpoint pending
[15078]EPCOMP: #101 L117 -------> parent=41 node=101 type=4 text=
(#223,-)
[15078]EPCOMP: #101 L117 Checkpoint
[15078]EPCOMP: #102 L118 -------> parent=41 node=102 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #102 L118 Code: l21: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #102 L118 Set Checkpoint pending
[15078]EPCOMP: #103 L118 -------> parent=102 node=103 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Address1: </font></h4>
</td>
<td>
(#244,-)
[15078]EPCOMP: #103 L118 Checkpoint
[15078]EPCOMP: #104 L123 -------> parent=102 node=104 type=1
text=input (#42,compile)
[15078]EPCOMP: #108 L123 -------> parent=107 node=108 type=34 text=
size= (#227,-)
[15078]EPCOMP: #109 L123 -------> parent=107 node=109 type=34
text="40" (#228,-)
[15078]EPCOMP: #104 L123 Code: $idat{'addr1'}=$fdat{'addr1'} ;
_ep_sa($_ep_DomTree,104, 'value', $fdat{'addr1'} || '') ;
[15078]EPCOMP: #110 L123 -------> parent=102 node=110 type=4 text=
</td>
(#246,-)
[15078]EPCOMP: #102 L118 Remove Codeblock
[15078]EPCOMP: #102 L118 Set Checkpoint pending
[15078]EPCOMP: #111 L125 -------> parent=41 node=111 type=4 text=
(#223,-)
[15078]EPCOMP: #111 L125 Checkpoint
[15078]EPCOMP: #112 L126 -------> parent=41 node=112 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #112 L126 Code: l23: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #112 L126 Set Checkpoint pending
[15078]EPCOMP: #113 L126 -------> parent=112 node=113 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">Address2: </font></h4>
</td>
<td>
(#247,-)
[15078]EPCOMP: #113 L126 Checkpoint
[15078]EPCOMP: #114 L131 -------> parent=112 node=114 type=1
text=input (#42,compile)
[15078]EPCOMP: #118 L131 -------> parent=117 node=118 type=34 text=
size= (#227,-)
[15078]EPCOMP: #119 L131 -------> parent=117 node=119 type=34
text="40" (#228,-)
[15078]EPCOMP: #114 L131 Code: $idat{'addr2'}=$fdat{'addr2'} ;
_ep_sa($_ep_DomTree,114, 'value', $fdat{'addr2'} || '') ;
[15078]EPCOMP: #120 L131 -------> parent=112 node=120 type=4 text=
</td>
(#246,-)
[15078]EPCOMP: #112 L126 Remove Codeblock
[15078]EPCOMP: #112 L126 Set Checkpoint pending
[15078]EPCOMP: #121 L133 -------> parent=41 node=121 type=4 text=
(#223,-)
[15078]EPCOMP: #121 L133 Checkpoint
[15078]EPCOMP: #122 L134 -------> parent=41 node=122 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #122 L134 Code: l25: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #122 L134 Set Checkpoint pending
[15078]EPCOMP: #123 L134 -------> parent=122 node=123 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1">City,
State:</font></h4>
</td>
<td>
(#249,-)
[15078]EPCOMP: #123 L134 Checkpoint
[15078]EPCOMP: #124 L139 -------> parent=122 node=124 type=1
text=input (#42,compile)
[15078]EPCOMP: #128 L139 -------> parent=127 node=128 type=34 text=
size= (#227,-)
[15078]EPCOMP: #129 L139 -------> parent=127 node=129 type=34
text="30" (#251,-)
[15078]EPCOMP: #124 L139 Code: $idat{'city'}=$fdat{'city'} ;
_ep_sa($_ep_DomTree,124, 'value', $fdat{'city'} || '') ;
[15078]EPCOMP: #130 L139 -------> parent=122 node=130 type=4 text=
(#252,-)
[15078]EPCOMP: #131 L140 -------> parent=122 node=131 type=1
text=input (#42,compile)
[15078]EPCOMP: #135 L140 -------> parent=134 node=135 type=34 text=
size= (#227,-)
[15078]EPCOMP: #136 L140 -------> parent=134 node=136 type=34 text="4" (#134,-)
[15078]EPCOMP: #137 L140 -------> parent=134 node=137 type=34 text=
maxlength= (#232,-)
[15078]EPCOMP: #138 L140 -------> parent=134 node=138 type=34 text="2" (#254,-)
[15078]EPCOMP: #131 L140 Code: $idat{'state'}=$fdat{'state'} ;
_ep_sa($_ep_DomTree,131, 'value', $fdat{'state'} || '') ;
[15078]EPCOMP: #139 L140 -------> parent=122 node=139 type=4 text=
</td>
(#246,-)
[15078]EPCOMP: #122 L134 Remove Codeblock
[15078]EPCOMP: #122 L134 Set Checkpoint pending
[15078]EPCOMP: #140 L142 -------> parent=41 node=140 type=4 text=
(#223,-)
[15078]EPCOMP: #140 L142 Checkpoint
[15078]EPCOMP: #141 L143 -------> parent=41 node=141 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #141 L143 Code: l27: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #141 L143 Set Checkpoint pending
[15078]EPCOMP: #142 L143 -------> parent=141 node=142 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font
size="-1">Description:</font></font></font></font></font></h4>
</td>
<td>
(#255,-)
[15078]EPCOMP: #142 L143 Checkpoint
[15078]EPCOMP: #143 L148 -------> parent=141 node=143 type=33
text=textarea (#58,compile)
[15078]EPCOMP: #146 L148 -------> parent=145 node=146 type=34 text=
cols= (#257,-)
[15078]EPCOMP: #147 L148 -------> parent=145 node=147 type=34
text="30" (#251,-)
[15078]EPCOMP: #148 L148 -------> parent=145 node=148 type=34 text=
rows= (#258,-)
[15078]EPCOMP: #149 L148 -------> parent=145 node=149 type=34 text="4" (#134,-)
[15078]EPCOMP: #143 L148 Code:
$idat{'description'}=$fdat{'description'};_ep_ac($_ep_DomTree,143,
HTML::Embperl::Syntax::ntypText, $fdat{'description'}) ;
[15078]EPCOMP: #150 L148 -------> parent=141 node=150 type=4 text=
</td>
(#246,-)
[15078]EPCOMP: #141 L143 Remove Codeblock
[15078]EPCOMP: #141 L143 Set Checkpoint pending
[15078]EPCOMP: #151 L150 -------> parent=41 node=151 type=4 text=
(#223,-)
[15078]EPCOMP: #151 L150 Checkpoint
[15078]EPCOMP: #152 L151 -------> parent=41 node=152 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #152 L151 Code: l29: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #152 L151 Set Checkpoint pending
[15078]EPCOMP: #153 L151 -------> parent=152 node=153 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font size="-1">Contact
Name: </font></font></font></font></font></h4>
</td>
<td>
(#259,-)
[15078]EPCOMP: #153 L151 Checkpoint
[15078]EPCOMP: #154 L157 -------> parent=152 node=154 type=1
text=input (#42,compile)
[15078]EPCOMP: #158 L157 -------> parent=157 node=158 type=34 text=
size= (#227,-)
[15078]EPCOMP: #159 L157 -------> parent=157 node=159 type=34
text="40" (#228,-)
[15078]EPCOMP: #154 L157 Code:
$idat{'contactname'}=$fdat{'contactname'} ; _ep_sa($_ep_DomTree,154,
'value', $fdat{'contactname'} || '') ;
[15078]EPCOMP: #160 L157 -------> parent=152 node=160 type=4 text=
</td>
(#246,-)
[15078]EPCOMP: #152 L151 Remove Codeblock
[15078]EPCOMP: #152 L151 Set Checkpoint pending
[15078]EPCOMP: #161 L159 -------> parent=41 node=161 type=4 text=
(#223,-)
[15078]EPCOMP: #161 L159 Checkpoint
[15078]EPCOMP: #162 L160 -------> parent=41 node=162 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #162 L160 Code: l31: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #162 L160 Set Checkpoint pending
[15078]EPCOMP: #163 L160 -------> parent=162 node=163 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font size="-1">Contact
Email: </font></font></font></font></font></h4>
</td>
<td>
(#261,-)
[15078]EPCOMP: #163 L160 Checkpoint
[15078]EPCOMP: #164 L166 -------> parent=162 node=164 type=1
text=input (#42,compile)
[15078]EPCOMP: #168 L166 -------> parent=167 node=168 type=34 text=
size= (#227,-)
[15078]EPCOMP: #169 L166 -------> parent=167 node=169 type=34
text="40" (#228,-)
[15078]EPCOMP: #164 L166 Code:
$idat{'contactemail'}=$fdat{'contactemail'} ;
_ep_sa($_ep_DomTree,164, 'value', $fdat{'contactemail'} || '') ;
[15078]EPCOMP: #170 L166 -------> parent=162 node=170 type=4 text=
</td>
(#246,-)
[15078]EPCOMP: #162 L160 Remove Codeblock
[15078]EPCOMP: #162 L160 Set Checkpoint pending
[15078]EPCOMP: #171 L168 -------> parent=41 node=171 type=4 text=
(#223,-)
[15078]EPCOMP: #171 L168 Checkpoint
[15078]EPCOMP: #172 L169 -------> parent=41 node=172 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #172 L169 Code: l33: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #172 L169 Set Checkpoint pending
[15078]EPCOMP: #173 L169 -------> parent=172 node=173 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font size="-1">Contact
Phone: </font></font></font></font></font></h4>
</td>
<td>
(#263,-)
[15078]EPCOMP: #173 L169 Checkpoint
[15078]EPCOMP: #174 L175 -------> parent=172 node=174 type=1
text=input (#42,compile)
[15078]EPCOMP: #178 L175 -------> parent=177 node=178 type=34 text=
size= (#227,-)
[15078]EPCOMP: #179 L175 -------> parent=177 node=179 type=34
text="20" (#265,-)
[15078]EPCOMP: #180 L175 -------> parent=177 node=180 type=34 text=
maxlength= (#232,-)
[15078]EPCOMP: #181 L175 -------> parent=177 node=181 type=34
text="20" (#265,-)
[15078]EPCOMP: #174 L175 Code:
$idat{'contactphone'}=$fdat{'contactphone'} ;
_ep_sa($_ep_DomTree,174, 'value', $fdat{'contactphone'} || '') ;
[15078]EPCOMP: #182 L175 -------> parent=172 node=182 type=4 text=
(000-000-0000 x000)</td>
(#266,-)
[15078]EPCOMP: #172 L169 Remove Codeblock
[15078]EPCOMP: #172 L169 Set Checkpoint pending
[15078]EPCOMP: #183 L177 -------> parent=41 node=183 type=4 text=
(#223,-)
[15078]EPCOMP: #183 L177 Checkpoint
[15078]EPCOMP: #184 L178 -------> parent=41 node=184 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #184 L178 Code: l35: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #184 L178 Set Checkpoint pending
[15078]EPCOMP: #185 L178 -------> parent=184 node=185 type=4 text=
<td align="right">
<h4><font size="-1" face="Times New Roman, Times, serif">Directions:
</font></h4>
</td>
<td>
(#269,-)
[15078]EPCOMP: #185 L178 Checkpoint
[15078]EPCOMP: #186 L183 -------> parent=184 node=186 type=33
text=textarea (#58,compile)
[15078]EPCOMP: #189 L183 -------> parent=188 node=189 type=34 text=
cols= (#257,-)
[15078]EPCOMP: #190 L183 -------> parent=188 node=190 type=34
text="30" (#251,-)
[15078]EPCOMP: #191 L183 -------> parent=188 node=191 type=34 text=
rows= (#258,-)
[15078]EPCOMP: #192 L183 -------> parent=188 node=192 type=34 text="4" (#134,-)
[15078]EPCOMP: #186 L183 Code:
$idat{'directions'}=$fdat{'directions'};_ep_ac($_ep_DomTree,186,
HTML::Embperl::Syntax::ntypText, $fdat{'directions'}) ;
[15078]EPCOMP: #193 L183 -------> parent=184 node=193 type=4 text=
</td>
(#246,-)
[15078]EPCOMP: #184 L178 Remove Codeblock
[15078]EPCOMP: #184 L178 Set Checkpoint pending
[15078]EPCOMP: #194 L185 -------> parent=41 node=194 type=4 text=
(#223,-)
[15078]EPCOMP: #194 L185 Checkpoint
[15078]EPCOMP: #195 L186 -------> parent=41 node=195 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #195 L186 Code: l37: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #195 L186 Set Checkpoint pending
[15078]EPCOMP: #196 L186 -------> parent=195 node=196 type=4 text=
<td align="right" colspan=2>
(#267,-)
[15078]EPCOMP: #196 L186 Checkpoint
[15078]EPCOMP: #197 L188 -------> parent=195 node=197 type=1 text=if
(#27,compile) removenode=10
[15078]EPCOMP: #197 L188 Code: if (($fdat{id}) ) {
[15078]EPCOMP: #197 L188 Set Checkpoint pending
[15078]EPCOMP: #197 L188 Checkpoint
[15078]EPCOMP: #200 L189 -------> parent=195 node=200 type=1
text=input (#42,compile)
[15078]EPCOMP: #200 L189 Code: $idat{'Update'}='Update This Event' ;
[15078]EPCOMP: #204 L189 -------> parent=195 node=204 type=4 text=
(#160,-)
[15078]EPCOMP: #205 L190 -------> parent=195 node=205 type=1
text=input (#42,compile)
[15078]EPCOMP: #205 L190 Code: $idat{'Delete'}='Delete This Event' ;
[15078]EPCOMP: #209 L190 -------> parent=195 node=209 type=4 text=
(#160,-)
[15078]EPCOMP: #210 L191 -------> parent=195 node=210 type=1
text=input (#42,compile)
[15078]EPCOMP: #210 L191 Code: $idat{'Add'}='Add As New Event' ;
[15078]EPCOMP: #214 L191 -------> parent=195 node=214 type=4 text=
(#160,-)
[15078]EPCOMP: #215 L192 -------> parent=195 node=215 type=1
text=input (#42,compile)
[15078]EPCOMP: #215 L192 Code: $idat{'New'}='New Form' ;
[15078]EPCOMP: #219 L192 -------> parent=195 node=219 type=4 text=
(#252,-)
[15078]EPCOMP: #220 L193 -------> parent=195 node=220 type=1
text=else (#15,compile) removenode=10
[15078]EPCOMP: #220 L193 Code: } else {
[15078]EPCOMP: #220 L193 Set Checkpoint pending
[15078]EPCOMP: #220 L193 Checkpoint
[15078]EPCOMP: #222 L194 -------> parent=195 node=222 type=1
text=input (#42,compile)
[15078]EPCOMP: #222 L194 Code: $idat{'Add'}='Add As New Event' ;
[15078]EPCOMP: #226 L194 -------> parent=195 node=226 type=4 text=
(#252,-)
[15078]EPCOMP: #227 L195 -------> parent=195 node=227 type=1
text=endif (#19,compile) removenode=10
[15078]EPCOMP: #227 L195 Code: }
[15078]EPCOMP: #227 L195 Set Checkpoint pending
[15078]EPCOMP: #227 L195 Checkpoint
[15078]EPCOMP: #228 L195 -------> parent=195 node=228 type=4 text=</td>
(#213,-)
[15078]EPCOMP: #195 L186 Remove Codeblock
[15078]EPCOMP: #195 L186 Set Checkpoint pending
[15078]EPCOMP: #229 L197 -------> parent=41 node=229 type=4 text=
(#223,-)
[15078]EPCOMP: #229 L197 Checkpoint
[15078]EPCOMP: #230 L198 -------> parent=41 node=230 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #230 L198 Code: l42: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #230 L198 Set Checkpoint pending
[15078]EPCOMP: #231 L198 -------> parent=230 node=231 type=4 text=
<td align="right">
<h4><font face="Times New Roman, Times, serif" size="-1"><font
face="Times New Roman, Times, serif"><font face="Times New Roman,
Times, serif"><font size="-1"><font
size="-1"></font></font></font></font></font></h4>
</td>
<td> </td>
(#279,-)
[15078]EPCOMP: #231 L198 Checkpoint
[15078]EPCOMP: #230 L198 Remove Codeblock
[15078]EPCOMP: #230 L198 Set Checkpoint pending
[15078]EPCOMP: #232 L203 -------> parent=41 node=232 type=4 text=
(#200,-)
[15078]EPCOMP: #232 L203 Checkpoint
[15078]EPCOMP: #41 L73 Remove Codeblock
[15078]EPCOMP: #41 L73 Set Checkpoint pending
[15078]EPCOMP: #233 L204 -------> parent=2 node=233 type=4 text=
</form>
<p><font size="-6"><hr></font></p>
<b>Events to Edit</b>
(#280,-)
[15078]EPCOMP: #233 L204 Checkpoint
[15078]EPCOMP: #234 L209 -------> parent=2 node=234 type=1 text=[-
(#10,compile) removenode=3
[15078]EPCOMP: #234 L209 Code: $_ep_node=233;{
# forece a reload, or we won't get anything we just added
*set = $MCSA::Cal->setupDB();
*set = $MCSA::Cal->searchCalendarRange('eventname,id,startdate',
{Direction => 'DESC'});
;}
[15078]EPCOMP: #234 L209 Set Checkpoint pending
[15078]EPCOMP: #237 L214 -------> parent=2 node=237 type=33
text=table (#66,compile)
[15078]EPCOMP: #237 L214 Checkpoint
[15078]EPCOMP: #237 L214 Code: l46: for (my $row = 0; $row < $maxrow; $row++) {
[15078]EPCOMP: #237 L214 Set Checkpoint pending
[15078]EPCOMP: #239 L214 -------> parent=237 node=239 type=4 text=
(#200,-)
[15078]EPCOMP: #239 L214 Checkpoint
[15078]EPCOMP: #240 L215 -------> parent=237 node=240 type=33 text=tr
(#32,compile)
[15078]EPCOMP: #240 L215 Code: l47: for (my $col = 0; $col < $maxcol; $col++) {
[15078]EPCOMP: #240 L215 Set Checkpoint pending
[15078]EPCOMP: #241 L215 -------> parent=240 node=241 type=4 text=
<td> (#283,-)
[15078]EPCOMP: #241 L215 Checkpoint
[15078]EPCOMP: #242 L216 -------> parent=240 node=242 type=1 text=[+
(#8,compile) removenode=4
[15078]EPCOMP: #242 L216 Code: if (!defined
(_ep_rp(242,scalar($set[$row]->{eventname} )))) { _ep_dcp (46) ; last
l46 ; }
[15078]EPCOMP: #244 L216 -------> parent=240 node=244 type=4
text=</td><td> (#285,-)
[15078]EPCOMP: #245 L216 -------> parent=240 node=245 type=1 text=[+
(#8,compile) removenode=4
[15078]EPCOMP: #245 L216 Code: if (!defined
(_ep_rp(245,scalar($set[$row]->{startdate} )))) { _ep_dcp (46) ; last
l46 ; }
[15078]EPCOMP: #247 L216 -------> parent=240 node=247 type=4 text=</td>
<td> (#287,-)
[15078]EPCOMP: #248 L217 -------> parent=240 node=248 type=1 text=a
(#40,compile)
[15078]EPCOMP: #250 L217 -------> parent=249 node=250 type=34
text=?id= (#288,-)
[15078]EPCOMP: #251 L217 -------> parent=249 node=251 type=1
text=[+url (#39,compile) removenode=4
[15078]EPCOMP: #251 L217 Code: if (!defined
(_ep_rpurl(251,scalar($val3=do{$set[$row]->{id} ;})))) { _ep_dcp (46)
; last l46 ; }
[15078]EPCOMP: #253 L217 -------> parent=249 node=253 type=34
text=&Edit=Edit (#290,-)
[15078]EPCOMP: #254 L217 -------> parent=240 node=254 type=4 text=Edit</a>
(#291,-)
[15078]EPCOMP: #255 L218 -------> parent=240 node=255 type=1 text=a
(#40,compile)
[15078]EPCOMP: #257 L218 -------> parent=256 node=257 type=34
text=?eventname= (#292,-)
[15078]EPCOMP: #258 L218 -------> parent=256 node=258 type=1
text=[+url (#39,compile) removenode=4
[15078]EPCOMP: #258 L218 Code: if (!defined
(_ep_rpurl(258,scalar($val3=do{$set[$row]->{eventname} ;})))) {
_ep_dcp (46) ; last l46 ; }
[15078]EPCOMP: #260 L218 -------> parent=256 node=260 type=34
text=&id= (#294,-)
[15078]EPCOMP: #261 L218 -------> parent=256 node=261 type=1
text=[+url (#39,compile) removenode=4
[15078]EPCOMP: #261 L218 Code: if (!defined
(_ep_rpurl(261,scalar($val3=do{$set[$row]->{id} ;})))) { _ep_dcp (46)
; last l46 ; }
[15078]EPCOMP: #263 L218 -------> parent=256 node=263 type=34
text=&Delete=Delete (#295,-)
[15078]EPCOMP: #264 L218 -------> parent=240 node=264 type=4 text=Delete</a>
</td>
(#296,-)
[15078]EPCOMP: #240 L215 Remove Codeblock
[15078]EPCOMP: #240 L215 Set Checkpoint pending
[15078]EPCOMP: #265 L220 -------> parent=237 node=265 type=4 text=
(#77,-)
[15078]EPCOMP: #265 L220 Checkpoint
[15078]EPCOMP: #237 L214 CodeEnd: }
[15078]EPCOMP: #237 L214 Set Checkpoint pending
[15078]EPCOMP: #266 L221 -------> parent=2 node=266 type=4 text=
(#75,-)
[15078]EPCOMP: #266 L221 Checkpoint
[15078]EPCOMP: #267 L0 -------> parent=2 node=267 type=4 text= (#1,compile)
[15078]EPCOMP: #2 L0 CodeEnd: # Include here any cleanup code
[15078]EPCOMP: #2 L0 Set Checkpoint pending
[15078]EPCOMP: #-1 Checkpoint
[15078]DEF: Line 1:
# any initialisation could be put here
_ep_cp(1) ;
#line 1 "/usr/local/www/mcsa/admin/Calendar/index.html"
$_ep_node=4;{
sub title { 'Edit Calendar' }
;}
_ep_cp(2) ;
#line 5 "/usr/local/www/mcsa/admin/Calendar/index.html"
use strict ;
#line 14 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l3: for (my $row = 0; $row < $maxrow; $row++) {
_ep_cp(3) ;
#line 15 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l4: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(4) ;
#line 22 "/usr/local/www/mcsa/admin/Calendar/index.html"
$_ep_node=21;{
*set = $MCSA::Cal->setupDB();
$maxrow = 999;
if ($fdat{Add}) {
if (!$fdat{eventname} || !$fdat{startdate}) {
$Results .= "Required fields not defined.\n";
return;
}
$fdat{id} = time() . "$$"; #!! hack
$fdat{stopdate} = $fdat{startdate} if (!$fdat{stopdate});
$set->Add(\%fdat);
$Results .= "Added event \"$fdat{eventname}\"\n";
%fdat = undef;
} elsif ($fdat{New}) {
%fdat = undef;
} elsif ($fdat{Delete}) {
$set->Delete({ id => $fdat{id} });
$Results = "Event \"$fdat{eventname}\" deleted.";
%fdat = undef;
} elsif ($fdat{Update}) {
if ($fdat{id}) {
$fdat{stopdate} = $fdat{startdate} if (!$fdat{stopdate});
$set->Update(\%fdat);
$Results .= "Updated event \"$fdat{eventname}\".\n";
} else {
$Results .= "Unable to update, no event id.\n";
}
} elsif ($fdat{id}) {
$set->Search({'id' => $fdat{id}});
if ($set{id}) {
%fdat = %set;
} else {
$Results .= "ID $fdat{id} not found on search.\n";
}
}
;}
_ep_cp(5) ;
_ep_cp(6) ;
#line 61 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l7: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(7) ;
_ep_cp(8) ;
_ep_cp(9) ;
#line 69 "/usr/local/www/mcsa/admin/Calendar/index.html"
_ep_rp(30,scalar($Results ));
#line 71 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'id'}=$fdat{'id'} ; _ep_sa($_ep_DomTree,37, 'value', $fdat{'id'} || '') ;
#line 73 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l10: for (my $row = 0; $row < $maxrow; $row++) {
_ep_cp(10) ;
#line 74 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l11: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(11) ;
#line 81 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'eventname'}=$fdat{'eventname'} ; _ep_sa($_ep_DomTree,46,
'value', $fdat{'eventname'} || '') ;
_ep_cp(12) ;
#line 85 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l13: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(13) ;
#line 91 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'startdate'}=$fdat{'startdate'} ; _ep_sa($_ep_DomTree,56,
'value', $fdat{'startdate'} || '') ;
_ep_cp(14) ;
#line 94 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l15: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(15) ;
#line 99 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'starttime'}=$fdat{'starttime'} ; _ep_sa($_ep_DomTree,68,
'value', $fdat{'starttime'} || '') ;
_ep_cp(16) ;
#line 102 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l17: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(17) ;
#line 107 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'stoptime'}=$fdat{'stoptime'} ; _ep_sa($_ep_DomTree,80,
'value', $fdat{'stoptime'} || '') ;
_ep_cp(18) ;
#line 110 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l19: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(19) ;
#line 115 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'stopdate'}=$fdat{'stopdate'} ; _ep_sa($_ep_DomTree,92,
'value', $fdat{'stopdate'} || '') ;
_ep_cp(20) ;
#line 118 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l21: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(21) ;
#line 123 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'addr1'}=$fdat{'addr1'} ; _ep_sa($_ep_DomTree,104, 'value',
$fdat{'addr1'} || '') ;
_ep_cp(22) ;
#line 126 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l23: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(23) ;
#line 131 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'addr2'}=$fdat{'addr2'} ; _ep_sa($_ep_DomTree,114, 'value',
$fdat{'addr2'} || '') ;
_ep_cp(24) ;
#line 134 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l25: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(25) ;
#line 139 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'city'}=$fdat{'city'} ; _ep_sa($_ep_DomTree,124, 'value',
$fdat{'city'} || '') ;
#line 140 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'state'}=$fdat{'state'} ; _ep_sa($_ep_DomTree,131, 'value',
$fdat{'state'} || '') ;
_ep_cp(26) ;
#line 143 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l27: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(27) ;
#line 148 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'description'}=$fdat{'description'};_ep_ac($_ep_DomTree,143,
HTML::Embperl::Syntax::ntypText, $fdat{'description'}) ;
_ep_cp(28) ;
#line 151 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l29: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(29) ;
#line 157 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'contactname'}=$fdat{'contactname'} ; _ep_sa($_ep_DomTree,154,
'value', $fdat{'contactname'} || '') ;
_ep_cp(30) ;
#line 160 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l31: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(31) ;
#line 166 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'contactemail'}=$fdat{'contactemail'} ;
_ep_sa($_ep_DomTree,164, 'value', $fdat{'contactemail'} || '') ;
_ep_cp(32) ;
#line 169 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l33: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(33) ;
#line 175 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'contactphone'}=$fdat{'contactphone'} ;
_ep_sa($_ep_DomTree,174, 'value', $fdat{'contactphone'} || '') ;
_ep_cp(34) ;
#line 178 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l35: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(35) ;
#line 183 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'directions'}=$fdat{'directions'};_ep_ac($_ep_DomTree,186,
HTML::Embperl::Syntax::ntypText, $fdat{'directions'}) ;
_ep_cp(36) ;
#line 186 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l37: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(37) ;
#line 188 "/usr/local/www/mcsa/admin/Calendar/index.html"
if (($fdat{id}) ) {
_ep_cp(38) ;
#line 189 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'Update'}='Update This Event' ;
#line 190 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'Delete'}='Delete This Event' ;
#line 191 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'Add'}='Add As New Event' ;
#line 192 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'New'}='New Form' ;
#line 193 "/usr/local/www/mcsa/admin/Calendar/index.html"
} else {
_ep_cp(39) ;
#line 194 "/usr/local/www/mcsa/admin/Calendar/index.html"
$idat{'Add'}='Add As New Event' ;
#line 195 "/usr/local/www/mcsa/admin/Calendar/index.html"
}
_ep_cp(40) ;
_ep_cp(41) ;
#line 198 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l42: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(42) ;
_ep_cp(43) ;
_ep_cp(44) ;
#line 209 "/usr/local/www/mcsa/admin/Calendar/index.html"
$_ep_node=233;{
# forece a reload, or we won't get anything we just added
*set = $MCSA::Cal->setupDB();
*set = $MCSA::Cal->searchCalendarRange('eventname,id,startdate',
{Direction => 'DESC'});
;}
_ep_cp(45) ;
#line 214 "/usr/local/www/mcsa/admin/Calendar/index.html"
l46: for (my $row = 0; $row < $maxrow; $row++) {
_ep_cp(46) ;
#line 215 "/usr/local/www/mcsa/admin/Calendar/index.html"
#l47: for (my $col = 0; $col < $maxcol; $col++) {
_ep_cp(47) ;
#line 216 "/usr/local/www/mcsa/admin/Calendar/index.html"
if (!defined (_ep_rp(242,scalar($set[$row]->{eventname} )))) {
_ep_dcp (46) ; last l46 ; }
if (!defined (_ep_rp(245,scalar($set[$row]->{startdate} )))) {
_ep_dcp (46) ; last l46 ; }
#line 217 "/usr/local/www/mcsa/admin/Calendar/index.html"
if (!defined (_ep_rpurl(251,scalar($val3=do{$set[$row]->{id} ;})))) {
_ep_dcp (46) ; last l46 ; }
#line 218 "/usr/local/www/mcsa/admin/Calendar/index.html"
if (!defined (_ep_rpurl(258,scalar($val3=do{$set[$row]->{eventname}
;})))) { _ep_dcp (46) ; last l46 ; }
if (!defined (_ep_rpurl(261,scalar($val3=do{$set[$row]->{id} ;})))) {
_ep_dcp (46) ; last l46 ; }
_ep_cp(48) ;
}
_ep_cp(49) ;
# Include here any cleanup code
_ep_cp(50) ;
[15078]SVs: 55585
[15078]ERR: 24: Error in Perl code: Global symbol "$val3" requires
explicit package name at
/usr/local/www/mcsa/admin/Calendar/index.html line 217.
Global symbol "$val3" requires explicit package name at
/usr/local/www/mcsa/admin/Calendar/index.html line 218.
Global symbol "$val3" requires explicit package name at
/usr/local/www/mcsa/admin/Calendar/index.html line 219.
[15078]Delete: DomTree = 3 SVs=55593
[15078]PERF: Compile Start Time: 30 ms
[15078]PERF: Compile End Time: 50 ms
[15078]PERF: After Compile Exec End Time: 50 ms
[15078]PERF: Perl Compile End Time: 60 ms
[15078]PERF: Compile Time: 30 ms
[15078]PERF: DOMSTAT: MemUsage = 77380 Bytes numNodes = 249
numLevelLookup = 6 numLevelLookupItem = 0 numStr = 205 numReplace = 16
[15078]ERR: 24: index.html(1): Error in Perl code:
[15078]CACHE: Free content for
*file:/usr/local/www/mcsa/admin/Calendar/index.html*epparse:Embperl
[15078]CACHE: Free content for
*file:/usr/local/www/mcsa/admin/Calendar/index.html
[15078]PERF: input = /usr/local/www/mcsa/admin/Calendar/index.html
[15078]PERF: Time: 60 ms Evals: 0 No Evals to cache
[15078]Sub-Request finished. Tue Feb 26 17:19:52 2002
. Entry-SVs: 55419 -OBJs: 30 Exit-SVs: 55437 -OBJs: 30
[15078]PERF: DOMSTAT: MemUsage = 77380 Bytes numNodes = 249
numLevelLookup = 6 numLevelLookupItem = 0 numStr = 205 numReplace = 16
[15078]Checkpoint: ok DomTree=2 34 -> 34 SVs=55434
[15078]Checkpoint: ok DomTree=2 35 -> 35 SVs=55434
[15078]Checkpoint: ok DomTree=2 36 -> 36 SVs=55434
[15078]Checkpoint: ok DomTree=2 37 -> 37 SVs=55434
[15078]Checkpoint: ok DomTree=2 38 -> 38 SVs=55434
[15078]Checkpoint: ok DomTree=2 39 -> 39 SVs=55434
[15078]Checkpoint: ok DomTree=2 40 -> 40 SVs=55434
[15078]Checkpoint: ok DomTree=2 41 -> 41 SVs=55434
[15078]Checkpoint: ok DomTree=2 42 -> 42 SVs=55434
[15078]Checkpoint: ok DomTree=2 43 -> 43 SVs=55434
[15078]Checkpoint: ok DomTree=2 44 -> 44 SVs=55434
[15078]Checkpoint: ok DomTree=2 45 -> 45 SVs=55434
[15078]Checkpoint: ok DomTree=2 46 -> 46 SVs=55434
[15078]Checkpoint: ok DomTree=2 47 -> 47 SVs=55434
[15078]Checkpoint: ok DomTree=2 48 -> 48 SVs=55434
[15078]Checkpoint: ok DomTree=2 49 -> 49 SVs=55434
[15078]Checkpoint: ok DomTree=2 50 -> 50 SVs=55434
[15078]Checkpoint: ok DomTree=2 51 -> 51 SVs=55434
[15078]Checkpoint: ok DomTree=2 52 -> 52 SVs=55434
[15078]Checkpoint: jump forward DomTree=2 Index=53 Node=319(298)
Line=158 -> Index=54 Node=320(309) Line=163 SVs=55434
[15078]Checkpoint: ok DomTree=2 55 -> 55 SVs=55434
[15078]SVs: 55435
[15078]EVAL> <undefined>
[15078]PERF: Run Start Time: 10 ms
[15078]PERF: Run End Time: 80 ms
[15078]PERF: Run Time: 70 ms
[15078]PERF: DOMSTAT: MemUsage = 77380 Bytes numNodes = 251
numLevelLookup = 8 numLevelLookupItem = 0 numStr = 205 numReplace = 16
[15078]MEM: Alloc 140 Bytes at 0090a23c Allocated so far 140 Bytes
[15078]MEM: Alloc 48 Bytes at 0090a2cc Allocated so far 188 Bytes
[15078]MEM: Alloc 122 Bytes at 0090a304 Allocated so far 310 Bytes
[15078]MEM: Alloc 210 Bytes at 0090a384 Allocated so far 520 Bytes
[15078]MEM: Alloc 59 Bytes at 0090a45c Allocated so far 579 Bytes
[15078]MEM: Alloc 68 Bytes at 0090a49c Allocated so far 647 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a4e4 Allocated so far 669 Bytes
[15078]MEM: Alloc 21 Bytes at 0090a504 Allocated so far 690 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a524 Allocated so far 712 Bytes
[15078]MEM: Alloc 107 Bytes at 0090a544 Allocated so far 819 Bytes
[15078]MEM: Alloc 19 Bytes at 0090a5b4 Allocated so far 838 Bytes
[15078]MEM: Alloc 17 Bytes at 0090a5cc Allocated so far 855 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a5e4 Allocated so far 877 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a604 Allocated so far 899 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a624 Allocated so far 921 Bytes
[15078]MEM: Alloc 36 Bytes at 0090a644 Allocated so far 957 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a66c Allocated so far 979 Bytes
[15078]MEM: Alloc 21 Bytes at 0090a68c Allocated so far 1000 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a6ac Allocated so far 1022 Bytes
[15078]MEM: Alloc 107 Bytes at 0090a6cc Allocated so far 1129 Bytes
[15078]MEM: Alloc 19 Bytes at 0090a73c Allocated so far 1148 Bytes
[15078]MEM: Alloc 17 Bytes at 0090a754 Allocated so far 1165 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a76c Allocated so far 1187 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a78c Allocated so far 1209 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a7ac Allocated so far 1231 Bytes
[15078]MEM: Alloc 36 Bytes at 0090a7cc Allocated so far 1267 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a7f4 Allocated so far 1289 Bytes
[15078]MEM: Alloc 21 Bytes at 0090a814 Allocated so far 1310 Bytes
[15078]MEM: Alloc 22 Bytes at 0090a834 Allocated so far 1332 Bytes
[15078]MEM: Alloc 106 Bytes at 0090a854 Allocated so far 1438 Bytes
[15078]MEM: Alloc 21 Bytes at 0090a8c4 Allocated so far 1459 Bytes
[15078]MEM: Alloc 59 Bytes at 0090a8e4 Allocated so far 1518 Bytes
[15078]MEM: Alloc 68 Bytes at 0090a924 Allocated so far 1586 Bytes
[15078]MEM: Alloc 21 Bytes at 0090a96c Allocated so far 1607 Bytes
[15078]MEM: Alloc 74 Bytes at 0090a98c Allocated so far 1681 Bytes
[15078]MEM: Alloc 34 Bytes at 0090a9dc Allocated so far 1715 Bytes
[15078]SES: Received Cookie ID: New Cookie ID: User data is NOT modified
[15078]HDR: 3
[15078]HDR: Connection=close
[15078]HDR: Transfer-Encoding=chunked
[15078]HDR: Content-Type=text/html
[15078]MEM: Free 140 Bytes at 0090a238 Allocated so far 1575 Bytes
[15078]MEM: Free 48 Bytes at 0090a2c8 Allocated so far 1527 Bytes
[15078]MEM: Free 122 Bytes at 0090a300 Allocated so far 1405 Bytes
[15078]MEM: Free 210 Bytes at 0090a380 Allocated so far 1195 Bytes
[15078]MEM: Free 59 Bytes at 0090a458 Allocated so far 1136 Bytes
[15078]MEM: Free 68 Bytes at 0090a498 Allocated so far 1068 Bytes
[15078]MEM: Free 22 Bytes at 0090a4e0 Allocated so far 1046 Bytes
[15078]MEM: Free 21 Bytes at 0090a500 Allocated so far 1025 Bytes
[15078]MEM: Free 22 Bytes at 0090a520 Allocated so far 1003 Bytes
[15078]MEM: Free 107 Bytes at 0090a540 Allocated so far 896 Bytes
[15078]MEM: Free 19 Bytes at 0090a5b0 Allocated so far 877 Bytes
[15078]MEM: Free 17 Bytes at 0090a5c8 Allocated so far 860 Bytes
[15078]MEM: Free 22 Bytes at 0090a5e0 Allocated so far 838 Bytes
[15078]MEM: Free 22 Bytes at 0090a600 Allocated so far 816 Bytes
[15078]MEM: Free 22 Bytes at 0090a620 Allocated so far 794 Bytes
[15078]MEM: Free 36 Bytes at 0090a640 Allocated so far 758 Bytes
[15078]MEM: Free 22 Bytes at 0090a668 Allocated so far 736 Bytes
[15078]MEM: Free 21 Bytes at 0090a688 Allocated so far 715 Bytes
[15078]MEM: Free 22 Bytes at 0090a6a8 Allocated so far 693 Bytes
[15078]MEM: Free 107 Bytes at 0090a6c8 Allocated so far 586 Bytes
[15078]MEM: Free 19 Bytes at 0090a738 Allocated so far 567 Bytes
[15078]MEM: Free 17 Bytes at 0090a750 Allocated so far 550 Bytes
[15078]MEM: Free 22 Bytes at 0090a768 Allocated so far 528 Bytes
[15078]MEM: Free 22 Bytes at 0090a788 Allocated so far 506 Bytes
[15078]MEM: Free 22 Bytes at 0090a7a8 Allocated so far 484 Bytes
[15078]MEM: Free 36 Bytes at 0090a7c8 Allocated so far 448 Bytes
[15078]MEM: Free 22 Bytes at 0090a7f0 Allocated so far 426 Bytes
[15078]MEM: Free 21 Bytes at 0090a810 Allocated so far 405 Bytes
[15078]MEM: Free 22 Bytes at 0090a830 Allocated so far 383 Bytes
[15078]MEM: Free 106 Bytes at 0090a850 Allocated so far 277 Bytes
[15078]MEM: Free 21 Bytes at 0090a8c0 Allocated so far 256 Bytes
[15078]MEM: Free 59 Bytes at 0090a8e0 Allocated so far 197 Bytes
[15078]MEM: Free 68 Bytes at 0090a920 Allocated so far 129 Bytes
[15078]MEM: Free 21 Bytes at 0090a968 Allocated so far 108 Bytes
[15078]MEM: Free 74 Bytes at 0090a988 Allocated so far 34 Bytes
[15078]MEM: Free 34 Bytes at 0090a9d8 Allocated so far 0 Bytes
[15078]CACHE: Free content for
*file:/usr/local/www/mcsa/data/AdminTemplate.html*epparse:Embperl*epcompile:*eprun:/
[15078]Delete: DomTree = 2 SVs=55434
[15078]PERF: input = /usr/local/www/mcsa/data/AdminTemplate.html
[15078]PERF: Time: 90 ms Evals: 0 No Evals to cache
[15078]Request finished. Tue Feb 26 17:19:52 2002
--
Kee Hinckley - Somewhere.Com, LLC
http://consulting.somewhere.com/
[EMAIL PROTECTED]
I'm not sure which upsets me more: that people are so unwilling to accept
responsibility for their own actions, or that they are so eager to regulate
everyone else's.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
