You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl@perl.apache.org by Kee Hinckley <na...@somewhere.com> on 2002/02/13 20:13:18 UTC
Embperl 2.0 bug - undefined "$val3"
I got the error:
[Wed Feb 13 14:05:13 2002] [error] [20649]ERR: 24: Error in Perl
code: Global symbol "$val3" requires explicit package name at
/usr/local/www/meaimh/admin/calendar.html line 215.
Global symbol "$val3" requires explicit package name at
/usr/local/www/meaimh/admin/calendar.html line 216.
The lines in question were from the following:
[-
# forece a reload, or we won't get anything we just added
*set = $Norwood::Cal->setupDB();
*set =
$Norwood::Cal->searchCalendarRange('eventname,id,startdate',
{Direction => 'DESC'});
-]
<table border=0>
<tr>
<td>[+ $set[$row]->{eventname} +]</td><td>[+
$set[$row]->{startdate} +]</td>
<td><a href="?id=[+ $set[$row]->{id} +]&Edit=Edit">Edit</a>
<a href="?id=[+ $set[$row]->{id} +]&Delete=Delete">Delete</a>
</td>
</tr>
</table>
The two references to $set[$row]->{id} were triggering the error
(lines 215 and 216). Changing the code to use an explicit variable
rather than $row made the problem go away.
Unfortunately I'm in a big rush right now, or I'd spend more time
debugging--but hopefully this is helpful
--
Kee Hinckley - Somewhere.Com, LLC
http://consulting.somewhere.com/
nazgul@somewhere.com
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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
Re: Embperl 2.0 bug - undefined "$val3"
Posted by Kee Hinckley <na...@somewhere.com>.
Apologies for sending that dump to the entire list. I didn't realize
it was cc'd. Fortunately the *other* dump I sent bounced for being
too big!
--
Kee Hinckley - Somewhere.Com, LLC
http://consulting.somewhere.com/
nazgul@somewhere.com
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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
Re: Embperl 2.0 bug - undefined "$val3"
Posted by Gerald Richter <ri...@ecos.de>.
>The rush is over, I'm sitting by the pool in Cancún, and here's the log.
Oops, $val3 is something that is left over from debugging some table
handling code, that had forgotten to remove.
Go to the file Embperl/Syntax/EmbperlBlocks.pm, search for $val3, you should
see a line which contains:
.... _ep_rpurl(%$x%,scalar($val3=do{%#~0:$row%;}))) ....
remove the $val3 so it look like
.... _ep_rpurl(%$x%,scalar(do{%#~0:$row%;}))) ....
and this bug should go away
Gerald
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: richter@ecos.de Voice: +49 6133 925131
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
Re: Embperl 2.0 bug - undefined "$val3"
Posted by Kee Hinckley <na...@somewhere.com>.
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: REDIRECT_EMBPERL_MAILFROM=webmaster@somewhere.com
[15078]ENV: HTTP_IF_MODIFIED_SINCE=Tue, 26 Feb 2002 23:17:38 GMT
[15078]ENV: EMBPERL_MAILFROM=webmaster@somewhere.com
[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: REDIRECT_SERVER_ADMIN=webmaster@masscharterschools.org
[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: SERVER_ADMIN=webmaster@masscharterschools.org
[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/
nazgul@somewhere.com
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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
Re: Embperl 2.0 bug - undefined "$val3"
Posted by Gerald Richter <ri...@ecos.de>.
> I got the error:
> [Wed Feb 13 14:05:13 2002] [error] [20649]ERR: 24: Error in Perl
> code: Global symbol "$val3" requires explicit package name at
> /usr/local/www/meaimh/admin/calendar.html line 215.
> Global symbol "$val3" requires explicit package name at
> /usr/local/www/meaimh/admin/calendar.html line 216.
>...
>
> The two references to $set[$row]->{id} were triggering the error
> (lines 215 and 216). Changing the code to use an explicit variable
> rather than $row made the problem go away.
>
Mmmh, no idea what's going wrong here...
> Unfortunately I'm in a big rush right now, or I'd spend more time
> debugging--but hopefully this is helpful
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)
Gerald
-------------------------------------------------------------
Gerald Richter ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting
Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
E-Mail: richter@ecos.de Voice: +49 6133 925131
WWW: http://www.ecos.de Fax: +49 6133 925152
-------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org