|
version 1.2, 1999/10/28 21:40:33
|
version 1.3, 2000/01/12 21:00:25
|
|
Line 446 proc createSummaryReport {} {
|
Line 446 proc createSummaryReport {} {
|
| } |
} |
| default |
default |
| { |
{ |
| displayError "An error has occured while creating a summary \ |
displayError "An error has occurred while creating a summary \ |
| report $gSummary(section)" |
report $gSummary(section)" |
| return |
return |
| } |
} |
|
Line 974 proc printBody { lprCommand } {
|
Line 974 proc printBody { lprCommand } {
|
| exec /bin/rm -f /tmp/g[pid] |
exec /bin/rm -f /tmp/g[pid] |
| |
|
| if { $error == 1 } { |
if { $error == 1 } { |
| displayError "When attempting to print an error occured : $errorMsg" |
displayError "When attempting to print an error occurred : $errorMsg" |
| return 1 |
return 1 |
| } else { |
} else { |
| displayMessage "Print job sent to the printer.\n $returnMessage" |
displayMessage "Print job sent to the printer.\n $returnMessage" |
![[BACK]](/icons/back.gif){kind=icon}
Return to grader.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools