add 'add to new list' action on the view basket page (for baskets only)

Signed-off-by: Galen Charlton <gmc@equinoxintiative.org>

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 ae7df1e..65f08e6 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Container.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Container.pm
@@ -286,6 +286,11 @@ sub load_mylist_move {
         my $temp_cache_key = $self->_stash_record_list_in_anon_cache(@rec_ids);
         return $self->load_mylist_email($temp_cache_key);
     }
+    if ($action eq 'new_list') {
+        my $url = $self->apache->unparsed_uri;
+        $url =~ s!/mylist/move!/myopac/lists!;
+        return $self->generic_redirect($url);
+    }
 
     return $self->mylist_action_redirect unless $cache_key;
 

diff --git a/Open-ILS/src/templates/opac/parts/anon_list.tt2 b/Open-ILS/src/templates/opac/parts/anon_list.tt2
index db0fcce..d9bd3e9 100644 (file)
--- a/Open-ILS/src/templates/opac/parts/anon_list.tt2
+++ b/Open-ILS/src/templates/opac/parts/anon_list.tt2
@@ -21,6 +21,7 @@
                 <option value="print">[% l('Print title details') %]</option>
                 <option value="email">[% l('Email title details') %]</option>
                 <option value="delete">[% l('Remove from basket') %]</option>
+                <option value="new_list">[% l('Add to new list') %]</option>
                 [% IF ctx.user AND ctx.bookbags.size %]
                     <optgroup label="[% l('Move selected items to list:') %]">
                     [% FOR bbag IN ctx.bookbags %]]