several bug fixes

docs/upgrades/upgrade_6.99.2-6.99.3.pl

@@ -20,17 +20,17 @@ my $quiet; # this line required
 
 my $session = start(); # this line required
 
-# upgrade functions go here
+fixCs();
 
 finish($session); # this line required
 
 
-##-------------------------------------------------
-#sub exampleFunction {
-#	my $session = shift;
-#	print "\tWe're doing some stuff here that you should know about.\n" unless ($quiet);
-#	# and here's our code
-#}
+#-------------------------------------------------
+sub fixCs {
+	my $session = shift;
+	print "\tFixing CS bugs.\n" unless ($quiet);
+	$session->db->write("alter table Thread change karmaRank karmaRank float(11,6)");
+}
 
 
 

lib/WebGUI/Asset/Post/Thread.pm

@@ -961,7 +961,7 @@ sub www_transferKarma {
 	my $amount = $self->session->form->get("karma","integer");
 	# cant have them giving more karma then they have
 	if ($amount <= $self->session->user->karma) {
-		$self->session->user->karma($amount, "Thread ".$self->getId, "Transferring karma to a thread.");
+		$self->session->user->karma(-$amount, "Thread ".$self->getId, "Transferring karma to a thread.");
 		my $newKarma = $self->get("karma")+$amount;
 		my $karmaScale = $self->get("karmaScale") || 1;
 		$self->update({karma=>$newKarma,karmaRank=>$newKarma/$karmaScale});

lib/WebGUI/Asset/Wobject/EventManagementSystem.pm

@@ -1824,9 +1824,9 @@ sub www_editEventSave {
 		maximumAttendees => $self->session->form->get("maximumAttendees"),
 		approved	=> $self->session->form->get("approved"),
 		passId	=> join('::',$self->session->form->process("passId",'selectList')),
-		passType	=> $self->session->form->get("passType",'radioList'),
 		imageId		=> $storageId,
-		prerequisiteId => $self->session->form->process("prerequisiteId",'selectBox')
+		prerequisiteId => $self->session->form->process("prerequisiteId",'selectBox'),
+		passType	=> $self->session->form->get("passType",'radioList'),
 	},1,1);
 
 	#Save the event metadata

lib/WebGUI/Operation/Cron.pm

@@ -66,13 +66,13 @@ sub www_editCronJob {
 		);
 	$f->hidden(
 		name=>"id",
-		value=>$session->form->get("id"),
 		defaultValue=>"new",
+		value=>$session->form->get("id"),
 		);
 	$f->readOnly(
 		label=>$i18n->get("id"),
+		defaultValue=>"new",
 		value=>$session->form->get("id"),
-		defaultValue=>"new"
 		);
 	my $value = $cron->get("title") if defined $cron;
 	$f->text(