<%@LANGUAGE="VBSCRIPT"%> <% ' ================================ ' AIS Debug variables ' ================================ Dim AISdebugSet AISdebugSet = "N" ' ===================================== ' Make sure to catch any database error ' ===================================== On Error Resume Next ' ================================ ' AISNews Recordset and variables ' ================================ Dim AISNews Dim AISNewsError Dim AISNewsIndex Set AISNews = Server.CreateObject("ADODB.Recordset") AISNews.ActiveConnection = MM_Foundation_STRING AISNews.Source = "select M.msg_id,M.title,M.abstract,M.author,M.details,M.urgency,M.msg_date,M.expiry_date,M.app_name,A.name from navigator.app_messages M, navigator.sys_applications A where M.app_name = A.code and trunc(sysdate) between M.msg_date and M.expiry_date-1 order by msg_date desc" AISNews.CursorType = 0 AISNews.CursorLocation = 2 AISNews.LockType = 1 AISNews.Open() ' Check that DB connection and SQL run went fine If Err.Number <> 0 Then AISNewsError= Err.Description Else AISNewsError= "None" End If AISNewsIndex = 0 ' ================================ ' AISFocus Recordset and variables ' ================================ Dim AISFocus Dim AISFocusError Dim AISFocusIndex Dim AISFocusShownAlways Dim AISFocusToBeShown Dim AISFocusRequestedId Dim AISFocusContent Dim AISUpperLeftImage Dim AISUpperRightImage Dim AISNextFocusId Dim AISPreviousFocusId Set AISFocus = Server.CreateObject("ADODB.Recordset") AISFocus.ActiveConnection = MM_AISweb_STRING AISFocus.Source = "SELECT id, title, text, upper_right_image, upper_left_image, date_from, date_to, always_shown FROM articles WHERE (articles.date_from<=Date() Or IsNull(articles.date_from)) And (articles.date_to>=Date() Or IsNull(articles.date_to)) ORDER BY articles.always_shown,articles.id;" AISFocus.CursorType = 0 AISFocus.CursorLocation = 2 AISFocus.LockType = 1 AISFocus.Open() ' Check that DB connection and SQL run went fine If Err.Number <> 0 Then AISFocusError= Err.Description Response.Write(""&AISFocusError&"") Else AISFocusError= "None" End If AISFocusRequestedId = Request.QueryString("focusid") ' ================================ ' AIS Procedures used in page ' ================================ sub getFocus() ' =========================================== ' GET FOCUS ' This procedure build the focus and store it ' in the AISFocusContent variable ' =========================================== If (AISFocus.EOF OR AISFocusError<> "None") Then Call AISdebug("Focus query returned NO records - maybe database connection error or no focus active") ' No focus found, maybe an error connecting the database or none is active... ' Display a default hardcoded focus item AISFocusContent= "

" AISFocusContent = AISFocusContent & "

AIS: the unique entry point to all administrative computing at CERN

" AISFocusContent = AISFocusContent & "
" AISFocusContent = AISFocusContent & "The AIS website provides you with links, documentation, Frequently Asked Questions pages, Quick Reference Guides etc on all administrative applications and projects at CERN." AISFocusContent = AISFocusContent & "

" AISFocusContent = AISFocusContent & "Choose one of the menu items on the left. If you are not sure on which option to use, the shortcuts on the right may help you finding the good one." Else Call AISdebug("Focus query returned records") AISFocusToBeShown = 0 ' Check if a given focus has been past as parameter ' In that case search for that focus (supposing it is active and therefore in the query results) If (AISFocusRequestedId) <> "" Then Call AISdebug("Requested focus: " & AISFocusRequestedId) AISFocus.MoveFirst Do Until (AISFocus.EOF) If (Cstr(AISFocus.Fields.Item("id")) = AISFocusRequestedId) Then AISFocusToBeShown = 1 Call AISdebug("Requested focus found: " & AISFocus.Fields.Item("title")) Exit Do Else Call AISdebug("Current focus id = " & AISFocus.Fields.Item("id")& ". Check next.") AISFocus.MoveNext End if Loop If (AISFocus.EOF) Then Call AISdebug("Requested focus not found or not active") End if End if ' Check if there was no requested focus or it has not been found or it is not active If (AISFocusToBeShown = 0) Then Call AISdebug("Choose a focus randomly") AISFocus.MoveFirst ' Check if there are any "Always Shown" focus (should always be on first record) AISFocusShownAlways = AISFocus.Fields.Item("always_shown").Value Call AISdebug("Always shown focus exists = " & AISFocusShownAlways) ' Check how many focus may be displayed (taking into account existence of "always shown" ones) While (NOT AISFocus.EOF) If AISFocusShownAlways Then ' There is at least one "Always Shown" focus, count only those ones If AISFocus.Fields.Item("always_shown").Value Then AISFocusIndex = AISFocusIndex+1 End If Else ' There are no "Always Shown" focus, all are counted AISFocusIndex = AISFocusIndex+1 End If AISFocus.MoveNext Wend Call AISdebug("Number of potential focus found = " & AISFocusIndex) ' Now decides (random) which focus is to be shown Randomize AISFocusToBeShown = Int((AISFocusIndex*Rnd)+1) Call AISdebug("Chosen focus = " & AISFocusToBeShown & "/" & AISFocusIndex) ' Move back to the randomly chosen focus AISFocus.MoveFirst For i = 1 to AISFocusToBeShown-1 AISFocus.MoveNext Next End if ' Now we should be placed on the focus to be displayed ' Get the to be displayed focus id AISFocusToBeShownId = AISFocus.Fields.Item("id") Call AISdebug("Chosen focus id = " & AISFocusToBeShownId) ' Find out what is the next focus id AISFocus.MoveNext If AISFocus.EOF Then AISFocus.MoveFirst End if AISNextFocusId = AISFocus.Fields.Item("id") Call AISdebug("Next focus id = " & AISNextFocusId) ' Move back to shown focus and find out at the same time which is the previous focus id AISFocus.MoveFirst If (AISFocus.Fields.Item("id") = AISFocusToBeShownId) Then ' Chosen focus was the first one, the previous one is therefore the last one Call AISdebug("Chosen focus is the first one") Do Until (AISFocus.EOF) AISPreviousFocusId = AISFocus.Fields.Item("id") AISFocus.MoveNext Loop AISFocus.MoveFirst Else Do While (AISFocus.Fields.Item("id") <> AISFocusToBeShownId) AISPreviousFocusId = AISFocus.Fields.Item("id") Call AISdebug(" - Current focus id = " & AISFocus.Fields.Item("id")) AISFocus.MoveNext Loop End If Call AISdebug(" - Moved back to chosen focus") Call AISdebug("Previous focus id = " & AISPreviousFocusId) ' Display the focus Call AISdebug("Build focus") AISUpperLeftImage = AISFocus.Fields.Item("upper_left_image") AISUpperRightImage = AISFocus.Fields.Item("upper_right_image") AISFocusContent = "" If (Len(AISUpperLeftImage)>0) Then Call AISdebug(" - upper left image is #" & AISUpperLeftImage & "#") AISFocusContent = AISFocusContent & "

" Else Call AISdebug(" - no upper left image") End if If (Len(AISUpperRightImage)>0) Then Call AISdebug(" - upper right image is #" & AISUpperRightImage & "#") AISFocusContent = AISFocusContent & "

" Else Call AISdebug(" - no upper right image") End if AISFocusContent = AISFocusContent & "

" & AISFocus.Fields.Item("Title").Value & "

" AISFocusContent = AISFocusContent & "
" AISFocusContent = AISFocusContent & AISFocus.Fields.Item("text") End If ' Checked if "any" focus was found end sub %> PAD: Frequently Asked Questions

CERN home > IT Department > AIS Home

Internal |

AIS Administrative Information Services

**Main Applications**

PAD Frequently Asked Questions

A problem that you may encounter may be very common, so check below to see if any of these frequently asked questions match your requirements.

GENERAL

What are the sytem requirements to use PAD?

You get the message:
Your current security settings prohibit running ActiveX controls on this page.
As a result, the page may not display correctly.

Who uses PAD?

What is PAD meant for?

Where can I get some training on PAD?

When I connect to PAD, I get the following message:
Java Plug-in 1.4.0_02 cannot be located because values in the register key
HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\JAVA Plug-in\1.4.0_02 is not found or is no longer valid

EXTERNALS

What type of externals can I enter in PAD?

I have entered a NEW external in PAD but cannot see it?

How far does the responsibility of the contact person go for an external at CERN?

COSTING

While entering my costing lines, I get an error message saying that mandatory fields are not filled eventhough they are

GENERAL

What are the sytem requirements to use PAD?

Please check this exhaustive list of PAD's system requirements.

You get the message:
Your current security settings prohibit running ActiveX controls on this page.
As a result, the page may not display correctly.

When you've just installed W2000 and try to access PAD using Internet Explorer the message above will appear.

Solution:

Choose option 'Tools- Internet options' from the Internet Explorer menu
Then go to 'Security'
Select 'Internet' and press the 'Custom level' button
Then ensure that you have the same options ticked:
Press OK, then select 'Local Intranet', press the 'Custom level' button and follow steps 4 and 5
Press OK.
Launch once again PAD. A message related to the installation of a Java plugin will appear on your screen.
Answer 'YES' and follow the procedure.

Who uses PAD?

PAD is used by all divisional and group secretaries at CERN except HR, FI Divisions and Users' Office.

What is PAD meant for?

PAD stands for Personnel Administration for Divisions. This application is used to create external persons, enter and modify internal addresses and update costings.

Where can I get some training on PAD?

If you are requested to use PAD and need training, please contact Doreen Klem by email or call 77609.

When I connect to PAD, I get the following message:
Java Plug-in 1.4.0_02 cannot be located because values in the register key
HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\JAVA Plug-in\1.4.0_02 is not found or is no longer valid

To solve this, please follow this procedure.

EXTERNALS

What type of externals can I enter in PAD?

In PAD you can only enter externals who are present at CERN in your division for a given period of time for which you need to enter a contact person, the reason of their stay at CERN and the start and expiry of their contract.

I have entered a NEW external in PAD but cannot see it?

Important concept: a NEW external as indicated in the text below means a person who has never been at CERN before.

In most cases this situation happens when you enter a NEW external in PAD in the future and not at today's date. For example, let's assume that today's date indicated in the 'From' field is 06-DEC-2001 and you enter your NEW external on 01-JAN-2002 and hence enter 01-JAN-2002 in the 'From' field.

When you then try to search for this NEW external at today's date (06-DEC-2001), you will not find the person because the later exists in PAD only as from the 01-JAN-2002.

Therefore, when entering your NEW external, please do not modifiy the date appearing in the 'From' field. Leave todays' date in the 'From' field and enter the NEW external contract dates in the 'Start' and 'Expiry' fields.

How far does the responsibility of the contact person go for an external at CERN?

Xavier Daney, HR division: (original version)
[1] [2]

"A mon avis, le garant CERN ne peut tre responsable que des dmarches habituelles entreprendre (lettres, information de l'employeur, etc.) en cas de non respect par un EXTERNAL de ses obligations vis vis du CERN. Dans le cas qui vous occuppe, le garant ne peut tre financirement responsable du non paiement de frais de logement. Par contre, il doit tout faire pour obliger l'EXTERNAL dont il est le garant payer les factures et frais non pays" [1]

COSTING

While entering my costing lines, I get an error message saying that mandatory fields are not filled eventhough they are

Here are the steps to follow:

first click on ADD to enter a new costing line
then enter the start date
then the costing
click ADD again to enter a second costing line
then enter the costing and
then the start date

This way you will not get the error message.