Subversion Repositories VORC

Rev

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

Rev 61 Rev 65
Line 90... Line 90...
90 
  my $D = shift;
 90 
  my $D = shift;
91 
  my $OU = shift;
 91 
  my $OU = shift;
Line 92... Line 92...
92
92
93 
  $U->{department}->{$D} = 1;
 93 
  $U->{department}->{$D} = 1;
94 
  $U->{department} = convertDepartments ($U->{department});
 94 
  $U->{department} = convertDepartments ($U->{department});
95 
  $dbh->do ("update official set access = 1, department = ? where RCid = ?", undef, $U->{department}, $U->{RCid}) or printError ("Something 'bad' happened when saving to the database.".$dbh->errstr);
 95 
  $dbh->do ("update official set department = ? where RCid = ?", undef, $U->{department}, $U->{RCid}) or printError ("Something 'bad' happened when saving to the database.".$dbh->errstr);
96 
  logit ($OU->{RCid}, "Activated $U->{derby_name} ($U->{RCid}) to work in $DEPT->{$D} Department");
 96 
  logit ($OU->{RCid}, "Activated $U->{derby_name} ($U->{RCid}) to work in $DEPT->{$D} Department");
97 
  logit ($U->{RCid}, "Activated to work in $DEPT->{$D} Department");
 97 
  logit ($U->{RCid}, "Activated to work in $DEPT->{$D} Department");
Line 98... Line 98...
98 
}
 98 
}