[open-ils-commits] r12733 - trunk/Open-ILS/src/support-scripts/test-scripts (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-31 10:25:59 -0400 (Tue, 31 Mar 2009)
New Revision: 12733

Modified:
   trunk/Open-ILS/src/support-scripts/test-scripts/print_po.pl
Log:
some formatting

Modified: trunk/Open-ILS/src/support-scripts/test-scripts/print_po.pl
===================================================================
--- trunk/Open-ILS/src/support-scripts/test-scripts/print_po.pl	2009-03-31 14:15:35 UTC (rev 12732)
+++ trunk/Open-ILS/src/support-scripts/test-scripts/print_po.pl	2009-03-31 14:25:59 UTC (rev 12733)
@@ -37,9 +37,8 @@
 print 'PO ID: ' . $po->id . "\n";
 print 'Ordering Agency: ' . $po->ordering_agency->shortname . "\n";
 
-print "\n";
 if(my $addr = $po->ordering_agency->mailing_address) {
-    print "  Mailing Address: \n";
+    print "Mailing Address: \n";
     print '  street1: ' . $addr->street1 . "\n";
     print '  street2: ' . $addr->street2 . "\n";
     print '  city: ' . $addr->city . "\n";
@@ -49,9 +48,8 @@
     print '  post_code: ' . $addr->post_code . "\n";
 }
 
-print "\n";
 if(my $addr = $po->ordering_agency->billing_address) {
-    print "  Billing Address: \n";
+    print "Billing Address: \n";
     print '  street1: ' . $addr->street1 . "\n";
     print '  street2: ' . $addr->street2 . "\n";
     print '  city: ' . $addr->city . "\n";
@@ -61,9 +59,9 @@
     print '  post_code: ' . $addr->post_code . "\n";
 }
 
-print "\n";
 print 'Provider: ' . $po->provider->code . "\n";
 if(my $addr = $po->provider->addresses->[0]) {
+    print "Provider Address:\n";
     print '  street1: ' . $addr->street1 . "\n";
     print '  street2: ' . $addr->street2 . "\n";
     print '  city: ' . $addr->city . "\n";
@@ -72,17 +70,16 @@
     print '  country: ' . $addr->country . "\n";
     print '  post_code: ' . $addr->post_code . "\n";
 }
-print "\n";
 
 for my $li (@{$po->lineitems}) {
 
-    print "  Lineitem:------------------\n";
+    print "Lineitem:------------------\n";
     for my $li_attr (@{$li->attributes}) {
         print "  " . $li_attr->attr_name . ': ' . $li_attr->attr_value . "\n";
     }
 
     for my $li_det (@{$li->lineitem_details}) {
-        print "    Copy----------------------\n";
+        print "  Copy----------------------\n";
         print "    Owning Lib: " . $li_det->owning_lib->shortname . "\n";
         print "    Fund: " . $li_det->fund->code . "\n";
         print "    Location: " . $li_det->location->name . "\n";