pkg://ical-2.2-26.src.rpm:271471/ical-2.2-print.patch
info downloads
*** ical_text.tcl Sat Aug 5 02:52:47 2000
--- ical_text.tcl Mon Oct 23 11:37:44 2000
***************
*** 47,53 ****
if $print {
# Generate postscript
! puts stdout [pr_output $ical(startdate) $showcount]
} else {
# Generate listing
set lastdate ""
--- 47,55 ----
if $print {
# Generate postscript
! set papersize SetUSLetter
! catch {set papersize [cal option PrintPaperSize]}
! puts stdout [pr_output $ical(startdate) $showcount $papersize]
} else {
# Generate listing
set lastdate ""