Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Q
qtmoko-ics2qtcal
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Analytics
Analytics
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Commits
Open sidebar
Adrien Dorsaz
qtmoko-ics2qtcal
Commits
09bf2b60
Commit
09bf2b60
authored
Mar 03, 2013
by
Adrien Dorsaz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix bug while handling references.
parent
b2c843ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
4 deletions
+10
-4
ics2qtcal.pl
ics2qtcal.pl
+10
-4
No files found.
ics2qtcal.pl
View file @
09bf2b60
...
...
@@ -254,14 +254,20 @@ main:
my
$time
=
time
;
# Loop through ical Events
while
(
my
(
$uid
,
%event
)
=
each
(
%allevents
)){
while
(
my
(
$uid
,
$icalref
)
=
each
(
%allevents
)){
my
@icalobject
=
@
{
$icalref
};
debug
("
uid found :
$uid
- Reading the ical event
");
# Tie::iCal has structure :
# $events{'a_unique_uid'} = ['VEVENT', {'NAME1' => 'VALUE1'}]
# where VEVENT is the type of the iCal compenent (see rfc RFC 2445)
my
@component
=
@
{
$allevents
{
$uid
}};
debug
("
Prepare the
$component
[0] ical object recid=
$recid
");
if
(
$component
[
0
]
eq
'
VEVENT
'){
# In our case we've :
# %allevevents = { $uid => @icalobject}
# and $icalobject = [$icalType, %icalProperties]
my
$icalType
=
$icalobject
[
0
];
my
$icalProperties
=
$icalobject
[
1
];
debug
("
Prepare the
$icalType
ical object recid=
$recid
");
if
(
$icalType
eq
'
VEVENT
'){
my
%event
=
%
{
$icalProperties
};
# Description
my
$description
=
$event
{
SUMMARY
};
# Ignore the possible language given in this line
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment