add cart clearing action

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Container.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Container.pm
index c692b94..6fbd2fa 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Container.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Container.pm
@@ -252,9 +252,11 @@ sub mylist_action_redirect {
     if( my $anchor = $self->cgi->param('anchor') ) {
         # on the results page, we want to redirect 
         # back to record that was affected
-        $url = $self->ctx->{referer};
+        $url = $self->cgi->param('redirect_to') // $self->ctx->{referer};
         $url =~ s/#.*|$/#$anchor/;
-    } 
+    } else {
+        $url = $self->cgi->param('redirect_to') // $self->ctx->{referer};
+    }
 
     return $self->generic_redirect(
         $url,

diff --git a/Open-ILS/src/templates/opac/parts/cart.tt2 b/Open-ILS/src/templates/opac/parts/cart.tt2
index 2fcbb62..449acfc 100644 (file)
--- a/Open-ILS/src/templates/opac/parts/cart.tt2
+++ b/Open-ILS/src/templates/opac/parts/cart.tt2
@@ -6,7 +6,7 @@
         <li><a href="[% mkurl(ctx.opac_root _ '/mylist/print', {}) %]">[% l('Print Title Details') %]</a></li>
         <li><a href="#">[% l('Email Title Details') %]</a></li>
         <li><a href="[% mkurl(ctx.opac_root _ '/myopac/lists', {}) %]">[% l('Add Cart to Saved List') %]</a></li>
-        <li><a href="#">[% l('Clear Cart') %]</a></li>
+        <li><a href="[% mkurl(ctx.opac_root _ '/mylist/clear', {}) %]">[% l('Clear Cart') %]</a></li>
       </ul>
     </li>
   </ul>