Index: openacs-4/packages/ecommerce/www/admin/orders/track.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/track.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/ecommerce/www/admin/orders/track.tcl	1 Jan 2009 15:22:41 -0000	1.8
+++ openacs-4/packages/ecommerce/www/admin/orders/track.tcl	2 Feb 2009 15:04:41 -0000	1.9
@@ -66,15 +66,15 @@
     }
 
 } elseif { [string match "UPS*" $carrier] } {
-    set ups_url "http://wwwapps.ups.com/etracking/tracking.cgi?submit=Track&InquiryNumber1=$tracking_number&TypeOfInquiryNumber=T&build_detail=yes"
+    set ups_url "http://wwwapps.ups.com/WebTracking/track?trackNums=$tracking_number&track.x=track"
     with_catch errmsg {
         set ups_page [ns_httpget $ups_url]
-        if { ![regexp {(<TR><TD[^>]*>Tracking Number:.*</TABLE>).*Tracking results provided by UPS} $ups_page match ups_info] } {
+        if { ![regexp {(<!-- Begin Summary List -->.*<!-- End Summary List -->)} $ups_page match ups_info] } {
             set carrier_info "Unable to parse detail data from UPS."
         } else {
             # Remove spacer images
             regsub -all -nocase {<img.*?>} $ups_info "" ups_info
-            set carrier_info "<table noborder>$ups_info"
+            set carrier_info "<table noborder>$ups_info</table>"
         }
     } {
         set carrier_info "Unable to retrieve data from UPS."