daviddelikat

<a name="id[% assetId %]" id="id[% assetId%]"></a>
[% IF session_var_adminOn %]
    <p>[% controls %]</p>
[% END %]
[% elements = item_loop.0.description.split( ';' );
   aqiReadingDateTime = elements.0.trim;
   aqiParam = elements.1;
   aqConc = elements.2;
   aqiAQI = elements.3.trim;
   aqiDescription = elements.4.trim;

daviddelikat

diff --git a/lib/WebGUI/AssetLineage.pm b/lib/WebGUI/AssetLineage.pm
index edbc434..857d92e 100644
--- a/lib/WebGUI/AssetLineage.pm
+++ b/lib/WebGUI/AssetLineage.pm
@@ -505,16 +505,28 @@ it returns an iterator.  Calling the iterator will return instantiated assets,
 or undef when there are no more assets available.  The iterator is just a sub
 ref, call like $asset = $iterator->()
 
+=head3 special parameter
+

daviddelikat

diff --git a/lib/WebGUI/Session/Url.pm b/lib/WebGUI/Session/Url.pm
index 599d0e8..272d283 100644
--- a/lib/WebGUI/Session/Url.pm
+++ b/lib/WebGUI/Session/Url.pm
@@ -22,6 +22,7 @@ use Scalar::Util qw( weaken );
 use WebGUI::International;
 use WebGUI::Utility;
 use Encode;
+use WebGUI::Text::Utf8;
 

daviddelikat

pidlockfile=/tmp/networktest.pid

if [ -f $pidlockfile ]
then
    pid=$(cat $pidlockfile)
    if kill -s 0 $pid ; then exit ; fi 2> /dev/null
    rm $pidlockfile
fi

echo $$ > $pidlockfile

daviddelikat

Keybase proof

I hereby claim:

• I am daviddelikat on github.
• I am daviddelikat (https://keybase.io/daviddelikat) on keybase.
• I have a public key whose fingerprint is CFDB F00C 2572 9286 B8C0 8662 2628 0E40 FEBF EFEF

To claim this, I am signing this object:

daviddelikat

[webgui@postcms1 data]$ tar -xzf /admin/wre/wre-0.9.4-centos-5-ia32.tar.gz 
tar: wre/prereqs/lib/terminfo: Cannot open: File exists
tar: Error exit delayed from previous errors
[webgui@postcms1 data]$ rm -rf wre/prereqs/lib/terminfo

the terminfo directory is being replaced by a soft link so the tar command crashes when it tries
to create it.

daviddelikat

--- EventManagementSystem.pm.sub	2009-10-08 06:26:03.000000000 -0500
+++ EventManagementSystem.pm.sched	2009-10-08 06:30:39.000000000 -0500
@@ -386,23 +397,12 @@
 
     my %hash;
     my %hashDate;
+    my %h;
     my $tickets = $self->getTickets;
-    for my $ticket ( @$tickets ) {
-	my $name = $ticket->get('location');

daviddelikat

--- EventManagementSystem.pm.older	2009-10-08 08:22:46.000000000 -0500
+++ EventManagementSystem.pm.older.orig	2009-10-08 06:14:49.000000000 -0500
@@ -288,12 +288,23 @@
 
     my %hash;
     my %hashDate;
-    my %h;
     my $tickets = $self->getTickets;
-# this is a really compact 'uniq' operation
-    my @locations = map { $h{$_}++ == 0 ? $_ : () } ( map { $_->get('location') } ( @$tickets ) );

daviddelikat

--- EventManagementSystem.t	2009-10-08 06:16:28.000000000 -0500
+++ t/Asset/Wobject/EventManagementSystem.t	2009-10-08 05:57:57.000000000 -0500
@@ -49,7 +49,7 @@
 #----------------------------------------------------------------------------
 # Tests
 
-plan tests => 34 ;        # Increment this number for each test you create
+plan tests => 35 ;        # Increment this number for each test you create
 
 #----------------------------------------------------------------------------

daviddelikat

# vim:syntax=perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#------------------------------------------------------------------
# http://www.plainblack.com                     info@plainblack.com
#------------------------------------------------------------------