view release on metacpan or  search on metacpan

doc/catalog.texinfo  view on Meta::CPAN

be included in a @code{form}. It includes the @strong{mode}, @strong{context} and
@strong{name} parameters.

  @cindex _PARAMS_
  @item _PARAMS_
List of current parameters, except @strong{context}. Suitable for inclusion
in a href.

  @cindex _WHAT-MENU_
  @item _WHAT-MENU_
A popup menu to select the @strong{what} parameter.

  @cindex _QUERYMODE-MENU_
  @item _QUERYMODE-MENU_
A popup menu to select the @strong{querymode} parameter.

  @end table

@end table

@node cdate_default.html, cdestroy.html, csearch.html, Catalog template files
@section cdate_default.html

Default template for display of date catalog nodes.

lib/Catalog.pm  view on Meta::CPAN

	    template_set($assoc, '_ID_', $id);
	    template_set($assoc, '_COUNT_', $count);
	    template_set($assoc, '_NAME_', $name);
	    $html .= $self->stemplate_build($template_catalogs);
	}

	$template_catalogs->{'html'} = $html;
    } else {
	$template_catalogs->{'skip'} = 'yes';
    }
    my($navigation) = $cgi->popup_menu(-name => 'navigation',
				       -values => ['theme', 'alpha', 'date'],
				       -default => 'theme',
				       -labels => {
					   'theme' => 'Thematical',
					   'alpha' => 'Alphabetical',
					   'date' => 'Chronological',
					   });
    template_set($template->{'assoc'}, '_NAVIGATION_', $navigation);
    my($tables) = $cgi->popup_menu(-name => 'table',
				   -values => $self->{'ctables'});
    template_set($template->{'assoc'}, '_TABLES_', $tables);
    template_set($template->{'assoc'}, '_COMMENT_', $cgi->param('comment'));
    return $self->stemplate_build($template);
}

#
# HTML import XML representation step 1
#
sub cimport {

lib/Catalog.pm  view on Meta::CPAN

    $self->csearch_fill_form($cgi, $template, 0);

    return $self->stemplate_build($template);
}

sub csearch_fill_form {
    my($self, $cgi, $template, $results_count) = @_;

    my($what) = $cgi->param('what');

    my($what_menu) = $cgi->popup_menu(-name => 'what',
				      -values => ['', 'categories', 'records'],
				      -default => '',
				      -labels => {
					  '' => 'Category Names and Records',
					  'categories' => 'Category Names only',
					  'records' => 'Records only',
				      });
    my($querymode_menu) = $cgi->popup_menu(-name => 'querymode',
					   -values => ['simple', 'advanced'],
					   -default => 'simple',
					   -labels => {
					       'simple' => 'Simple Syntax',
					       'advanced' => 'Advanced Syntax',
					   });
    my($querymode) = $cgi->param('querymode') || 'simple';
    my($notquerymode) = $querymode eq 'simple' ? 'advanced' : 'simple';
    my(%has_template) = (
			 'simple' => exists($template->{'children'}->{'simple'}),