Subversion Repositories VORC

Rev

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

Rev 61 Rev 118
Line 99... Line 99...
99 
    }
 99 
    }
Line 100... Line 100...
100
100
Line 101... Line 101...
101 
    $sth = $dbh->prepare ("delete from RCid_ticket_link where RCid = ? and MVPid = ?");
 101 
    $sth = $dbh->prepare ("delete from RCid_ticket_link where RCid = ? and MVPid = ?");
102
102
103 
  } else {
 103 
  } else {
Line 104... Line 104...
104 
    my ($taken) = $dbh->selectrow_array ("select RCid from RCid_ticket_link where MVPid = ? or RCid = ?", undef, $mvpid, $rcid);
 104 
    my ($taken) = $dbh->selectrow_array ("select RCid from RCid_ticket_link where RCid_ticket_link.year = year(now()) and (MVPid = ? or RCid = ?)", undef, $mvpid, $rcid);
105 
    return "ERROR ($taken): Either that user or that ticket is already matched." if $taken;
 105 
    return "ERROR ($taken): Either that user or that ticket is already matched." if $taken;
Line 106... Line 106...
106 
 
 106 
 
Line 107... Line 107...
107 
    my ($exists) = $dbh->selectrow_array ("select id from ticket where id = ?", undef, $mvpid);
 107 
    my ($exists) = $dbh->selectrow_array ("select id from ticket where id = ?", undef, $mvpid);
Line 108... Line 108...
108 
    return "ERROR: That MVP Ticket doesn't seem to exist ($mvpid)." unless $exists;
 108 
    return "ERROR: That MVP Ticket doesn't seem to exist ($mvpid)." unless $exists;
109
109