Drop some unused parameters from business reports

They are no longer used since the introduction of gnc:company-info

src/report/business-reports/easy-invoice.scm

@@ -625,7 +625,7 @@
      'attribute (list "valign" "top"))
     table))
 
-(define (make-myname-table book)
+(define (make-myname-table)
   (let* ((table (gnc:make-html-table))
 	 (name (gnc:company-info gnc:*company-name*))
 	 (addy (gnc:company-info gnc:*company-addy*)))
@@ -753,7 +753,7 @@
         (make-break! document)
 
         ; add the client and company name table
-	(let ((book (gncInvoiceGetBook invoice)))
+	(begin
 	  (set! table (make-entry-table invoice
 					(gnc:report-options report-obj)
 					add-order cust-doc? credit-note?))
@@ -769,7 +769,7 @@
               (add-html! document "<td align='right' valign='top'>")
               (gnc:html-document-add-object!
                document
-               (make-myname-table book))
+               (make-myname-table))
               (add-html! document "</td>")))
           (add-html! document "</tr></table>")
         )

src/report/business-reports/fancy-invoice.scm

@@ -675,7 +675,7 @@
      'attribute (list "valign" "top"))
     table))
 
-(define (make-myname-table book date-format title)
+(define (make-myname-table title)
   (let* ((table (gnc:make-html-table))
 	 (name (gnc:company-info gnc:*company-name*))
 ;;	 (contact (gnc:company-info gnc:*company-contact*))
@@ -796,8 +796,7 @@
 
 
     (if (not (null? invoice))
-	(let ((book (gncInvoiceGetBook invoice))
-              (date-object #f)
+	(let ((date-object #f)
               (date-format (gnc:fancy-date-info gnc:*fancy-date-format*))
 	      (helper-table (gnc:make-html-table))
 	      (title (title-string default-title custom-title)))
@@ -828,8 +827,7 @@
 					"50%" "60%")))
 
 	  (gnc:html-document-add-object!
-	   document (make-myname-table
-		     book date-format title)) ;; Note: date-format is not used for this report
+	   document (make-myname-table title))
 
 	  (make-break! document)
 	  (make-break! document)

src/report/business-reports/invoice.scm

@@ -602,7 +602,7 @@
      'attribute (list "valign" "top"))
     table))
 
-(define (make-myname-table book date-format)
+(define (make-myname-table date-format)
   (let* ((table (gnc:make-html-table))
 	 (name (gnc:company-info gnc:*company-name*))
 	 (addy (gnc:company-info gnc:*company-addy*)))
@@ -691,8 +691,7 @@
 						    (gncInvoiceGetID invoice)))
 
     (if (not (null? invoice))
-	(let* ((book (gncInvoiceGetBook invoice))
-               (date-format (gnc:fancy-date-info gnc:*fancy-date-format*)))
+	(let* ((date-format (gnc:fancy-date-info gnc:*fancy-date-format*)))
 	  (set! table (make-entry-table invoice
 					(gnc:report-options report-obj)
 					add-order cust-doc? credit-note?))
@@ -705,7 +704,7 @@
 
 	  (gnc:html-document-add-object!
 	   document
-	   (make-myname-table book date-format))
+	   (make-myname-table date-format))
 
 	  (let ((date-table #f)
 		(post-date (gncInvoiceGetDatePosted invoice))

src/report/business-reports/job-report.scm

@@ -506,7 +506,7 @@
      'attribute (list "valign" "top"))
     table))
 
-(define (make-myname-table book date-format)
+(define (make-myname-table date-format)
   (let* ((table (gnc:make-html-table))
 	 (name (gnc:company-info gnc:*company-name*))
 	 (addy (gnc:company-info gnc:*company-addy*)))
@@ -552,7 +552,6 @@
 	 (end-date (gnc:timepair-end-day-time 
 		       (gnc:date-option-absolute-time
 			(opt-val gnc:pagename-general (N_ "To")))))
-	 (book (gnc-get-current-book)) ;XXX Grab this from elsewhere
          (date-format (gnc:fancy-date-info gnc:*fancy-date-format*))
 	 (type (opt-val "__reg" "owner-type"))
 	 (type-str "")
@@ -607,7 +606,7 @@
 
 	  (gnc:html-document-add-object!
 	   document
-	   (make-myname-table book date-format))
+	   (make-myname-table date-format))
 
 	  (gnc:html-document-add-object!
 	   document

src/report/business-reports/owner-report.scm

@@ -711,7 +711,7 @@
      'attribute (list "valign" "top"))
     table))
 
-(define (make-myname-table book date-format)
+(define (make-myname-table date-format)
   (let* ((table (gnc:make-html-table))
      (name (gnc:company-info gnc:*company-name*))
      (addy (gnc:company-info gnc:*company-addy*)))
@@ -756,7 +756,6 @@
      (end-date (gnc:timepair-end-day-time 
                (gnc:date-option-absolute-time
                (opt-val gnc:pagename-general optname-to-date))))
-     (book (gnc-get-current-book)) ;XXX Grab this from elsewhere
      (date-format (gnc:fancy-date-info gnc:*fancy-date-format*))
      (type (opt-val "__reg" "owner-type"))
      (owner-descr (owner-string type))
@@ -803,7 +802,7 @@
 
         (gnc:html-document-add-object!
          document
-         (make-myname-table book date-format))
+         (make-myname-table date-format))
 
         (gnc:html-document-add-object!
          document

src/report/business-reports/taxinvoice.eguile.scm

@@ -35,7 +35,6 @@
     (let* (; invoice and company details
            (invoiceid    (gncInvoiceGetID         opt-invoice))
            (credit-note? (gncInvoiceGetIsCreditNote opt-invoice))
-           (book         (gncInvoiceGetBook       opt-invoice))
            (postdate     (gncInvoiceGetDatePosted opt-invoice))
            (duedate      (gncInvoiceGetDateDue    opt-invoice))
            (billingid    (gncInvoiceGetBillingID  opt-invoice))