# Copyright 2002-2009 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.

UserTag search              Order        search
UserTag search              addAttr
UserTag search              Version      $Revision: 1.5 $
UserTag search              MapRoutine   Vend::Page::do_search

sub do_search {
my($c) = @_;
::update_user();

# If search parameters not passed in via function, then safely pull them from
# the CGI values.
if (!is_hash($c)) {
  $c = find_search_params(\%CGI::values);
  _check_search_file($c);
}

if ($c->{mv_more_matches}) {
  $Vend::Session->{last_search} = "scan/MM=$c->{mv_more_matches}";
  $c->{mv_more_matches} =~ m/([a-zA-Z0-9])+/;
  $c->{mv_cache_key} = $1;
}
else {
  create_last_search($c);
}

$c->{mv_cache_key} = generate_key($Vend::Session->{last_search})
    unless defined $c->{mv_cache_key};

my $retval = perform_search($c);

if (ref($retval)) {
  $::Instance->{SearchObject}{''} = $retval;
  $CGI::values{mv_nextpage}  = $retval->{mv_search_page}
    || find_special_page('search')
      if ! $CGI::values{mv_nextpage};
}
return 1;
}