Subversion Repositories VORC

Rev

Rev 56 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 56 Rev 153
Line 46... Line 46...
46 
  die;
 46 
  die;
47 
}
 47 
}
Line 48... Line 48...
48 
 
 48 
 
49 
if ($change eq "pick") {
 49 
if ($change eq "pick") {
50 
	use WebDB;
 50 
	use WebDB;
Line 51... Line 51...
51 
	my $dbh = WebDB->connect ();
 51 
	my $dbh = WebDB::connect ();
52
52
Line 53... Line 53...
53 
	my ($current, $shiftlength) = $dbh->selectrow_array ("select mod_time, volhours from v_shift where RCid = ? and id = ?", undef, $RCid, $shiftid);
 53 
	my ($current, $shiftlength) = $dbh->selectrow_array ("select mod_time, volhours from v_shift where RCid = ? and id = ?", undef, $RCid, $shiftid);