#!@@_perl_root_@@/bin/perl.exe
package ColleagueCurationMod;

##########################################################
#                                                        #
# dictyBase Extension of ColleagueCurationMod            #
#                                                        #
##########################################################

use ColleagueCurationMod_base;

BEGIN { %ColleagueCurationMod:: = %ColleagueCurationMod_base:: }

####################################################################
sub deleteFile {
####################################################################
   my ($dir, $file) = @_;


	if (!unlink("$dir/$file")) {
	   print "<p><b>delete $dir/$file failed: $!</b><br>";
	}
	else {
	   print "<p><b>$file has been deleted from $dir directory.</b><br>"; 
	}
}

#
# took out directions to add more than one email
#
########################################################################
sub email {
########################################################################
    my ($new, $type, $old) = @_;
   
    my $entry = td({-width=>'140',
		  -bgcolor=>'#b7d8e4'},
		 "E-mail ".
		 font({-color=>'red',
		       -size=>'2'},
		      b("[required]")));
    my $arrow;
    if ($type =~ /update/i) {
	if ($old ne $new) { $arrow = "yes"; }
	if (!$old) { $old = br;}
	$entry .= td({-width=>'250',
		      -bgcolor=>"#d8d8d8"},
		     $old);
    }
    $entry .= td(textfield(-name=>'email', 
			   -value=>"$new", 
			   -size=>'30'));
if ($arrow) {
	$entry .= &arrow;
    }
    else {
	$entry .= td(br);
    }
    return Tr($entry);
}



#
# we're not doing this
#
########################################################################
sub researchTopics {
########################################################################
    my ($collRT, $type, $oldCollRT, $dbh) = @_;
return undef;
}

#####################################################################
1;  ##### Return it to the calling program
#####################################################################