SF.net SVN: ledger-smb:[3451] trunk

[..hidden..]

Revision: 3451
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3451&view=rev
Author:   einhverfr
Date:     2011-07-06 07:13:04 +0000 (Wed, 06 Jul 2011)

Log Message:
-----------
Correcting test failures

Modified Paths:
--------------
    trunk/LedgerSMB/Location.pm
    trunk/sql/modules/Location.sql

Modified: trunk/LedgerSMB/Location.pm
===================================================================
--- trunk/LedgerSMB/Location.pm	2011-07-06 06:01:07 UTC (rev 3450)
+++ trunk/LedgerSMB/Location.pm	2011-07-06 07:13:04 UTC (rev 3451)
@@ -10,11 +10,10 @@
 
 =head1 METHODS
 
+=over
 
 =item delete 
 
-
-
 =cut
 
 package LedgerSMB::Location;
@@ -100,7 +99,7 @@
 sub delete {
     my $self = shift;
     $self->exec_method( procname => 'location_delete' );
-    $sehf->{dbh}->commit;
+    $self->{dbh}->commit;
 }
 
 =back

Modified: trunk/sql/modules/Location.sql
===================================================================
--- trunk/sql/modules/Location.sql	2011-07-06 06:01:07 UTC (rev 3450)
+++ trunk/sql/modules/Location.sql	2011-07-06 07:13:04 UTC (rev 3451)
@@ -180,3 +180,17 @@
 COMMENT ON FUNCTION location_delete (in_id integer)
 IS $$ DELETES the location specified by in_id.  Does not return a value.$$;
 
+CREATE TYPE location_result AS (
+        id int,
+        line_one text,
+        line_two text,
+        line_three text,
+        city text,
+        state text,
+        mail_code text,
+        country_id int,
+        country text,
+        class_id int,
+        class text
+);
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.