|
version 1.14, 2000/02/02 19:14:10
|
version 1.15, 2000/02/08 22:18:11
|
|
Line 2029 proc checkHeader { numberParsed } {
|
Line 2029 proc checkHeader { numberParsed } {
|
| # if { $gFirstTime } { set gFirstTime 0; return } |
# if { $gFirstTime } { set gFirstTime 0; return } |
| set gLoadHeaderSet $gSetNumberText |
set gLoadHeaderSet $gSetNumberText |
| set error [catch {getHeaderInfo}] |
set error [catch {getHeaderInfo}] |
| if { [llength $gControlDates] > 2 } { |
catch { |
| set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] |
if { [llength $gControlDates] > 2 } { |
| } |
set gControlDates [linsert [lreverse [lrange $gControlDates 1 end]] 0 [lindex $gControlDates 0]] |
| |
} |
| |
} |
| if { $error == 1 } { |
if { $error == 1 } { |
| set gHeaderQCount "0" |
set gHeaderQCount "0" |
| set gControlDates "" |
set gControlDates "" |
|
Line 3872 proc printBody { lprCommand { showComple
|
Line 3874 proc printBody { lprCommand { showComple
|
| global gCapaConfig gStopPrinting gDonePrinting |
global gCapaConfig gStopPrinting gDonePrinting |
| |
|
| set errorMsg "" |
set errorMsg "" |
| set error [ catch {exec $gCapaConfig(dvips_command) quiztemp.dvi \ |
set error [ catch {eval exec $gCapaConfig(dvips_command) quiztemp.dvi \ |
| -o quiztemp.ps >& /dev/null} errorMsg ] |
-o quiztemp.ps >& /dev/null} errorMsg ] |
| if { $error } { |
if { $error } { |
| displayError \ |
displayError \ |
![[BACK]](/icons/back.gif){kind=icon}
Return to quizzer.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools