Select Code to Download

SELECT
   o.id    
...
        AND o.id  = 737
 GROUP BY o.id, o.lat, o.long
 ORDER BY o.id;

737;50.9;-1.4;"Southampton";"gb";"{{1373,"School of Electronics and Co
+mputer Science",NULL,true,true,"{{1309,http://www.ecs.soton.ac.uk,tru
+e,true,2012-03-27}}","{382}","{737}"},{716,"Electronics and Computer 
+Science",NULL,true,true,"{{1309,http://www.ecs.soton.ac.uk,true,true,
+2012-03-27}}","{382}","{737}"},{70787,"Electronics & Computer Sci
+ence",NULL,true,NULL,"{{1309,http://www.ecs.soton.ac.uk,true,true,201
+2-03-27}}","{382}","{737}"},{62106,"School of Electronics and Compute
+r Science, University of Southampton",NULL,NULL,false,"{{1309,http://
+www.ecs.soton.ac.uk,true,true,2012-03-27}}","{382}","{737}"}}"

use utf8;
package ORI::Schema::Result::GetOrgs;
...
};

1;

sub org : Local {
  my ( $self, $c ) = @_;
  $c->stash(types => [$c->model('ORIdatabase::GetOrgs')->all]);
  $c->stash( template => 'list/org.tt2' );
}

[% USE Dumper -%]
<table border='1'>
...
  </tr>
[%   END -%]
</table>