Hi Wendy,
I'm not sure exactly what you want. Do you get errors when you run the script? I do
see one possible cause for an error where you have:
$SelectQualifier = (ars_LoadQualifier($ctrl, "$SCHEMA", "('Modified-date'
>=(\$TIMESTAMP\$ - 60*60) OR 'Create-date' >= (\$TIMESTAMP
\$ - 60*60))
Notice the quote preceding "('Modified-date' on the first line? I don't see it
matched anywhere. The interpreter would thus take everything up to the next quote as
a single string, and probably will noit know what to do with it.
Try matching the quote, then run it again, and let us know what errors, if any, you
get.
Joseph
Wendy Stewart wrote:
> Hi,
>
> Help!! I'm a new Perl user and have devloped my first Perl script to
> extract fields from a Remedy form into a CSV file to be ftp'd elsewhere. I
> need to sort each record on Modified-date before writing to my output file.
> The Modified-date format is in absolute time
> (ie: 12/24/2002 7:17:13 PM). Here's a partial extract of my script:
>
> # The criteria is supposed to included everything modified in the past 1
> hour
> # which equates to the current time - (60 seconds * 60 minutes).
>
> $SelectQualifier = (ars_LoadQualifier($ctrl, "$SCHEMA", "('Modified-date'
> >=(\$TIMESTAMP\$ - 60*60) OR 'Create-date' >= (\$TIMESTAMP
> \$ - 60*60))
>
> %entries = ars_GetListEntry($ctrl, "$SCHEMA", $SelectQualifier, 0);
> print LOGCHAN "\nError from GetListEntry: ", $ars_errstr;
> $ModifiedDate = ars_GetFieldByName($ctrl, "$SCHEMA",
> "Modified-date");
> $CreateDate = ars_GetFieldByName($ctrl, "$SCHEMA", "Create-date");
> $USSO_Num = ars_GetFieldByName($ctrl, "$SCHEMA", "Formatted USSO
> #");
> $Coordinator_name = ars_GetFieldByName($ctrl, "$SCHEMA", "CKL_ISC");
>
> # print out the data for each record.
> $reccounter=0;
> #print ("\n about to enter loop\n");
> foreach $entryKey (keys %entries) {
> %vals = ars_GetEntry($ctrl, $SCHEMA, $entryKey);
> printf(DATAOUT "%-15.15s", $vals{$CreateDate}) , ",";
> print DATAOUT $vals{$ModifiedDate} , ",";
> print DATAOUT $vals{$USSO_Num} , ",";
> print DATAOUT $vals{$Coordinator_name} , ",";
> close(DATAOUT);
>
> #----------------------------------------------------------------------
> # Log out of the server.
> #----------------------------------------------------------------------
> ars_Logoff($ctrl);
>
> #----------------------------------------------------------------------
> # Transfer the files to the OEP Host
> #----------------------------------------------------------------------
> sub FtpDataFile
>
> Note: I found reference to the following but don't know if it should be
> incorporated into the script: use Shell qw(sort);
>
> Any help would be greatly appreciated.
>
> Thank you,
>
> Wendy Stewart
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
