"
} else {
# allow duplicate
if $update {
set returnButton "
"
} else {
set returnButton "
"
}
}
puts {Content-Type: text/html}
puts {}
# puts [array get cgi]
# puts $submissionFormLanguageRep
set fileContent [Include $homePath/col/$submissionFormLanguageRep/doc/include/${submissionFormLanguage}${referenceType2}DuplicateWarning.html]
# puts [string equal {} $fileContent]
if [string equal {} $fileContent] {
# default warning
if $update {
set fileContent ${the current update causes two or more repositories with the same citation key}
} else {
set fileContent ${a repository already exists}
}
}
puts [subst [subst $fileContent]]
LeaveQueue
return
}
}
}
# return ;# for testing
# Check for the same authors, title and reference type - end
# Process ePrint
# set targetfile and lastupdatedate
if {[string equal {Electronic Source} $referenceType] && \
(![info exists cgi(updatetype)] || ![regexp {update source directory} $cgi(updatetype)])} {
set currentDate [clock format [clock second] -format %Y-%m-%d]
if !$noFile {
if {![info exists cgi(_8_lastupdatedate)] || \
[string compare $cgi(_8_lastupdatedate) $currentDate] != 1} {
# a new version must be made
set cgi(_3_targetfile) [ComputeNewVersion $repName].pdf
set cgi(_8_lastupdatedate) [clock format [expr [clock second] + 24*60*60] -format %Y-%m-%d]
}
}
}
# Process ePrint - end
# Process review data
if $update {
# update
ConditionalSet keywords cgi(_K_keywords) {}
if {[info exists optionTable2($referenceType,%@documentstage)] && [regexp {Closed Review} $optionTable2($referenceType,%@documentstage)] && \
[regexp {review} $keywords]} {
# is a review
source $homePath/col/$repName/doc/.reviewArray.tcl
foreach index [array names reviewArray] {
regsub {.*,} $index {} fieldName
if ![info exists cgi(${fieldName}_$fieldName)] {
# if the entry doesn't exist then SET CGI ENTRY TO EMPTY
set cgi(${fieldName}_$fieldName) {}
}
}
}
}
# Process review data - end
# referenceType3
regsub -all { } $referenceType {+} referenceType3 ;# added by GJFB in 2011-04-01
# Make Return Button
if [string equal 2 $cgi(returntype)] {
# upload (Run button)
# returnButton for password error (no return button)
set returnButton "
"
} else {
# not upload (Run button)
if $update {
# update
# regsub -all { } $referenceType {+} referenceType3
append queryInfo "&referencetype=$referenceType3"
if [info exists cgi(returnaddress)] {append queryInfo "&returnaddress=$cgi(returnaddress)"}
if [info exists sourceSite] {
# needed to return to the source form after an update error (e.g., unknown username) when closing an ePrint
set returnSite [ReturnHTTPHost $sourceSite]
# regsub {mirror=[^&]*&} $queryInfo "mirror=$cgi(mirror)\\&" queryInfo
regsub {requiredmirror=[^&]*&} $queryInfo "requiredmirror=$cgi(requiredmirror)\\&" queryInfo
} else {
set returnSite $localSite
}
set returnButton "