Index: openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.xql,v
diff -u -N -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.xql	17 Feb 2003 20:56:16 -0000	1.1.1.1
+++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.xql	26 Feb 2003 02:37:40 -0000	1.1.1.1.2.1
@@ -1,6 +1,18 @@
 <?xml version="1.0"?>
 <queryset>
 
+<fullquery name="dotlrn_homework::new.check_duplicate">      
+   <querytext>
+     
+     select 1
+     from dual
+     where exists (select name
+                   from cr_items
+                   where parent_id = :parent_folder_id
+                     and name = :title)
+   </querytext>
+</fullquery>
+
 <fullquery name="dotlrn_homework::new.get_owner_id">      
    <querytext>
      select creation_user as homework_user_id from acs_objects where object_id = :homework_file_id