65b622c361
New Features: - USB Device checkout/check-in system with barcode scanning - displayusb.asp: List all USB devices with status - addusb.asp: Add new USB devices via barcode scan - checkout_usb.asp/savecheckout_usb.asp: Check out USB to SSO - checkin_usb.asp/savecheckin_usb.asp: Check in with wipe confirmation - usb_history.asp: Full checkout history with filters - api_usb.asp: JSON API for AJAX lookups - displayprofile.asp: SSO profile page showing user info and USB history - Date/time format changed to 12-hour (MM/DD/YYYY h:mm AM/PM) - SSO links in USB history now link to profile page via search Database: - New machinetypeid 44 for USB devices - New usb_checkouts table for tracking checkouts Cleanup: - Removed v2 folder (duplicate/old files) - Removed old debug/test files - Removed completed migration documentation 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
63 lines
2.2 KiB
Plaintext
63 lines
2.2 KiB
Plaintext
<!--#include file="./includes/sql.asp"-->
|
|
<!--#include file="./includes/validation.asp"-->
|
|
<!--#include file="./includes/encoding.asp"-->
|
|
<!--#include file="./includes/error_handler.asp"-->
|
|
<!--#include file="./includes/db_helpers.asp"-->
|
|
<%
|
|
' Initialize error handling
|
|
Call InitializeErrorHandling("savedevice.asp")
|
|
|
|
' Get the serial number from the form
|
|
Dim serialnumber
|
|
serialnumber = Trim(Request.Form("serialnumber"))
|
|
|
|
' Validate serial number format and length
|
|
If Not ValidateSerialNumber(serialnumber) Then
|
|
Call CleanupResources()
|
|
Response.Redirect("./adddevice.asp?error=INVALID_SERIAL")
|
|
Response.End
|
|
End If
|
|
|
|
' Check if serial number already exists - PHASE 2: Use machines table
|
|
Dim checkSQL, rsCheck, existingMachineID
|
|
checkSQL = "SELECT machineid FROM machines WHERE serialnumber = ? AND machinetypeid IN (33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43)"
|
|
Set rsCheck = ExecuteParameterizedQuery(objConn, checkSQL, Array(serialnumber))
|
|
|
|
If Not rsCheck.EOF Then
|
|
' Serial number already exists - redirect to edit page
|
|
existingMachineID = rsCheck("machineid")
|
|
rsCheck.Close
|
|
Set rsCheck = Nothing
|
|
Call CleanupResources()
|
|
Response.Redirect("./editdevice.asp?pcid=" & existingMachineID & "&scanned=1")
|
|
Response.End
|
|
End If
|
|
|
|
rsCheck.Close
|
|
Set rsCheck = Nothing
|
|
|
|
' Insert new device with minimal required fields - PHASE 2: Use machines table
|
|
' machinestatusid = 2 (Inventory)
|
|
' isactive = 1
|
|
' modelnumberid = 1 (default model)
|
|
' requires_manual_machine_config = 0 (no manual config needed)
|
|
' osid = 1 (default OS)
|
|
' machinetypeid = 28 (PC - Standard default)
|
|
' pctypeid = 1 (Standard PC type)
|
|
Dim insertSQL, recordsAffected
|
|
insertSQL = "INSERT INTO machines (serialnumber, machinestatusid, isactive, modelnumberid, requires_manual_machine_config, osid, machinetypeid, pctypeid, lastupdated) " & _
|
|
"VALUES (?, 2, 1, 1, 0, 1, 28, 1, NOW())"
|
|
|
|
recordsAffected = ExecuteParameterizedInsert(objConn, insertSQL, Array(serialnumber))
|
|
|
|
' Cleanup and redirect
|
|
Call CleanupResources()
|
|
|
|
If recordsAffected > 0 Then
|
|
' Success - redirect back with success message
|
|
Response.Redirect("./adddevice.asp?added=" & Server.URLEncode(serialnumber))
|
|
Else
|
|
Response.Redirect("./adddevice.asp?error=db")
|
|
End If
|
|
%>
|