EPrints Technical Mailing List Archive

See the EPrints wiki for instructions on how to join this mailing list and related information.

Message: #02909

< Previous (by date) | Next (by date) > | < Previous (in thread) | Next (in thread) > | Messages - Most Recent First | Threads - Most Recent First

[EP-tech] Re: Simple(?) eprints make_element question

I was going to say, this is how I've done Radio Buttons, with setting the right selected element: 

    foreach
my $card ( sort { $a->get_value('email') cmp $b->get_value('email') } 
      @postcards )
    {
      my $div   = $session->make_element('div');
      my $label = $session->make_element('label');
      $div->appendChild($label);
      my $input = $session->render_input_field(
        type     => 'radio',
        name     => 'rjb_email',
        value    => $card->get_value('email'),
        class    => 'ep_form_checkbox',
        onChange => 'autoSubmitEmail();'
      );
      $label->appendChild($input);
      $label->appendChild(
        $session->make_text(
                q{ }
              . $card->get_value('email')
              . ' (watching '
              . scalar @{ $card->get_value('repos') }
              . ' repositories) '
        )
      );
      my $href = $session->render_link(
        $session->get_uri . '?remove_email=' . $card->get_value('email') );
      my $span
= $session->make_element( 'span', 'class' => 'ep_form_field_help' ); 
      $href->appendChild( $session->html_phrase('subscriber_remove') );
      $span->appendChild( $session->make_text('<') );
      $span->appendChild($href);
      $span->appendChild( $session->make_text('>') );
      $label->appendChild($span);

      # This is where we know what card we're looking at
      # (and yes, we're cheating - we should use
      # $subscriber->get_postcard($current_email) - but we're here anyway
      if ( $card->get_value('email') eq $current_email ) {
        $input->setAttribute( 'checked', 'checked' );
        $current_card = $card;
      }
      $fieldset->appendChild($div);
    } ## end foreach my $card ( sort { $a...})


--

Ian Stuart.
Developer: ORI, RJ-Broker, and OpenDepot.org
Bibliographics and Multimedia Service Delivery team,
EDINA,
The University of Edinburgh.

http://edina.ac.uk/

This email was sent via the University of Edinburgh.

The University of Edinburgh is a charitable body, registered in
Scotland, with registration number SC005336.