cyclone3-internals Mailing List for Cyclone3 - XUL/Perl CMS Framework (Page 2)

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Author: rlaucik
Date: 2016-03-01 14:53:29 +0100 (Tue, 01 Mar 2016)
New Revision: 8627

Log:
added view and list modules for 740 joboffer



Added:
   trunk/frame/_addons/App/740/_mdl/
   trunk/frame/_addons/App/740/_mdl/740-joboffer_list.2013.mdl
   trunk/frame/_addons/App/740/_mdl/740-joboffer_view.2013.mdl
Added: trunk/frame/_addons/App/740/_mdl/740-joboffer_list.2013.mdl
===================================================================

--- trunk/frame/_addons/App/740/_mdl/740-joboffer_list.2013.mdl	                        (rev 0)
+++ trunk/frame/_addons/App/740/_mdl/740-joboffer_list.2013.mdl	2016-03-01 13:53:29 UTC (rev 8627)
@@ -0,0 +1,261 @@
+#!/usr/bin/perl
+# USE UTF-8 !!!
+package Tomahawk::module;
+use open ':utf8', ':std';
+use if $] < 5.018, 'encoding','utf8';
+use utf8;
+use strict;
+use DateTime;
+
+
+use App::740::_init;
+
+use Data::Dumper;
+
+sub execute
+{
+	my %env=@_;
+	my %env_out;
+	
+	$env{'joboffer.status'}='Y' unless $env{'joboffer.status'};
+		my $sql_joboffer_status=join "','", split('',$env{'joboffer.status'});
+
+	# paging
+	$env{'page_limit'} = 10 unless $env{'page_limit'};
+	$env{'page'} = 1 unless $env{'page'};
+	$env{'page_offset'} = 0 unless $env{'page_offset'};
+	$env{'page_plus'} = 1 unless $env{'page_plus'};	
+	$env{'sql_limit'}=((($env{'page'}-1)*$env{'page_limit'})+$env{'page_offset'}).",".($env{'page_limit'}+$env{'page_plus'});
+	my @sql_bind;
+	my $sql_where;
+	my $sql_join;
+	my $sql_columns;
+	my $sql_changetime;
+	my $sql_limit=$env{'sql_limit'} || 10;
+	my $sql_order_by=$env{'sql_order_by'} || 'joboffer.datetime_publish_start DESC';
+	my $sql_group_by;
+	
+	if ($env{'unique'})
+	{ 
+		$sql_group_by="joboffer.ID_entity";
+	}
+	
+	if ($env{'joboffer_cat.ID_entity'})
+	{
+		my $sql_cat;
+		foreach my $ID_category (split(';',$env{'joboffer_cat.ID_entity'}))
+		{
+			next unless $ID_category;
+			if ($ID_category=~s/\*$//)
+			{
+				my $cat_sql=qq{SELECT ID_charindex FROM `$App::740::db_name`.a740_joboffer_cat WHERE ID_entity=$ID_category AND lng='$env{'lng'}' AND status IN ('Y','L') LIMIT 1};
+				$ID_category=qq{SELECT ID_entity FROM `$App::740::db_name`.a740_joboffer_cat WHERE ID_charindex LIKE CONCAT(($cat_sql),"%") AND lng='$env{'lng'}' AND status IN ('Y','L')};
+			}
+			$sql_cat.=" OR joboffer_rel_cat.ID_category IN ($ID_category)";
+			$sql_cat=~s/^ OR //;
+		}
+		if ($sql_cat)
+		{
+			$sql_where.=" AND (".$sql_cat.") ";
+		}
+	}
+	
+	if ($env{'joboffer_cat.ID'})
+	{
+		my $sql_cat;
+		foreach my $ID_category (split(';',$env{'joboffer_cat.ID'}))
+		{
+			next unless $ID_category;
+			if ($ID_category=~s/\*$//)
+			{
+				my $cat_sql=qq{SELECT ID_charindex FROM `$App::740::db_name`.a740_joboffer_cat WHERE ID=$ID_category AND lng='$env{'lng'}' AND status IN ('Y','L') LIMIT 1};
+				$ID_category=qq{SELECT ID FROM `$App::740::db_name`.a740_joboffer_cat WHERE ID_charindex LIKE CONCAT(($cat_sql),"%") AND lng='$env{'lng'}' AND status IN ('Y','L')};
+			}
+			$sql_cat.=" OR joboffer_cat.ID IN ($ID_category)";
+			$sql_cat=~s/^ OR //;
+		}
+		if ($sql_cat)
+		{
+			$sql_where.=" AND (".$sql_cat.") ";
+		}
+	}
+	
+	if ($env{'joboffer.ID_entity'}=~/^[0-9;]+$/)
+	{
+		$sql_where.=" AND joboffer.ID_entity IN (".join(',',split(';',$env{'joboffer.ID_entity'})).")";
+		$sql_limit=scalar split(';',$env{'joboffer.ID_entity'});
+	}
+	
+	if ($env{'datetime_mode'} eq "present")
+	{
+		$sql_where.=" AND (joboffer.datetime_publish_start IS NULL OR joboffer.datetime_publish_start <= NOW())";
+		$sql_where.=" AND (joboffer.datetime_publish_stop IS NULL OR joboffer.datetime_publish_stop >= NOW())";
+	}
+	elsif ($env{'datetime_mode'} eq "past")
+	{
+		$sql_where.=" AND (joboffer.datetime_publish_start IS NULL OR joboffer.datetime_publish_start <= NOW())";
+		$sql_where.=" AND joboffer.datetime_publish_stop <= NOW()";
+	}
+	elsif ($env{'datetime_mode'} eq "future")
+	{
+		$sql_where.=" AND joboffer.datetime_publish_start >= NOW()";
+		$sql_where.=" AND (joboffer.datetime_publish_stop IS NULL OR joboffer.datetime_publish_stop >= NOW())";
+	}
+	elsif ($env{'datetime_mode'} eq "all")
+	{
+		
+	}
+	else # present & upcoming
+	{
+		$sql_where.=" AND (joboffer.datetime_publish_stop IS NULL OR joboffer.datetime_publish_stop >= NOW())";
+	}
+
+	# filters
+	if ($env{'joboffer.education'}) {
+		$sql_where.=" AND joboffer.education = '".TOM::Security::form::sql_escape($env{'joboffer.education'})."'";
+	}
+	if ($env{'joboffer.location_city'}) {
+		$sql_where.=" AND joboffer.location_city = '".TOM::Security::form::sql_escape($env{'joboffer.location_city'})."'";	
+	}
+	if ($env{'joboffer.contract_type'}) {
+		$sql_where.=" AND joboffer.contract_type = '".TOM::Security::form::sql_escape($env{'joboffer.contract_type'})."'";	
+	}
+	if ($env{'joboffer_lng.name'}) {
+		$sql_where.=" AND joboffer_lng.name = '".TOM::Security::form::sql_escape($env{'joboffer_lng.name'})."'";
+	}
+	if ($env{'joboffer_lng.name_search'}) {
+		$sql_where.=" AND joboffer_lng.name LIKE '".TOM::Security::form::sql_escape($env{'joboffer_lng.name_search'})."%'";
+	}
+
+	if ($env{'get_org_data'}) {
+		use App::710::_init;
+		$sql_columns .= ",
+			org.ID AS org_ID,
+			org.ID_entity org_ID_entity,
+			org.name AS org_name
+		";
+		$sql_join = "
+			LEFT JOIN `$App::710::db_name`.a710_org AS org ON (
+				org.ID = joboffer.contact_org
+			)
+		";
+	}
+	
+	$sql_where.=" AND ".$env{'sql_where'} if $env{'sql_where'};
+	
+	main::_log('-------------------------------------------------------'.$env{'sql_where'});
+	
+	$sql_where=~s|^ ||;
+	
+	Tomahawk::GetTpl('env'=>\%env) || return undef;
+	
+	use App::020::mimetypes::html;
+	my $parser=new App::020::mimetypes::html(
+		'tpl_ext' => $TPL # extend
+	);
+	
+	my $i;
+	my %sth0=TOM::Database::SQL::execute(qq{
+		SELECT
+			
+			joboffer.ID,
+			joboffer.ID_entity,
+			joboffer.posix_owner,
+			joboffer.datetime_publish_start,
+			joboffer.datetime_publish_stop,
+			joboffer.location_city,
+			joboffer.education,
+			joboffer.contract_type,
+			joboffer.contact_org,
+
+			joboffer_lng.name,
+			joboffer_lng.name_url,
+			joboffer_lng.description,
+			joboffer_lng.lng,
+			
+			joboffer.metadata,
+			joboffer.status,
+			
+			joboffer_cat.ID AS cat_ID,
+			joboffer_cat.name AS cat_name,
+			joboffer_cat.name_url AS cat_name_url
+			$sql_columns
+			
+		FROM `$App::740::db_name`.a740_joboffer AS joboffer
+		LEFT JOIN `$App::740::db_name`.a740_joboffer_lng AS joboffer_lng ON
+		(
+			joboffer.ID_entity = joboffer_lng.ID_entity AND
+			joboffer_lng.lng = '$env{'lng'}'
+		)
+		LEFT JOIN `$App::740::db_name`.a740_joboffer_rel_cat AS joboffer_rel_cat ON
+		(
+			joboffer_rel_cat.ID_joboffer = joboffer.ID_entity
+		)
+		LEFT JOIN `$App::740::db_name`.a740_joboffer_cat AS joboffer_cat ON
+		(
+			joboffer_cat.ID_entity = joboffer_rel_cat.ID_category AND
+			joboffer_cat.lng = '$env{'lng'}'
+		)$sql_join
+		WHERE
+			joboffer.status IN ('$sql_joboffer_status')
+			$sql_where}.do{if($sql_group_by){qq{
+		GROUP BY
+			$sql_group_by}}}.qq{
+		ORDER BY
+			$sql_order_by
+		LIMIT
+			$sql_limit
+	},'bind'=>[@sql_bind],'log'=>1,'-slave'=>1,
+		'-changetime'=>App::020::SQL::functions::_get_changetime(
+			{
+				'db_h'=>"main",
+				'db_name' => `$App::740::db_name`,
+				'tb_name' => "a740_joboffer",
+				'ID_entity' => do{$env{'joboffer.ID_entity'} if $env{'joboffer.ID_entity'}=~/^\d+$/}
+			}),
+	);
+	
+	$TPL->{'variables'}->{'rows'}=$sth0{'rows'};
+	while (my %joboffer=$sth0{'sth'}->fetchhash())
+	{
+		$i++;
+		last if $i > $env{'page_limit'};
+		
+		main::_log("[$i/$env{'page_limit'}] found joboffer.ID_entity=$joboffer{'ID_entity'}");
+		
+		push @{$env_out{'entity'}},{
+			'db_h' => 'main',
+			'db_name' => `$App::740::db_name`,
+			'tb_name' => 'a740_joboffer',
+			'ID_entity' => $joboffer{'ID_entity'}
+		};
+		
+		if ($env{'parser.description'})
+		{
+			$parser->parse($joboffer{'description'});
+			$parser->eof();
+			$joboffer{'description_parser'}={
+				'output' => $parser->{'output'},
+				'addon' => $parser->{'addon'},
+				'entity' => $parser->{'entity'},
+				'thumbnail' => $parser->{'thumbnail'},
+			};
+		}
+		$joboffer{'location_city_url'} = TOM::Net::URI::rewrite::convert($joboffer{'location_city'});
+	
+		push @{$TPL->{'variables'}{'items'}},\%joboffer;
+	}
+	
+	return 1,%env_out;
+}
+
+
+our $authors="open\@comsultia.com";
+
+=head1 AUTHORS
+
+Comsultia, Ltd. (op...@co...)
+
+=cut
+
+1;

Added: trunk/frame/_addons/App/740/_mdl/740-joboffer_view.2013.mdl
===================================================================
--- trunk/frame/_addons/App/740/_mdl/740-joboffer_view.2013.mdl	                        (rev 0)
+++ trunk/frame/_addons/App/740/_mdl/740-joboffer_view.2013.mdl	2016-03-01 13:53:29 UTC (rev 8627)
@@ -0,0 +1,162 @@
+#!/usr/bin/perl
+# USE UTF-8 !!!
+package Tomahawk::module;
+use open ':utf8', ':std';
+use if $] < 5.018, 'encoding','utf8';
+use utf8;
+use strict;
+
+use App::740::_init;
+
+sub execute
+{
+	my %env=@_;
+	my %env_out;
+	
+	$env{'joboffer.status'}='Y' unless $env{'joboffer.status'};
+		my $sql_joboffer_status=join "','", split('',$env{'joboffer.status'});
+	
+	my @sql_bind;
+	my $sql_where;
+	my $sql_columns;
+	my $sql_join;
+	if ($env{'joboffer.ID_entity'})
+	{
+		main::_log("search by joboffer.ID_entity");
+		push @{$env_out{'entity'}},{
+			'db_h' => 'main',
+			'db_name' => $App::740::db_name,
+			'tb_name' => 'a740_joboffer',
+			'ID_entity' => $env{'joboffer.ID_entity'}
+		};
+		$sql_where.="AND joboffer.ID_entity=? ";
+		push @sql_bind,$env{'joboffer.ID_entity'};
+	}
+	
+	if ($env{'joboffer.ID'})
+	{
+		main::_log("search by joboffer.ID");
+		$sql_where.="AND joboffer.ID=? ";
+		push @sql_bind,$env{'joboffer.ID'};
+	}
+	
+	
+	if ($env{'get_org_data'}) {
+		use App::710::_init;
+		$sql_columns .= ",
+			org.ID AS org_ID,
+			org.ID_entity org_ID_entity,
+			org.name AS org_name
+		";
+		$sql_join = "
+			LEFT JOIN $App::710::db_name.a710_org AS org ON (
+				org.ID = joboffer.contact_org
+			)
+		";
+	}
+	
+	$sql_where.=" AND ".$env{'sql_where'} if $env{'sql_where'};
+	
+	$sql_where=~s|^ ||;
+	
+	# get template
+	Tomahawk::GetTpl('env' => \%env) || return undef;
+	
+	return 1 unless $sql_where;
+	
+	use App::020::mimetypes::html;
+	my $parser=new App::020::mimetypes::html(
+		'tpl_ext' => $TPL # extend
+	);
+	
+	my $i;
+	my %sth0=TOM::Database::SQL::execute(qq{
+		SELECT
+			joboffer.ID,
+			joboffer.ID_entity,
+			joboffer.posix_owner,
+			joboffer.datetime_publish_start,
+			joboffer.datetime_publish_stop,
+			joboffer.location_city,
+			joboffer.education,
+			joboffer.contract_type,
+			joboffer.contact_org,
+
+			joboffer_lng.name,
+			joboffer_lng.name_url,
+			joboffer_lng.description,
+			joboffer_lng.lng,
+			
+			joboffer.metadata,
+			joboffer.status,
+			
+			joboffer_cat.ID AS cat_ID,
+			joboffer_cat.name AS cat_name,
+			joboffer_cat.name_url AS cat_name_url
+			$sql_columns
+			
+		FROM $App::740::db_name.a740_joboffer AS joboffer
+		LEFT JOIN $App::740::db_name.a740_joboffer_lng AS joboffer_lng ON
+		(
+			joboffer.ID_entity = joboffer_lng.ID_entity AND
+			joboffer_lng.lng = '$env{'lng'}'
+		)
+		LEFT JOIN $App::740::db_name.a740_joboffer_rel_cat AS joboffer_rel_cat ON
+		(
+			joboffer_rel_cat.ID_joboffer = joboffer.ID_entity
+		)
+		LEFT JOIN $App::740::db_name.a740_joboffer_cat AS joboffer_cat ON
+		(
+			joboffer_cat.ID_entity = joboffer_rel_cat.ID_category AND
+			joboffer_cat.lng = '$env{'lng'}'
+		)
+		$sql_join
+		WHERE
+			joboffer.status IN ('$sql_joboffer_status')
+			AND joboffer.datetime_publish_start <= NOW()
+			AND (joboffer.datetime_publish_stop IS NULL OR joboffer.datetime_publish_stop >= NOW())
+			$sql_where
+		LIMIT
+			1
+	},'bind'=>[@sql_bind],'log_'=>1,'-slave'=>1,
+		'-changetime'=>App::020::SQL::functions::_get_changetime(
+			{
+				'db_h'=>"main",
+				'db_name' => $App::740::db_name,
+				'tb_name' => "a740_joboffer",
+				'ID_entity' => do{$env{'joboffer.ID_entity'} if $env{'joboffer.ID_entity'}=~/^\d+$/}
+			}),
+	);
+	
+	my %joboffer=$sth0{'sth'}->fetchhash();
+	
+	return 1 unless $joboffer{'ID_entity'};
+	
+	main::_log("found joboffer.ID_entity=$joboffer{'ID_entity'}");
+	
+	push @{$env_out{'entity'}},{
+		'db_h' => 'main',
+		'db_name' => $App::740::db_name,
+		'tb_name' => 'a740_joboffer',
+		'ID_entity' => $joboffer{'ID_entity'}
+	};
+	
+	# parser body
+	$parser->parse($joboffer{'description'});
+	$parser->eof();
+	$joboffer{'description_parser'}={
+		'output' => $parser->{'output'},
+		'addon' => $parser->{'addon'},
+		'entity' => $parser->{'entity'},
+		'thumbnail' => $parser->{'thumbnail'},
+	};
+	push @{$env_out{'entity'}},@{$parser->{'entity'}} if $parser->{'entity'}; # depend on this too
+
+	$main::env{'joboffer.location_city_url'} = TOM::Net::URI::rewrite::convert($joboffer{'location_city'});
+	
+	$TPL->{'variables'}{'item'} = \%joboffer;
+	
+	return 1,%env_out;
+}
+
+1;





2007	Jan	Feb	Mar (83)	Apr (159)	May (106)	Jun (86)	Jul (36)	Aug (19)	Sep (52)	Oct (37)	Nov (36)	Dec (99)
2008	Jan (87)	Feb (150)	Mar (82)	Apr (78)	May (71)	Jun (62)	Jul (42)	Aug (165)	Sep (110)	Oct (165)	Nov (107)	Dec (57)
2009	Jan (94)	Feb (46)	Mar (19)	Apr (119)	May (33)	Jun (31)	Jul (131)	Aug (174)	Sep (123)	Oct (47)	Nov (99)	Dec (40)
2010	Jan (94)	Feb (73)	Mar (37)	Apr (15)	May	Jun	Jul (51)	Aug (136)	Sep (68)	Oct (13)	Nov (29)	Dec (78)
2011	Jan (46)	Feb (54)	Mar (29)	Apr (33)	May (29)	Jun (21)	Jul (19)	Aug (15)	Sep (92)	Oct (53)	Nov (36)	Dec (53)
2012	Jan (19)	Feb (38)	Mar (54)	Apr (39)	May (13)	Jun (89)	Jul (32)	Aug (107)	Sep (45)	Oct (13)	Nov (22)	Dec (17)
2013	Jan (70)	Feb (33)	Mar (21)	Apr (21)	May (34)	Jun (19)	Jul (28)	Aug (38)	Sep (47)	Oct (32)	Nov (95)	Dec (23)
2014	Jan (41)	Feb (33)	Mar (46)	Apr (24)	May (19)	Jun (34)	Jul (47)	Aug (94)	Sep (88)	Oct (74)	Nov (79)	Dec (15)
2015	Jan (31)	Feb (36)	Mar (33)	Apr (67)	May (50)	Jun (54)	Jul (49)	Aug (59)	Sep (77)	Oct (58)	Nov (74)	Dec (41)
2016	Jan (23)	Feb (37)	Mar (26)	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

cyclone3-internals Mailing List for Cyclone3 - XUL/Perl CMS Framework (Page 2)

cyclone3-internals — Cyclone3 internals - svn, tracker, hacking