/xquery/import-media-element.xql

http://transcriptstudio4isha.googlecode.com/ · Unknown · 31 lines · 27 code · 4 blank · 0 comment · 0 complexity · e77b9b9be6df0b359a0ffb27daf7aaac MD5 · raw file 

    

  1. xquery version "1.0";

    2. 

  2.  

    3. 

  3. declare option exist:serialize "media-type=text/plain";

    4. 

  4. 

    5. 

  5. import module namespace media-fns = "http://www.ishafoundation.org/ts4isha/xquery/media-fns" at "media-fns.xqm";

    6. 

  6. import module namespace utils = "http://www.ishafoundation.org/ts4isha/xquery/utils" at "utils.xqm";

    7. 

  7. 

    8. 

  8. if (not(utils:is-current-user-admin())) then	

    9. 

  9. 	error((xs:QName('access-control-exception')), 'Only admin user allowed to call this script')

    10. 

  10. else

    11. 

  11. 

    12. 

  12. let $sessionId := request:get-parameter("sessionId", ())

    13. 

  13. let $deviceCode := request:get-parameter("deviceCode", ())

    14. 

  14. let $mediaXML := util:parse(request:get-parameter("mediaXML", ()))

    15. 

  15. return

    16. 

  16. 	if (empty($sessionId)) then

    17. 

  17. 		error(xs:QName('missing-argument-exception'), 'No sessionId specified')

    18. 

  18. 	else if (empty($deviceCode)) then

    19. 

  19. 		error(xs:QName('missing-argument-exception'), 'No deviceCode specified')

    20. 

  20. 	else if (empty($mediaXML)) then

    21. 

  21. 		error(xs:QName('missing-argument-exception'), 'No mediaXML specified')

    22. 

  22. 	else

    23. 

  23. 		let $sessionXML := utils:get-session($sessionId)

    24. 

  24. 		return

    25. 

  25. 			if (empty($sessionXML)) then

    26. 

  26. 				error(xs:QName('illegal-argument-exception'), concat('Unknown sessionId: ', $sessionId))

    27. 

  27. 			else

    28. 

  28. 				let $mediaMetadataXML := media-fns:get-media-metadata-element($sessionXML)

    29. 

  29. 				let $deviceXML := media-fns:get-device-element($deviceCode, $mediaMetadataXML)

    30. 

  30. 				return

    31. 

  31. 					media-fns:import-media-element($mediaXML, $deviceXML)
    32.