fs_selfservice/FS-SelfService/cgi/change_pkg.html

   1 <SCRIPT TYPE="text/javascript">
   2 function enable_change_pkg () {
   3   if ( document.ChangePkgForm.pkgpart.selectedIndex > 0 ) {
   4     document.ChangePkgForm.submit.disabled = false;
   5   } else {
   6     document.ChangePkgForm.submit.disabled = true;
   7   }
   8 }
   9 </SCRIPT>
  10 <FONT SIZE=4>Purchase replacement package for "<%= $pkg; %>"</FONT><BR><BR>
  11 <%= if ( $error ) {
  12   $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!;
  13 } ''; %>
  14 <FORM NAME="ChangePkgForm" ACTION="<%= $selfurl %>" METHOD=POST>
  15 <INPUT TYPE="hidden" NAME="session" VALUE="<%= $session_id %>">
  16 <INPUT TYPE="hidden" NAME="action" VALUE="process_change_pkg">
  17 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<%= $pkgnum %>">
  18 <INPUT TYPE="hidden" NAME="pkg" VALUE="<%= $pkg %>">
  19 <TABLE BGCOLOR="#cccccc" BORDER=0 CELLSPACING=0>
  20 <TR>
  21   <TD COLSPAN=2><SELECT NAME="pkgpart" onChange="enable_change_pkg()">
  22   <OPTION VALUE="">
  23
  24   <%=
  25     foreach my $part_pkg ( @part_pkg ) {
  26       $OUT .= '<OPTION VALUE="'. $part_pkg->{'pkgpart'}. '"';
  27       $OUT .= ' SELECTED' if $pkgpart && $part_pkg->{'pkgpart'} == $pkgpart;
  28       $OUT .= '>'. $part_pkg->{'pkg'};
  29     }
  30   %>
  31
  32   </SELECT></TD>
  33 </TR>
  34 </TABLE>
  35 <INPUT NAME="submit" TYPE="submit" VALUE="Purchase" disabled>
  36 </FORM>
  37