Subversion Repositories VORC

Rev

Rev 58 | Rev 63 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 58 Rev 59
Line 139... Line 139...
139 
		$dbh->do ("update official set last_login = now() where RCid = ?", undef, $RCDBIDHASH->{'RCid'}) if $src eq "form";
 139 
		$dbh->do ("update official set last_login = now() where RCid = ?", undef, $RCDBIDHASH->{'RCid'}) if $src eq "form";
140 
		$result->{authenticated} = 'true';
 140 
		$result->{authenticated} = 'true';
141 
#		my @depts = map { s/-\d// } split /:/, $RCDBIDHASH->{department};
 141 
#		my @depts = map { s/-\d// } split /:/, $RCDBIDHASH->{department};
142 
#		my @depts = split /:/, $RCDBIDHASH->{department};
 142 
#		my @depts = split /:/, $RCDBIDHASH->{department};
Line 143... Line 143...
143
143
- 
 
 144 
		$ORCUSER = $RCDBIDHASH;
144 
		$ORCUSER=$RCDBIDHASH;
 145 
		$ORCUSER->{MVPid} = getUser($ORCUSER->{RCid})->{MVPid};
145 
	}
 146 
	}
146 
	return $result;
 147 
	return $result;
Line 147... Line 148...
147 
}
 148 
}