Subversion Repositories VORC

Rev

Rev 98 | Rev 112 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 98 Rev 99
Line 47... Line 47...
47
  print $WARNING, $h->form ({ action=>url }, [
47
  print $WARNING, $h->form ({ action=>url }, [
48
    $h->input ({ type=>"hidden", name=>"change", value=>"add" }),
48
    $h->input ({ type=>"hidden", name=>"change", value=>"add" }),
49
    $h->input ({ type=>"hidden", name=>"id", value=>$id }),
49
    $h->input ({ type=>"hidden", name=>"id", value=>$id }),
50
    $h->input ({ type=>"hidden", name=>"role", value=>$role }),
50
    $h->input ({ type=>"hidden", name=>"role", value=>$role }),
51
    $department eq "CLA" ? $h->p ("Add User to Class ($id):") : $h->p ("Add User to Shift ($id):"),
51
    $department eq "CLA" ? $h->p ("Add User to Class ($id):") : $h->p ("Add User to Shift ($id):"),
52
    $h->input ({ name => "RCid-picker", id=>"pickname", list => "eligibleusers" }).$h->datalist ({ id => "eligibleusers" }, [$options]),
52
    $h->input ({ name => "RCid-picker", id=>"pickname", list => "eligibleusers" }).$h->tag ("datalist", { id => "eligibleusers" }, [$options]),
53
    $h->input ({ type=>"hidden", name=>"RCid", id=>"pickname-hidden" }),
53
    $h->input ({ type=>"hidden", name=>"RCid", id=>"pickname-hidden" }),
54
    $h->input ({ type=>"submit", value=>"Save", onClick=>"if (isInt(document.getElementById('pickname').value)) { return false } else { return isInt(document.getElementById('pickname-hidden').value) };" }),
54
    $h->input ({ type=>"submit", value=>"Save", onClick=>"if (isInt(document.getElementById('pickname').value)) { return false } else { return isInt(document.getElementById('pickname-hidden').value) };" }),
55
    $h->button ({ onClick=>"window.close();" }, "Cancel")
55
    $h->button ({ onClick=>"window.close();" }, "Cancel")
56
  ]);
56
  ]);
57
  print<<JAVASCRIPT;
57
  print<<JAVASCRIPT;