merge from master for pilot

dr-kd · Apr 30, 2010 · 448dc88 · 448dc88
2 parents fe57381 + 8c83d60
commit 448dc88
Show file tree

Hide file tree

Showing 10 changed files with 3,062 additions and 26 deletions.
diff --git a/Survey-Perl/db/survey.sql b/Survey-Perl/db/survey.sql
@@ -0,0 +1,82 @@
+CREATE TABLE surveys (management_unmaintainable TEXT,
+email TEXT,
+x_comments TEXT,
+x_platform TEXT,
+report TEXT,
+understand TEXT,
+force TEXT,
+run_tests TEXT,
+cpan4 TEXT,
+cpan3 TEXT,
+cpan2 TEXT,
+cpan1 TEXT,
+cpan_important TEXT,
+cert_comments TEXT,
+cert_other TEXT,
+cert_me TEXT,
+words TEXT,
+frustrates TEXT,
+best TEXT,
+apps TEXT,
+embedded TEXT,
+netengs TEXT,
+sysadmins TEXT,
+experienced TEXT,
+early_career TEXT,
+beginner TEXT,
+first TEXT,
+management_scale TEXT,
+mangement_unmaintainable TEXT,
+management_outdated TEXT,
+management_encourages TEXT,
+scale TEXT,
+unmaintainable TEXT,
+startup TEXT,
+eliminate TEXT,
+legacy TEXT,
+cpan_feature TEXT,
+cpan_fix_bug TEXT,
+cpan_bug TEXT,
+feature_interpreter TEXT,
+fix_bug_interpreter TEXT,
+bug_report_interpreter TEXT,
+handover_modules TEXT,
+cpan_modules TEXT,
+conference TEXT,
+pm_meetings TEXT,
+local_pm TEXT,
+tech_list_non_perl TEXT,
+tech_list TEXT,
+pm_list TEXT,
+perl_editors_secondary TEXT,
+perl_editors TEXT,
+perl_freq TEXT,
+lang4 TEXT,
+lang3 TEXT,
+lang2 ,
+lang1 TEXT,
+lang TEXT,
+os_deployment TEXT,
+os_dev TEXT,
+perl_versions TEXT,
+spare_time ,
+percent_perl TEXT,
+percent_management TEXT,
+percent_programming TEXT,
+perl_length TEXT,
+prog_length TEXT,
+industries TEXT,
+income TEXT,
+other_dynamic_taught TEXT,
+other_dynamic_formal TEXT,
+perl_formal TEXT,
+field TEXT,
+highest_qual TEXT,
+country_residence TEXT,
+country_birth TEXT,
+age TEXT,
+gender TEXT,
+sessionid text,
+user_agent text,
+finish_time, integer,
+surveyid INTEGER PRIMARY KEY);
diff --git a/Survey-Perl/lib/Survey/Perl/Answers/Schema.pm b/Survey-Perl/lib/Survey/Perl/Answers/Schema.pm
@@ -8,9 +8,7 @@ use base 'DBIx::Class::Schema';
 __PACKAGE__->load_namespaces;
 
 
-# Created by DBIx::Class::Schema::Loader v0.04006 @ 2009-09-11 17:06:47
-# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:nbZ7hOUzma87ik9kPCetYw
-
-
+# Created by DBIx::Class::Schema::Loader v0.04006 @ 2010-04-30 21:19:06
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:0mkHlVmrp66IomYRnN6xXQ
 # You can replace this text with custom content, and it will be preserved on regeneration
 1;
diff --git a/Survey-Perl/lib/Survey/Perl/Answers/Schema/Result/Survey.pm b/Survey-Perl/lib/Survey/Perl/Answers/Schema/Result/Survey.pm
@@ -545,7 +545,40 @@ __PACKAGE__->add_columns(
         is_nullable   => "1",
         size          => 255
     },
-
+    "perl_editors",
+    { 
+	    data_type => "varchar", 
+	    default_value => "undef", 
+	    is_nullable => 1, 
+	    size => 255 
+	},
+	"perl_editors_secondary",
+    { 
+	    data_type => "varchar", 
+	    default_value => "undef", 
+	    is_nullable => 1, 
+	    size => 255 
+	},
+	"sessionid",
+	{
+		data_type => "varchar",
+		default_value => "undef",
+		is_nullable => 1,
+		size => 255
+    },
+	"timestamp",
+	{
+		data_type => "timestamp",
+		default_value => "undef",
+		is_nullable => 1,
+	},
+	"user_agent",
+	{
+		data_type => "varchar",
+		default_value => "undef",
+		is_nullabe => 1,
+		size => 255,
+	}
 );
 __PACKAGE__->set_primary_key("surveyid");