Subversion Repositories DevTools

Rev

Rev 6789 | Rev 6876 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6789 Rev 6827
Line 175... Line 175...
175 
 
 175 
 
176 
      ' Other Licences
 176 
      ' Other Licences
177 
      Response.Write "<td>" & rsQry("otherlicenses") & "</td>"
 177 
      Response.Write "<td>" & rsQry("otherlicenses") & "</td>"
178 
 
 178 
 
179 
      ' Edit License
 179 
      ' Edit License
180 
      Dim sonclick
 - 
 
181 
      sonclick="""MM_openVixIFrame('_wform_change_licence.asp?pv_id="& rsQry("pv_id") &"&rtag_id="& parRtag_id &"','Change License')"""
 - 
 
182 
      Dim data
 - 
 
183 
 
 - 
 
184 
      If canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer") Then
 180 
      BuildActionButtonClick canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer"),_
185 
        data = "<a href='javascript:;' onClick=" & sonclick & " class='body_txt'>" &_
 181 
            "", "Edit License", false, _
186 
               "<img src='images/i_edit.gif' width='12' height='12' border='0'>" &_
 182 
            "src='images/i_edit.gif' width='12' height='12' border='0'", _
187 
               "</a>"
 - 
 
188 
     Else
 - 
 
189 
        data = "<img src='images/i_edit_disable.gif' width='12' height='12' border='0'>"
 183 
            "MM_openVixIFrame('_wform_change_licence.asp?pv_id="& rsQry("pv_id") &"&rtag_id="& parRtag_id &"','Change License')"
190 
     End If
 - 
 
191 
 
 - 
 
192 
      Response.Write "<td>" & data & "</td>"
 - 
 
193 
 
 184 
 
194 
      ' END ROW
 185 
      ' END ROW
195 
      Response.Write "</tr>"
 186 
      Response.Write "</tr>"
196 
 
 187 
 
197 
      rsQry.MoveNext
 188 
      rsQry.MoveNext