Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -N -r1.189 -r1.190
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	27 Nov 2009 16:15:43 -0000	1.189
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Nov 2009 10:22:00 -0000	1.190
@@ -776,9 +776,10 @@
     foreach package_instance_url $package_path {
       #my msg "compare $package_instance_url eq $package_url"
       if {$package_instance_url eq $package_url} continue
-      lappend packages ::[::xowiki::Package initialize -url $package_instance_url/[my set object] -keep_cc true -init_url false]
+      lappend packages ::[::xowiki::Package initialize \
+                              -url $package_instance_url/[my set object] \
+                              -keep_cc true -init_url false]
     }
-
     # final sanity check, in case package->initialize is broken
     set p [lsearch $packages ::[my id]]
     if {$p > -1} {set packages [lreplace $packages $p $p]}
@@ -787,7 +788,11 @@
     return $packages
   }
 
-  Package instproc lookup {{-default_lang ""} -name:required -parent_id} {
+  Package instproc lookup {
+    {-default_lang ""} 
+    -name:required 
+    -parent_id
+  } {
     # Lookup of names from a given parent_id or from the list of
     # configured instances (obtained via package_path).
     #
@@ -813,6 +818,208 @@
     return $item_id
   }
 
+
+
+  #
+  # Resolving item refs 
+  # (symbolic references to content items and content folders)
+  #
+
+  Package ad_instproc item_ref {
+    -default_lang:required 
+    -parent_id:required 
+    link
+  } {
+
+    An item_ref refers to an item in the content repository relative
+    to some parent_id. The item might be either a folder or some kind
+    of "page" (e.g. a file). An item_ref might be complex,
+    i.e. consist of a path of simple_item_refs, separated by "/".
+    An item_ref stops at the first unknown part in the path and
+    returns item_id == 0 and the appropriate parent_id (and name etc.) 
+    for insertion.
+
+  } {
+    # A trailing slash says that the last element is a folder. We
+    # substitute it to allow easy iteration over the slash separated
+    # segments.
+    if {[string match */ $link]} {
+      set llink [string trimright $link /]\0
+    } else {
+      set llink $link
+    }
+
+    set elements [split $llink /]
+    # Get start-page, if path is empty
+    if {[llength $elements] == 0} {
+      set link [my get_parameter index_page "index"]
+      set elements [list $link]
+    }
+
+    # Iterate until the first unknown element appears in the path
+    # (we can handle only one unknown at a time).
+    set nr_elements [llength $elements]
+    set n 0
+    foreach element $elements {
+      set (last_parent_id) $parent_id
+      array set "" [my simple_item_ref \
+                        -default_lang $default_lang \
+                        -parent_id $parent_id \
+                        -assume_folder [expr {[incr n] < $nr_elements}] \
+                        $element]
+      if {$(item_id) == 0} {
+        set parent_id $(parent_id)
+        break
+      } else {
+        set parent_id $(item_id)
+      }
+    }
+
+    return [list link $link link_type $(link_type) form $(form) \
+                prefix $(prefix) stripped_name $(stripped_name) \
+                item_id $(item_id) parent_id $(parent_id)]
+  }
+
+  Package instproc item_id_ref {
+    item_id
+  } {
+    set name [::xo::db::CrClass get_name -item_id $item_id]
+    set type [::xo::db::CrClass get_object_type -item_id $item_id]
+    set parent_id [::xo::db::CrClass get_parent_id -item_id $item_id]
+    #my log "lookup returned name=$name (type $type, name $name, type $type)"
+
+    if {$type eq "content_folder"} {
+      return [list link_type "folder" prefix "" stripped_name $name parent_id $parent_id]
+    } else {
+      regexp {^(.+):(.+)$} $name _ prefix stripped_name
+      return [list link_type "link" prefix $prefix stripped_name $stripped_name parent_id $parent_id]
+    }
+  }
+ 
+  Package instproc simple_item_ref {
+    -default_lang:required 
+    -parent_id:required 
+    {-assume_folder:required false}
+    element
+  } {
+    set element [my normalize_name $element]
+    #my msg el=$element-assume_folder=$assume_folder
+    set (form) ""
+    set use_default_lang 0
+
+    if {[regexp {^(file|image|js|css|swf):(.+)$} $element _ \
+             (link_type) (stripped_name)]} {
+      # (typed) file links
+      set (prefix) file
+      set name file:$(stripped_name)
+    } elseif {[regexp {^(..):([^:]{3,}?):(..):(.+)$} $element _ form_lang form (prefix) (stripped_name)]} {
+      array set "" [list link_type "link" form "$form_lang:$form"]
+      set name $(prefix):$(stripped_name)
+      #my msg "FIRST case name=$name, form=$form_lang:$form"
+    } elseif {[regexp {^(..):([^:]{3,}?):(.+)$} $element _ form_lang form (stripped_name)]} {
+      array set "" [list link_type "link" form "$form_lang:$form" prefix $default_lang]
+      set name $default_lang:$(stripped_name)
+      set use_default_lang 1
+      #my msg "SECOND case name=$name, form=$form_lang:$form"
+    } elseif {[regexp {^([^:]{3,}?):(..):(.+)$} $element _ form (prefix) (stripped_name)]} {
+      array set "" [list link_type "link" form "$default_lang:$form"]
+      set name $(prefix):$(stripped_name)
+      #my msg "THIRD case name=$name, form=$default_lang:$form"
+    } elseif {[regexp {^([^:]{3,}?):(.+)$} $element _ form (stripped_name)]} {
+      array set "" [list link_type "link" form "$default_lang:$form" prefix $default_lang]
+      set name $default_lang:$(stripped_name)
+      set use_default_lang 1
+      #my msg "FOURTH case name=$name, form=$default_lang:$form"
+    } elseif {[regexp {^(..):(.+)$} $element _ (prefix) (stripped_name)]} {
+      array set "" [list link_type "link"]
+      set name $(prefix):$(stripped_name)
+    } elseif {[regexp {^(.+)\0$} $element _ (stripped_name)]} {
+      array set "" [list link_type "link" form "$default_lang:folder" prefix $default_lang]
+      set name $default_lang:$(stripped_name)
+      set use_default_lang 1
+    } elseif {$assume_folder} {
+      array set "" [list link_type "link" form "$default_lang:folder" prefix $default_lang stripped_name $element]
+      set name $default_lang:$element
+      set use_default_lang 1
+    } else {
+      array set "" [list link_type "link" prefix $default_lang stripped_name $element]
+      set name $default_lang:$element
+      set use_default_lang 1
+    }
+    set name [string trimright $name \0]
+    set (stripped_name) [string trimright $(stripped_name) \0]
+
+    if {$element eq "." || $element eq ".\0"} {
+      array set "" [my item_id_ref $parent_id]
+      set item_id $parent_id
+      set parent_id $(parent_id)
+    } elseif {$element eq ".." || $element eq "..\0"} {
+      set id [::xo::db::CrClass get_parent_id -item_id $parent_id]
+      if {$id > 0} {
+        # refuse to traverse past root folder
+        set parent_id $id
+      }
+      array set "" [my item_id_ref $parent_id]
+      set item_id $parent_id
+      set parent_id $(parent_id)
+    } else {
+      # with the following construct we need in most cases just 1 lookup
+
+      set item_id [my lookup -name $name -parent_id $parent_id]
+      #my msg "[my id] lookup -name $name -parent_id $parent_id => $item_id"
+
+      if {$item_id == 0} {
+        #
+        # The first lookup was not successful, so we try again. 
+        #
+        if {$(link_type) eq "link" && $use_default_lang && $(prefix) ne "en"} {
+          #
+          # If the name was not specified explicitely (we are using
+          # $default_lang), try again with language "en" try again,
+          # maybe element is folder in a different language
+          #
+          set item_id [my lookup -name en:$(stripped_name) -parent_id $parent_id]
+          #my msg "try again in en en:$(stripped_name) => $item_id"
+          if {$item_id > 0} {array set "" [list link_type "link" prefix en]}
+        }
+
+        # If the item is still unknown, try filename-based lookup,
+        # when the entry looks like a filename with an extension.
+        if {$item_id == 0 && [string match *.* $element]} {
+          #
+          # Get the mime type to distinguish between images, flash
+          # files and ordinary files. 
+          #
+          set mime_type [::xowiki::guesstype $name]
+          set (prefix) file
+          switch -glob $mime_type {
+            "image/*" {
+              set name file:$(stripped_name)
+              set (link_type) image
+            }
+	    application/x-shockwave-flash {
+              set name file:$(stripped_name)
+              set (link_type) swf
+	    }
+            default {
+              set name file:$(stripped_name)
+              set (link_type) file
+            }
+          }
+          set item_id [my lookup -name file:$(stripped_name) -parent_id $parent_id]
+        }
+      }
+    }
+
+    #my msg "return link_type $(link_type) prefix $(prefix) stripped_name $(stripped_name) form $(form) parent_id $parent_id item_id $item_id"
+    return [list link_type $(link_type) prefix $(prefix) stripped_name $(stripped_name) \
+                form $(form) parent_id $parent_id item_id $item_id ]
+  }
+
+  #
+  # import for prototype pages
+  # 
+
   Package instproc import-prototype-page {{prototype_name ""}} {
     set page ""
     if {$prototype_name eq ""} {
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.380 -r1.381
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	27 Nov 2009 16:15:43 -0000	1.380
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Nov 2009 10:22:00 -0000	1.381
@@ -1222,11 +1222,8 @@
     return [list name $name lang $lang normalized_name $normalized_name anchor $anchor query $query]
   }
 
-  #
-  # Resolving item refs 
-  # (symbolic references to content items and content folders)
-  #
-
+  Page instforward item_ref -verbose {%my package_id} %proc
+  
   Page ad_instproc package_item_ref {
     -default_lang:required 
     -parent_id:required 
@@ -1246,180 +1243,9 @@
     if {$referenced_package_id != $package_id} {
       set parent_id [$referenced_package_id folder_id]
     }
-    return [my item_ref -default_lang $default_lang -parent_id $parent_id $link]
+    return [$referenced_package_id item_ref -default_lang $default_lang -parent_id $parent_id $link]
   }
 
-  Page ad_instproc item_ref {
-    -default_lang:required 
-    -parent_id:required 
-    link
-  } {
-
-    An item_ref refers to an item in the content repository relative
-    to some parent_id. The item might be either a folder or some kind
-    of "page" (e.g. a file). An item_ref might be complex,
-    i.e. consist of a path of simple_item_refs, separated by "/".
-    An item_ref stops at the first unknown part in the path and
-    returns item_id == 0 and the appropriate parent_id (and name etc.) 
-    for insertion.
-
-  } {
-    # A trailing slash says that the last element is a folder. We
-    # substitute it to allow easy iteration over the slash separated
-    # segments.
-    if {[string match */ $link]} {
-      set link [string trimright $link /]\0
-    }
-    # Iterate until the first unknown element appears in the path
-    # (we can handle only one unknown at a time).
-    set elements [split $link /]
-    set nr_elements [llength $elements]
-    set n 0
-    foreach element $elements {
-      set (last_parent_id) $parent_id
-      array set "" [my simple_item_ref \
-                        -default_lang $default_lang \
-                        -parent_id $parent_id \
-                        -assume_folder [expr {[incr n]<$nr_elements}] \
-                        $element]
-      if {$(item_id) == 0} {
-        set parent_id $(parent_id)
-        break
-      } else {
-        set parent_id $(item_id)
-      }
-    }
-
-    # the following 2 lines are just for now:
-    #set name [expr {$(prefix) eq "" ? $(stripped_name) : "$(prefix):$(stripped_name)"}]
-    #set url [[my package_id] pretty_link -parent_id $(parent_id) $name]
-    #
-
-    return [list link_type $(link_type) form $(form) \
-                prefix $(prefix) stripped_name $(stripped_name) \
-                item_id $(item_id) parent_id $(parent_id)]
-  }
-
-  Page instproc item_id_ref {
-    item_id
-  } {
-    set name [::xo::db::Class get_name -id $item_id]
-    set type [::xo::db::Class get_object_type -id $item_id]
-    set parent_id [::xo::db::Class get_parent_id -id $item_id]
-    #my log "lookup returned name=$name (type $type)"
-    if {$type eq "content_folder"} {
-      return [list link_type "folder" prefix "" stripped_name $name parent_id $parent_id]
-    } else {
-      regexp {^(.+):(.+)$} $name _ prefix stripped_name
-      return [list link_type "link" prefix $prefix stripped_name $stripped_name parent_id $parent_id]
-    }
-  }
- 
-  Page instproc simple_item_ref {
-    -default_lang:required 
-    -parent_id:required 
-    {-assume_folder:required false}
-    element
-  } {
-    set element [[my package_id] normalize_name $element]
-    #my msg el=$element-assume_folder=$assume_folder
-    set (form) ""
-
-    if {[regexp {^(file|image|js|css|swf):(.+)$} $element _ \
-             (link_type) (stripped_name)]} {
-      # (typed) file links
-      set (prefix) file
-      set name file:$(stripped_name)
-    } elseif {[regexp {^(..):([^:]{3,}?):(..):(.+)$} $element _ form_lang form (prefix) (stripped_name)]} {
-      array set "" [list link_type "link" form "$form_lang:$form"]
-      set name $(prefix):$(stripped_name)
-      #my msg "FIRST case name=$name, form=$form_lang:$form"
-    } elseif {[regexp {^(..):([^:]{3,}?):(.+)$} $element _ form_lang form (stripped_name)]} {
-      array set "" [list link_type "link" form "$form_lang:$form" prefix $default_lang]
-      set name $default_lang:$(stripped_name)
-      #my msg "SECOND case name=$name, form=$form_lang:$form"
-    } elseif {[regexp {^([^:]{3,}?):(..):(.+)$} $element _ form (prefix) (stripped_name)]} {
-      array set "" [list link_type "link" form "$default_lang:$form"]
-      set name $(prefix):$(stripped_name)
-      #my msg "THIRD case name=$name, form=$default_lang:$form"
-    } elseif {[regexp {^([^:]{3,}?):(.+)$} $element _ form (stripped_name)]} {
-      array set "" [list link_type "link" form "$default_lang:$form" prefix $default_lang]
-      set name $default_lang:$(stripped_name)
-      #my msg "FOURTH case name=$name, form=$default_lang:$form"
-    } elseif {[regexp {^(..):(.+)$} $element _ (prefix) (stripped_name)]} {
-      array set "" [list link_type "link"]
-      set name $(prefix):$(stripped_name)
-    } elseif {[regexp {^(.+)\0$} $element _ (stripped_name)]} {
-      array set "" [list link_type "link" form "$default_lang:folder" prefix $default_lang]
-      set name $default_lang:$(stripped_name)
-    } elseif {$assume_folder} {
-      array set "" [list link_type "link" form "$default_lang:folder" prefix $default_lang stripped_name $element]
-      set name $default_lang:$element
-    } else {
-      array set "" [list link_type "link" prefix $default_lang stripped_name $element]
-      set name $default_lang:$element
-    }
-    set name [string trimright $name \0]
-    set (stripped_name) [string trimright $(stripped_name) \0]
-
-    if {$element eq "." || $element eq ".\0"} {
-      array set "" [my item_id_ref $parent_id]
-      set item_id $parent_id
-      set parent_id $(parent_id)
-    } elseif {$element eq ".." || $element eq "..\0"} {
-      set id [::xo::db::CrClass get_parent_id -item_id $parent_id]
-      if {$id > 0} {
-        # refuse to traverse past root folder
-        set parent_id $id
-      }
-      array set "" [my item_id_ref $parent_id]
-      set item_id $parent_id
-      set parent_id $(parent_id)
-    } else {
-      # with the following construct we need in most cases just 1 lookup
-      set item_id [[my package_id] lookup -name $name -parent_id $parent_id]
-      if {$item_id == 0} {
-        #my log "element '$element', name=$name, item_id=$item_id $assume_folder && $(link_type)"
-        #if {!$assume_folder && $(link_type) eq "link"} {
-        #  # try again, maybe element is folder, default-assumption was wrong
-        #  set item_id [[my package_id] lookup -name $(stripped_name) -parent_id $parent_id]
-        #  if {$item_id > 0} {array set "" [list link_type "folder" prefix ""]}
-        #} else
-        if {$assume_folder && $(link_type) eq "link" && $default_lang ne "en"} {
-          # try again, maybe element is folder in a different language
-          set item_id [[my package_id] lookup -name en:$(stripped_name) -parent_id $parent_id]
-          if {$item_id > 0} {array set "" [list link_type "link" prefix en]}
-        }
-        if {$item_id == 0 && [string match *.* $element]} {
-          # The item is still unknown, try name-based lookup. Does the
-          # entry look like a file with an extension?
-          set mime_type [::xowiki::guesstype $name]
-          set (prefix) file
-          switch -glob $mime_type {
-            "image/*" {
-              set name file:$(stripped_name)
-              set (link_type) image
-            }
-	    application/x-shockwave-flash {
-              set name file:$(stripped_name)
-              set (link_type) swf
-	    }
-            default {
-              set name file:$(stripped_name)
-              set (link_type) file
-            }
-          }
-          set item_id [[my package_id] lookup -name file:$(stripped_name) -parent_id $parent_id]
-        }
-      }
-    }
-
-    #my msg "return link_type $(link_type) prefix $(prefix) stripped_name $(stripped_name) form $(form) parent_id $parent_id item_id $item_id"
-    return [list link_type $(link_type) prefix $(prefix) stripped_name $(stripped_name) \
-                form $(form) parent_id $parent_id item_id $item_id ]
-  }
-
-
   Page instproc create_link {arg} {
     #my msg [self args]
     set label $arg
@@ -1432,7 +1258,6 @@
     # Get the package_id from the provided path, and - if found -
     # return the shortened link relative to it.
     set package_id [[my package_id] resolve_package_path $link link]
-
     if {$package_id == 0} {
       # we treat all such links like external links
       if {[regsub {^//} $link / link]} {
@@ -1476,18 +1301,24 @@
     #  } 
 
     array set "" [my get_anchor_and_query $link]
-    if {$label eq $arg} {set label $(link)}
 
+    set parent_id [expr {$package_id == [my package_id] ? 
+                         [my parent_id] : [$package_id folder_id]}]
+
     if {[regexp {^:(..):(.+)$} $(link) _ lang stripped_name]} {
       # language link (it starts with a ':')
-      array set "" [my item_ref -default_lang [my lang] -parent_id [my parent_id] ${lang}:$stripped_name]
+      array set "" [$package_id item_ref -default_lang [my lang] -parent_id $parent_id \
+                        ${lang}:$stripped_name]
       set (link_type) language
     } else {
-      array set "" [my item_ref -default_lang [my lang] -parent_id [my parent_id] $(link)]
+      array set "" [$package_id item_ref -default_lang [my lang] -parent_id $parent_id \
+                        $(link)]
     }
     #my msg [array get ""]
-    set item_name [string trimleft $(prefix):$(stripped_name) :]
 
+    if {$label eq $arg} {set label $(link)}
+    set item_name [string trimleft $(prefix):$(stripped_name) :]
+    
     Link create [self]::link \
         -page [self] -form $(form) \
         -type $(link_type) [list -name $item_name] -lang $(prefix) \
Index: openacs-4/packages/xowiki/www/admin/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/test.tcl,v
diff -u -N -r1.24 -r1.25
--- openacs-4/packages/xowiki/www/admin/test.tcl	25 Nov 2009 12:28:22 -0000	1.24
+++ openacs-4/packages/xowiki/www/admin/test.tcl	30 Nov 2009 10:22:00 -0000	1.25
@@ -564,16 +564,16 @@
 $p nls_language de_DE
 test subsubsection "Testing links on German page"
 xowiki-test-links $p {
-    hello 0 0
+    hello 1 0
     en:hello 1 0
     de:hello 0 0
     xxx 0 0
-    //XOWIKI-TEST/hello 0 0
+    //XOWIKI-TEST/hello 1 0
     //XOWIKI-TEST/en:hello 1 0
     //XOWIKI-TEST/de:hello 0 0
     //XOWIKI-TEST/en/hello 0 0
     //forums 1 1
-    //XOWIKI-TEST/weblog?m=create-new&p.exercise_form=en:l1 0 0
+    //XOWIKI-TEST/weblog?m=create-new&p.exercise_form=en:l1 1 0
     //XOWIKI-TEST/en:weblog?m=create-new&p.exercise_form=en:l1 1 0
 }
 
@@ -685,6 +685,7 @@
   set subf3_id       [require_folder "subf3"       $f3_id $package_id]
 
   # make sure, we have the test pages
+  set indexpage_id   [require_page   en:index      $folder_id $package_id]
   set parentpage_id  [require_page   de:parentpage $folder_id $package_id]
   set testpage_id    [require_page   de:testpage   $foldername_id $package_id]
 
@@ -814,7 +815,7 @@
   ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "parentpage"
            && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "
 
-  set l "./" ;# stripped name will be the name of the root folder, omit from test
+  set l "./" ;# stripped name will be the name of the root folder
   set test [label "item_ref" "dot with slash, relative" $l]
   array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
   ? {expr {$(link_type) eq "folder" && $(prefix) eq ""